ファイル テキストファイルを大量作成(セルの文字)

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][ファイル テキストファイルを大量作成(セルの文字)]
Option Explicit


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






Production Japan Import Application. Since 1998