vba - 将多个工作表导出为 CSV 并指定保存文件夹

Question

我已经让这个宏工作得很好，但它会时不时地将导出的工作表保存到我工作的最后一个文件夹中，而不是我想要它们的特定文件夹。如何指定它们应该进入的文件夹？

Sub asdf()
Dim ws As Worksheet, newWb As Workbook

Application.ScreenUpdating = False
For Each ws In Sheets(Array("sheet1", "sheet2", "sheet3"))
   ws.Copy
   Set newWb = ActiveWorkbook
   With newWb
      .SaveAs ws.Name & ".csv", xlCSVWindows
      .Close (False)
   End With
Next ws
Application.ScreenUpdating = True

End Sub

Answer 1

您需要在代码中指定要将其保存到的位置。

尝试这个。

.SaveAs FileName:="C:\OutputFilepath\" & ws.Name & ".csv", FileFormat:=xlCSV, CreateBackup:=False