シートの値をテキストファイルに出力するマクロです。
例
たとえば、このようなシートのセルB2～B7までの値をテキストファイルに出力するとします。
[出力]ボタンのClickイベントハンドラに次のように記述します。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | Sub button1_Click() Dim i As Integer Dim filePath As String filePath = "C:\work\Excel\output.txt" 'ファイルのオープン Open filePath For Output As #1 For i = 2 To 7 '書き込み Print #1, Cells(i, 2).Value Next i 'ファイルを閉じる Close #1End Sub |
少し解説すると、まず、Openステートメントでファイルを開きます。
構文
Open ファイルパス For Output As #ファイル番号
次に、Printステートメントで値をファイルに出力します。
構文
Print #ファイル番号, ファイルに書き込む文字列
そして、最後にCloseステートメントでファイルを閉じます。
実行結果
スポンサーリンク
