2017年5月31日

【Excel】シートの値をテキストファイルに出力するマクロ


シートの値をテキストファイルに出力するマクロです。

たとえば、このようなシートのセル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 #1
 
End Sub

少し解説すると、まず、Openステートメントでファイルを開きます。

構文
Open ファイルパス For Output As #ファイル番号


次に、Printステートメントで値をファイルに出力します。

構文
Print #ファイル番号, ファイルに書き込む文字列


そして、最後にCloseステートメントでファイルを閉じます。


実行結果





スポンサーリンク



Follow Me on Pinterest
Clip to Evernote