Question

vba 把当前workbook的活动sheet以csv格式另存到另一个文件夹，保持原worksheet 不变

Answer 1

如下：

Sub 宏1()
    ChDir "E:\File"    '当前保存路径
    ActiveWorkbook.SaveAs Filename:="E:\File\902.xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False    '保存当前文件
    ChDir "C:\Users\nhking"    '另存路径
    ActiveWorkbook.SaveAs Filename:="C:\Users\nhking\902.csv", _
        FileFormat:=xlCSV, CreateBackup:=False    '另存文件路径\文件名与类型
End Sub