読者です 読者をやめる 読者になる 読者になる

CGメソッド

CG制作に関してのヒント

MENU

【Excel】各セルの内容をそれぞれ1つずつテキストファイルに出力する方法

作業の自動化用に。

やり方

  1. Alt+F11でマクロ起動
  2. 挿入→標準モジュール
  3. 下記のコードをコピペ
  4. 実行
Sub OutPutMacro()
    Dim fs As Object
    Dim objTxt As Object
    Dim i As Long
    Dim orgPath As String
    orgPath = CurDir
    '上書きオプション
    Const OVRW As Boolean = True
    '出力する場所
    ChDir "C:\Users\ユーザー名\Desktop"
  
    Set fs = CreateObject("Scripting.FileSystemObject")
    For i = 1 To Range("A65536").End(xlUp).Row
        If Cells(i, 1).Value <> "" Then
            '列番号[テキスト名]
            Set objTxt = fs.CreateTextFile(Cells(i, 1).Text & ".txt", OVRW)
            '列番号[テキストの内容]
            objTxt.WriteLine (Cells(i, 2).Text)
            objTxt.Close
        End If
    Next i
    ChDir orgPath
    Set fs = Nothing
    MsgBox "処理が完了しました", Title:="メッセージ"
End Sub

参考

oshiete.goo.ne.jp