Home » エクセルマクロ・Excel VBAの使い方 » マクロのサンプル » 選択範囲をCSV出力するExcelマクロ

選択範囲をCSV出力するExcelマクロ

動作検証バージョン：Windows 11 Home + 64bit Excel バージョン 2507（ビルド19029.20184クイック実行）

Excelで、選択したセル範囲のみをCSVファイルにする処理を、最近よく行っています。

そのためのマクロを作ったのでご紹介しておきます。

［スポンサードリンク］

選択範囲をCSV出力するサンプルマクロ

Cドライブにtempフォルダーのある環境で以下のExcelマクロを実行すると、実行した日時がyyyymmdd-hhmmss形式のファイル名になったCSVファイルが、Cドライブtempフォルダーに作成されます。

Sub tool__選択範囲をCSVとして出力する()
　
　Const FOL_PATH = "C:\temp\"
　
　ActiveWindow.RangeSelection.Copy
　
　Dim bk_tmp As Workbook
　Set bk_tmp = Workbooks.Add
　
　bk_tmp.Sheets(1).Paste
　
　Dim csv_name As String
　csv_name = Format(Now, "yyyymmdd-hhmmss") & ".csv"
　bk_tmp.SaveAs FOL_PATH & csv_name, FileFormat:=xlCSVUTF8
　
　bk_tmp.Close SaveChanges:=False
　
End Sub

サンプルマクロで行っている処理

まず、Window.RangeSelectionプロパティで取得できる選択範囲をコピーしておきます。

　ActiveWindow.RangeSelection.Copy

テンポラリーなブックを作成して、その1枚目のシートにコピーしておいたセル範囲を貼り付けます。

　Dim bk_tmp As Workbook
　Set bk_tmp = Workbooks.Add
　
　bk_tmp.Sheets(1).Paste

yyyymmdd-hhmmss形式のCSVファイル名を作成しておいてから、

　Dim csv_name As String
　csv_name = Format(Now, "yyyymmdd-hhmmss") & ".csv"

SaveAsメソッドを使ってCSVファイルを出力して、

　bk_tmp.SaveAs FOL_PATH & csv_name, FileFormat:=xlCSVUTF8

テンポラリーなブックを保存せずに閉じています。

　bk_tmp.Close SaveChanges:=False

［スポンサードリンク］

Home » エクセルマクロ・Excel VBAの使い方 » マクロのサンプル » 選択範囲をCSV出力するExcelマクロ

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓ グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓ Excel VBA経験者の方に向けて、Word VBAの基本をキンドル本にしました↓↓ Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓ 日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓ 上記のExcel VBAユーザー向けのPython超入門書の、元になったキンドル本です↓↓ Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓ 小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓ Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓ 数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓ 『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓ PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓


「マクロのサンプル」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.