Excel转换为CSV VBA

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