excel 用<em>vba</em>实现将sheet另存为csv格式（文件名...

Sub test()

Dim sht As Worksheet

For Each sht In Sheets

    sht.Copy

    ActiveWorkbook.Close True, ThisWorkbook.Path & "\" & sht.Name & ".xls"

Next

End Sub

下面的一个语百句就可以了：度
ActiveWorkbook.SaveAs Filename:="C:\A\" * range("a1") & ".csv", FileFormat:=xlCSV

你的单元格aa&bb我不明知白是什么意道思，我例子语句使用的回a1，你自行修答改即可。
SaveAs就是“另存为”的动作。

执行完SaveAs后，当前文件就变成抄了“另存为”的文件（原始文件当然还在），这时不用再保存，直接关闭即知可。（如果保存，就是再次保存为CSV文件，道而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