1

この関数をクリックすると、理想的にはワークシート 2 のすべてを別のワークブックにコピーし、そのシートを csv ファイルとして保存する必要があります。動作していません...そして、ファイルを保存する場所を指定する方法がわかりません（デスクトップに保存したい）。助けてください？

これを行う簡単な方法はありますか？ 

Private Sub CommandButton2_Click()


'save as csv'

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


End Sub
4

1 に答える 1

0

毎回デスクトップに保存するのと同じくらい簡単な場合は、ファイル名だけでなく、文字列に完全なパスを入れることができます。ただし、ディレクトリ ツリーから選択して保存する場合は、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-09T18:01:53.430 に答える