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

Excel-Output-Text

作業の自動化用に。

やり方

  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

Excel
スポンサーリンク
すいみんをフォローする



CGメソッド

コメント