名を付けて保存のコード（エクセルＶＢＡ）

セルＡ１に書いてある文字をそのままファイル名にして保存させるコードの記述方法を教えて下さい。

例）
Ａ１に 「’００１」を入力しておき、シート上に配置してあるコマンドボタンをクリックすることで、「００１．ｘｌｓ」と名を付けて、あらかじめ決めてある、ディレクトリに保存

エクセル９７を使用しています。上書き保存とか、予めコード内にファイル名を書いておく方法は分かったのですが、セルを参照させる方法が分かりません！
どなたか詳しい方、宜しくお願い致します。

No.1 ベストアンサー 回答者： now2150 回答日時： 2001/07/31 08:57

セルの文字の参照は変数を使います。

Sub Macro1()

Dim X As String
X = Range("A1")
ActiveWorkbook.SaveAs Filename:="C:\WINDOWS\デスクトップ\" & X & ".xls"
End Sub

この回答へのお礼

ｎｏｗ２１５０さん！ありがとうございました。お礼が遅くなりましてすみません！
うまくいきました。私のコードには「＆」が漏れていました。
助かりました。本当にありがとうございました。

お礼日時：2001/08/01 19:16