10/06/09 19:51:44
XP Excel 2003
VBA初心者
VBAでの回答可
セルA1に入力された文字がファイル名になるマクロというのを見つけたのですが
Sub test01()
Dim x As String
x = Sheets("Sheet1").Range("A1").Value
Application.Dialogs(xlDialogSaveAs).Show arg1:=x & ".xls" '
End Sub
このコードを、フォルダ内にある複数のファイルにバッチ処理するにはどうしたらよいのでしょうか？