请教一个VBA代码：仅另存Excel文件中sheet3为 text.CSV 在桌面上

如题
要求后台安静另存，无任何提示
谢谢！

sub tt()

Application.ScreenUpdating=false

Application.DisplayAlerts=false
workSheets(3).copy
set wb=activeworkbook
wb.saveas "D:\abc.csv",xlcsv
wb.close 0
Application.ScreenUpdating=true
Application.DisplayAlerts=true
end sub

因为sheets(2)是第二个sheet，包含工作表、图表等在内的。 如果确定是第二个工作表，可以用worksheets(2)，或者直接用名字sheets("sheets2")。 再不然可以用sheets(2).codename看看工作表的名称然后直接用sheetx（不是name属性，是（名称）属性）

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息