嘗試將工作簿的工作表2保存爲CSV

此功能在單擊時最好將所有工作表2複製到另一個工作簿並將該工作表另存爲csv文件。它不工作......我不知道如何告訴它在哪裏保存文件（我希望它保存到桌面）。請幫助？嘗試將工作簿的工作表2保存爲CSV

有沒有更簡單的方法可以做到這一點？

Private Sub CommandButton2_Click() 


'save as csv' 

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


End Sub

來源

2013-05-09 Nick

嘗試此代替'FNAME = ThisWorkbook.Path＆「\」＆「cambs_uploader.csv」'。請在運行之前保存文件。 – Santosh 2013-05-09 17:58:19

如果是因爲每次保存到您的桌面，然後你可以把完整路徑字符串中，而不僅僅是文件名一樣簡單。但是，如果要通過從目錄樹中選擇來保存它，那麼Excel中最簡單的方法就是使用其Application.GetSaveAsFilename（）方法。

文檔：http://msdn.microsoft.com/en-us/library/office/ff195734.aspx

實施例：

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

來源

2013-05-09 18:01:53

嘗試將工作簿的工作表2保存爲CSV

回答

相關問題