[[20050628103453]]　『VBAで空ファイルを作成したい』（yazuki）　ページの最後に飛ぶ

『VBAで空ファイルを作成したい』（yazuki）

excelのセルにファイル名を入れ。VBAの実行により連続して空ファイルを作成する方法は
ありますか？
例えばA1からA100までに任意のファイル名が入っているものとして、VBAの実行によって
このセルに書かれた文字列をファイル名として空のファイルを任意のフォルダーに作成
することはできないでしょうか？

 出来ると思います。
 A1の値で『名前を付けて保存』をマクロの記録し、
 そのコードをA1からA100まで繰り返し処理させる。

 （川野鮎太郎）

川野鮎太郎さん　ありがとうございます。
教えていただいた方法でもやってみましたが、０KBにならないことと処理が遅いのが欠点でした。そこで以下の方法で完全なダミーファイルを作成できました。

 Private Sub CommandButton1_Click()
 Dim i As Integer, j As Integer, namae As String, kakucyousi As String, sv_pth  As String
 sv_pth = ActiveWorkbook.Path 'アクティブパスの取得
 Cells(2, 4).Value = sv_pth
 End Sub

 Sub dummy()
 Dim i As Integer, j As Integer, namae As String, kakucyousi As String, sv_pth As String
 Dim x As Integer
 Dim FSO, filepath As String
 Dim myFName As String, Sname As String, Fname As Variant
 Set FSO = CreateObject("Scripting.FileSystemObject")
 x = Cells(Rows.Count, 1).End(xlUp).Row 'カレントシートの1行目の最終文字入力行を受け取る
 sv_pth = Cells(2, 4).Value
 If sv_pth = "" Then
     MsgBox "保存するフォルダーを指定してください。"
     Exit Sub
 End If
 For i = 1 To x
     namae = Sheets("sheet1").Cells(i, 1).Value
     kakucyousi = Sheets("sheet1").Cells(i, 2).Value
     filepath = sv_pth & "\" & namae & kakucyousi
 FSO.CreateTextFile filepath
 Next i
 MsgBox "終了しました。"
 End Sub
（yazuki）

コメント返信：

[ 一覧(最新更新順) ]

[[20050628103453]] 『VBAで空ファイルを作成したい』（yazuki） ページの最後に飛ぶ

[[20050628103453]]　『VBAで空ファイルを作成したい』（yazuki）　ページの最後に飛ぶ