エクセルのマクロのついて

初歩的な質問です(と思います)。
よろしくお願い致します。

エクセルの保存をマクロで実行したいのですが
その際、保存名をエクセルの"A"というタブにあるA1セル
に記載されている"B"という名前で保存したい。

この場合の命令文を教えてください。

No.1 回答者： DoragonFang 回答日時： 2005/02/08 02:58

とりあえず、もっとも簡単な回答を。

エラー処理も何もしておりません。
ホントに保存するだけのマクロです。
もっとまともなのは他の方が回答されると思いますが(^^ゞ


Sub 保存()
Dim 保存名 As String
保存名 = Sheets("A").Range("A1").Value & ".xls"
ActiveWorkbook.SaveAs Filename:=保存名

End Sub

この回答へのお礼

早速のご回答有り難うございます。
一部エラーもでますが概ね使えました。
お返事遅くなりすいません。

お礼日時：2005/02/13 18:11

No.2 ベストアンサー 回答者： big_fool 回答日時： 2005/02/08 14:34

No1さん同様ですが

カレントフォルダに保存するなら、かつ再度保存する際の確認メッセージを表示しません
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Sheets("A").Range("A1").Value & ".xls"
Application.DisplayAlerts = True

この回答へのお礼

うまくいきました。
有り難うございました。
お返事遅くなりすいません。

お礼日時：2005/02/13 18:09