ファイル 連続NO番号のテキストファイルを大量作成

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

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][ファイル 連続NO番号のテキストファイルを大量作成]
Option Explicit


Public Sub AutomaticNumberTxt()
'****************************************
'連続NO番号のテキストファイルを大量作成
'****************************************
'1,01,001,0001〜
'同じファイル名は上書きされます。
Dim TxtPath As String, str1 As String, str2 As String
Dim StartNo As Long, EndNo As Long
Dim Keta As String
Dim n As Long, i As Long, strKeta As String
Dim FileName As String, strWrite As String

TxtPath = ThisWorkbook.Path & "\"   '作成箇所
StartNo = 1                         'スタート番号
EndNo = 42                          '終了番号
Keta = 3                            '桁
str1 = "Collection"                 '文字1
str2 = "Category.txt"               '文字2+拡張子

If Keta <= 1 Then
    strKeta = strKeta & ""
Else
    For i = 2 To Keta
        strKeta = strKeta & "0"
    Next i
End If

strKeta = strKeta & "#"

For i = StartNo To EndNo
    n = FreeFile '使われていないファイル番号を自動的に割り振る
    FileName = TxtPath & str1 & Format(i, strKeta) & str2   'ファイル名
    strWrite = str1 & Format(i, strKeta) & str2             '記入内容
    Open FileName For Output As #n
        Print #n, strWrite
    Close #n
Next i

'【作成ファイル】
'Collection001Category.txt
'Collection002Category.txt
'       ・
'       ・
'       ・
'Collection042Category.txt

' キーワード 処理             モード
' Input   読み込み           入力モード
' Output  書き込み           出力モード
' Append  書き込み           追加モード
' Random  読み込み/書き込み  ランダムアクセスモード(データベースのデータファイルにアクセスするモード)
' Binary  読み込み/書き込み  バイナリモード(ファイルのデータを一気に読み込む)

End Sub






Production Japan Import Application. Since 1998