データ追跡 テンプレートウィザードを使用時、名前をつけて保存するマクロ
データ追跡 テンプレートウィザードを使用時、名前をつけて保存するマクロコード
はどうかけばよいでしょうか?
http://allabout.co.jp/gm/gc/3496/
を参考にしてシステムをつくり、転記に成功しています。
しかし、部署内で使用するため、誰でもわかりやすく使えるものにしたいのです。
それにあたって、下記の機能をつけようとおもっています。
見積書テンプレート内にボタンを設置し、それをクリックして、
任意の名前をつけて任意のフォルダにおさめ、
それと同時にデータベースの転記も行いたいのです。
具体的に、AA1セルの値をファイル名にして、
C:\Documents and Settings\natsuko\デスクトップ\mitsumori\log\"
以下にファイルを保存したいと思っています。
しかし、AA1の値がついたファイルが上記フォルダに保存されるものの、
見積書の内容がデータベースに転記されません。
マクロのコードは下記のとおりです。
大変申し訳ないのですが、迫っている業務に間に合わせたいと思い、
「すぐに回答を!」を選択しております。
助けていただければ幸いです。
宜しくお願いいたします!
※使用しているエクセルは2000です。
Sub 新規保存1()
Dim fname
fname = Range("AA1") & ".xls"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\natsuko\デスクトップ\mitsumori\log\" & fname, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
End Sub