2017年5月31日

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

2017年5月31日 (水) 21:00 in ,


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

例

たとえば、このようなシートのセルB2～B7までの値をテキストファイルに出力するとします。



[出力]ボタンのClickイベントハンドラに次のように記述します。
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ステートメントでファイルを閉じます。


実行結果





comments powered by Disqus

スポンサーリンク