Question

我无法将工作簿中的一张工作表保存为CSV文件。我在一本工作簿中有18张。每次运行宏时，它都会保存不同的工作表。我也需要它，因此不会弹出显示警报。我是VBA的初学者并运行宏，所以任何帮助都会受到赞赏。

   Sub csvfile()
 '
 ' csvfile Macro
 '

 '

   ChDir "C:\Users\RM\Documents"
   ActiveWorkbook.SaveAs Filename:= _
    "C:\Users\RM\Documents\Working_Program\PSSE_Export_Data.csv", FileFormat:= _
    xlCSV, CreateBackup:=False
    Application.DisplayAlerts = False





End Sub

Answer 1

这应该可以解决问题，只需指定要保存的工作表代替“Sheet1”

Sub csvfile()

Application.DisplayAlerts = False
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
ws.SaveAs Filename:= _
"C:\Users\RM\Documents\Working_Program\PSSE_Export_Data.csv", FileFormat:= _
xlCSV, CreateBackup:=False

End Sub

Excel转换为CSV VBA

1 个答案: