|
やりたいことはエクセルのB2〜B*までにファイル名を記載してます。
そのファイル名の空ファイルを作成することです。
B列の内容の例は以下のとおり
B2 = 1-1_aaabbb1111.txt
B3 = 1-1_aaabbb1112.txt
作成するファイルはエクセルファイルと同じディレクトリに保存したいです。
以下のように作成しましたがどうもうまくいきません。
詳しい方がおりましたら助言いただけると助かります。
---ココから---
Sub ボタン1_Click()
Dim intFileNum As Integer
Dim strFileName As String
Dim GYO As Long
Dim GYOMAX As Long
Dim IngREC As Long
intFileNum = FreeFile
GYOMAX = Cells.SpecialCells(xlCellTypeLastCell).Row
Do While Cells(GYOMAX, 2).Value = ""
GYOMAX = GYOMAX - 1
Loop
GYO = 2
Do Until GYO > GYOMAX
strFileName = Cells(GYO, 2).Value
Open strFileName For Output As #intFileNum
Close #intFileNum
MsgBox " 「" & strFileName & "」" & " create"
GYO = GYO + 1
IngREC = IngREC + 1
Loop
MsgBox " ファイル出力が完了しました。 " & vbCr & _
"レコード件数=" & IngREC & "件", vblnformation, cnsTITLE
End Sub
---ココまで---
|
|