質問者が納得ファイル名をA1.txtにしたいというので1ファイルを生成したいのかと思いましたが、
500個ファイルを作りたいなら下の通り。ファイル名は A1 (番号）.txt になります。
htmlファイルを作りたいなら".txt"を ".html"に変えて下さい。
Sub TXT2()
Dim FN As Integer, i As Long, FNN, PS As String
PS = ActiveWorkbook.Path
FN = FreeFile
For i = ...
5265日前view18
