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

例)
A1に 「’001」を入力しておき、シート上に配置してあるコマンドボタンをクリックすることで、「001.xls」と名を付けて、あらかじめ決めてある、ディレクトリに保存

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

A 回答 (1件)

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



Sub Macro1()

Dim X As String
X = Range("A1")
ActiveWorkbook.SaveAs Filename:="C:\WINDOWS\デスクトップ\" & X & ".xls"
End Sub
    • good
    • 0
この回答へのお礼

now2150さん!ありがとうございました。お礼が遅くなりましてすみません!
うまくいきました。私のコードには「&」が漏れていました。
助かりました。本当にありがとうございました。

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


このカテゴリの人気Q&Aランキング

おすすめ情報

カテゴリ