Excel VBA質問スレ Part8
レス数が950を超えています。1000を超えると書き込みができなくなります。
0989デフォルトの名無しさん
2008/12/03(水) 01:56:00Sub a()
F = "c:\data1\" 'フォルダ指定
r = 1
While Cells(r, 1) <> ""
Open F & Cells(r, 1) & ".txt" For Output As #1
Print #1, Cells(r, 2)
Close #1
r = r + 1
Wend
End Sub
レス数が950を超えています。1000を超えると書き込みができなくなります。