こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

<急>指定するセル内の文字をファイル名にしてマクロで保存

エクセル97、windows-xpです。

エクセルでアンケートを作成しました。
このファイルの保存先は、F\アンケート\従業員.xlsです。
そして、エクセルの中には「ツール-フォーム」からボタンをひとつ作り置きしました。
セル「H3」には、アンケートに答えた人の名前を入力することになっています。

という状況で以下のことはできますか?
ボタンをクリックすると、H3に入力されている”個人名”を使って”名前を付けて保存”。そして、自動的にファイルを閉じる。←ということをしたいです。
保存先は、前述したとおり、アンケートというフォルダです。
これをマクロで記述する方法を教えてください!!

急なことで、文章がわかりづらかったらすみません。
宜しくお願い致します。

投稿日時 - 2005-09-12 18:46:52

QNo.1644758

すぐに回答ほしいです

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

=================================================
Private Sub CommandButton1_Click()
ThisWorkbook.SaveAs ("D:\" & Range("H3").Value)
End Sub
=================================================

これでいけると思います。

投稿日時 - 2005-09-12 18:58:25

補足

できました!!!
すみません、それと、自動的にファイルを閉じさせるにはどうしたら・・・
宜しくお願い致します!!

投稿日時 - 2005-09-12 19:06:08

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(3)

ANo.3

Excelを終了するなら
ThisWorkbook.Application.Quit

ブックを閉じるなら
ThisWorkbook.close

でいけると思います。

投稿日時 - 2005-09-12 19:17:04

ANo.2

ごめんなさい。フォルダ名間違ってる。

「D:\」を「F\アンケート\」に変換してください。

投稿日時 - 2005-09-12 19:03:21

補足

あ、ダイジョウブでしたよ、きづきましたっ!^-^
えっと、ファイル名をつけたと同時に、自動的にファイルを閉じたいのですが・・・どうしたらよいかと・・・すみません!!宜しくお願い致します!!

投稿日時 - 2005-09-12 19:15:55

あなたにオススメの質問