ＥＸＣＥＬ上にコマンドボタン、ファイルを自動保存

ＥＸＣＥＬのシート上にコマンドボタンを作成して特定セルの内容をファイル名にして特定ホルダーに自動保存をしたいのですが方法がわかりません。どなたかご存じでしたら教えてください。（超初心者。ＶＢＡもわかりません)過去ログも一通り読みましたが、イマイチ理解できませんでした。ホントに素人ですので解りやすく教えていただけるとありがたいです。

No.1 ベストアンサー 回答者： hallo-2007 回答日時： 2011/01/10 10:22

とりあえずマクロの記録で作成してみましょう。

シート上に　ボタンを　作成
記録　を実行
ファイル＝＞名前をつけて保存
適当な場所に適当な名前で一度保存してみます。
マクロの記録の終了

VBエディターで確認して
ActiveWorkbook.SaveAs Filename:="C:\Users\Documents\Book1.xls"
と云った部分があるので
仮に
A1セルに　保存するフォルダーにパス
A2セルに　ファイル名をいれるのであれば
ActiveWorkbook.SaveAs Filename:=Range("A1").Value &"\" & Range("A2").Value
とかに編集します。

この回答への補足

hallo-2007　さま
ご回答ありがとうございました。


今までかかってシート上にボタンを作成しマクロを登録して、ボタンをクリックすると、作成した契約書が契約書ホルダーに保存されるというところまできました。
しかし、ＶＢエディターで

ActiveWorkbook.SaveAs Filename:=Range("A1").Value &"\" & Range("A2").Value

と記述し、

Ａ１には　　　I:\再出発！\契約書　　（再出発！ホルダにある契約書ホルダ）
Ａ２には　　　ＡＢＣ商会　　　　　　　　（取引先名）

としても

ChDir "I:\契約書"
ActiveWorkbook.SaveAs Filename:=Range("A1").Value & "\" & Range("A2").Value
, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub

がコンパイルエラーとなってしまいます。

どこに間違いがあるのか教えていただけたら幸いです。　　

補足日時：2011/01/12 00:58

この回答へのお礼

ご回答ありがとうございました。やってみます。後程結果をご連絡いたします。ありがとうございました。

お礼日時：2011/01/10 23:49