モジュール名: SaveRangeToCSV
モジュール説明:
選択範囲をCSVファイルとして保存する機能を提供します。
使用方法:
- 保存したいセル範囲を選択します。
- マクロを実行します。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 |
' セル範囲をCSVファイルとして保存するマクロ Option Explicit Sub SaveRangeToCSV() ' 保存対象のセル範囲を取得 Dim rngSave As Range Set rngSave = Selection ' ファイル名を指定 Dim strFileName As String strFileName = InputBox("保存するファイル名を入力してください。", "CSVファイルの保存", ActiveWorkbook.Name & ".csv") ' ファイルパスを生成 Dim strFilePath As String strFilePath = GetSaveFolder & "\" & strFileName ' CSVファイルとして保存 rngSave.SaveAs Filename:=strFilePath, FileFormat:=xlCSV ' メッセージボックスを表示 MsgBox "選択範囲をCSVファイルに保存しました。" End Sub ' 保存フォルダを取得する関数 Function GetSaveFolder() As String Dim strFolder As String ' 最初に開いたフォルダを取得 On Error Resume Next strFolder = Application.DefaultFilePath On Error GoTo 0 ' フォルダダイアログを表示 If strFolder = "" Then strFolder = Application.FileDialog(msoFileDialogSaveAs, _ "CSVファイルの保存先を選択してください", _ strFolder) End If ' フォルダが選択されなかった場合は終了 If strFolder = "" Then Exit Function End If ' 選択されたフォルダを返す GetSaveFolder = strFolder End Function |
