5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

Excel総合相談所 92

282 :名無しさん@そうだ選挙にいこう:2010/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

このコードを、フォルダ内にある複数のファイルにバッチ処理するにはどうしたらよいのでしょうか?


338 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)