试图在桌面上将工作簿的工作表2保存为CSV

单击此功能时，理想情况下应将工作表2的所有内容复制到另一个工作簿，并将该工作表另存为csv文件。它不起作用。。。我不知道如何告诉它在哪里保存文件（我希望它保存到桌面）。请帮忙

有没有更简单的方法

Private Sub CommandButton2_Click()


'save as csv'

fname = "cambs_uploader.csv"
Sheet2.SaveAs fname, xlCSV


End Sub

---

如果每次保存到桌面都很简单，那么您可以将完整路径放入字符串中，而不仅仅是文件名。但是，如果您想通过从目录树中选择来保存它，那么Excel中最简单的方法就是使用它的Application.GetSaveAsFilename（）方法

文件：

例如：

Sub CommandButton2_Click()
   Dim fName As String
   Dim saveSheet As Worksheet

   Set saveSheet = ActiveWorkbook.Sheets("Sheet2") ' Change your sheet name

   saveSheet.SaveAs Application.GetSaveAsFilename("cambs_uploader.csv", ".csv", 1, "Save File")

   Set saveSheet = Nothing
Exit Sub

---

改为试试这个

fname=thispoolk.Path&“\”和“cambs\u uploader.csv”

。请在运行之前保存该文件。