OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

名を付けて保存のコード(エクセルVBA)

  • すぐに回答を!
  • 質問No.111746
  • 閲覧数78
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 59% (116/195)

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

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

エクセル97を使用しています。上書き保存とか、予めコード内にファイル名を書いておく方法は分かったのですが、セルを参照させる方法が分かりません!
どなたか詳しい方、宜しくお願い致します。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル9

ベストアンサー率 50% (17/34)

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

Sub Macro1()

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

お礼率 59% (116/195)

now2150さん!ありがとうございました。お礼が遅くなりましてすみません!
うまくいきました。私のコードには「&」が漏れていました。
助かりました。本当にありがとうございました。
投稿日時 - 2001-08-01 19:16:07
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ