ファイル テキストファイルを大量作成(セルの文字)
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
Public Sub AutomaticCellsTxt() '**************************************** 'テキストファイルを大量作成(セルの文字) '**************************************** '同じファイル名は上書きされます。 Dim TxtPath As String, str(5) As String Dim StartNo As Long, EndNo As Long Dim n As Long, i As Long Dim FileName As String, strWrite As String Dim sht As Worksheet Set sht = ThisWorkbook.Worksheets("Sheet1") TxtPath = ThisWorkbook.Path & "\" '作成箇所 StartNo = 1 'スタート番号 EndNo = sht.Cells(65536, 1).End(xlUp).Row '終了番号 With sht For i = StartNo To EndNo n = FreeFile '使われていないファイル番号を自動的に割り振る str(1) = .Cells(i, 1).Value str(2) = .Cells(i, 2).Value str(3) = .Cells(i, 3).Value str(4) = .Cells(i, 4).Value str(5) = .Cells(i, 5).Value '拡張子 strWrite = str(1) & str(2) & str(3) & str(4) '記入内容 FileName = TxtPath & strWrite & str(5) 'ファイル名 Open FileName For Output As #n Print #n, strWrite Close #n Next i End With ' キーワード 処理 モード ' Input 読み込み 入力モード ' Output 書き込み 出力モード ' Append 書き込み 追加モード ' Random 読み込み/書き込み ランダムアクセスモード(データベースのデータファイルにアクセスするモード) ' Binary 読み込み/書き込み バイナリモード(ファイルのデータを一気に読み込む) End Sub |