ACCESSからexcelブックを開いて保存したい

ＡＣＣＥＳＳ初心者です。
仕事でどうしても必要に迫られて、受付管理のツールを作ることになりました。


１つの注文で、受付ＩＤ（オートナンバー）が付与されます。

メインフォームにタブオーダーをつけてサブフォームを複数配置しています。
そのサブフォームにボタンを置いて
Access から既存のエクセルファイルをテンプレートとして開いて
テンプレートに入力後、受付ＩＤをファイル名にして、テンプレートとは別もので保存
保存後は、ボタンを押したときに受付ＩＤと同じエクセルファイルが開く

このようなことをやりたいと思っています。

ネットでいろいろ探しているのですが
ファイルを開くのは見つかっても、保存したものを開くのが見つからず
そもそもできるのかどうかもわかっておりません。

自分にスキルがなく、あれこれ凝ったものは作れないので、
保存は自動じゃなくて、自分で別名で保存にしてもかまわないのですし
フォームに入力したものが、テンプレートに反映（出力？）されなくてもかまわないです。


参考になるサイト等ありましたら、ご教示いただけますか。

どうぞよろしくお願いいたします。


下記はやりたいことに近いかなと思って見つけたサイトです。
http://www.nurs.or.jp/~ppoy/access/access/acX013 …
http://detail.chiebukuro.yahoo.co.jp/qa/question …
http://accessclub.jp/bbs/0227/beginers70136.html

No.1 ベストアンサー 回答者： jacob-wk9 回答日時： 2012/11/22 09:26

1番目のリンクの方のサイト、すごいですね。

テクニカルかつ分かりやすいです。
同じ方のサイト、＃００１ではEXCELファイルを新規に作って、データベース内のデータを埋めて保存して閉じる
やり方を紹介しています。
http://www.nurs.or.jp/~ppoy/access/access/acX001 …

リンクの＃０１３では、テンプレートを元にデータを埋め込み、EXCELの画面を表示したところで、マクロを終了させる
（保存はユーザーの手動に任せる）方法を紹介しています。

この＃０１３の最後に＃００１の保存方法を組み合わせれば、たぶん出来ると思います。

＃01３の末尾（http://www.nurs.or.jp/~ppoy/access/access/acX013 …）
--------------------------------------------------------------
'データ貼り付け
With wkb.Worksheets(stSheet)
.Range(stRng).CopyFromRecordset Data:=rst
End With

'#001の保存コード(http://www.nurs.or.jp/~ppoy/access/access/acX001 …

'保存ダイアログからの入力を受けて保存
' fName = xls.Application.GetSaveAsFilename(,"Microsoft Excel(*.xls),*.*", 1)

'保存ダイアログを使わず、fnameを自動的に指定する方法(jacob-wk9付け足し）
fName=rst!受付ID

If fName <> False Then
wkb.SaveAs FileName:=fName
MsgBox "新規ブックは、「" & fName & "」の名前で保存しました！", vbOKOnly
Else
MsgBox "新規ブックは保存できませんでした。", vbOKOnly
End If

Set rst = Nothing: Set cnn = Nothing

Exit_opnXLtmp:
Set wkb = Nothing: Set xls = Nothing
Exit Sub

Err_opnXLtmp:
MsgBox Err.Description
Resume Exit_opnXLtmp
End Sub
----------------------------------------------------------------------

こんな感じになるのではないでしょうか。

この回答への補足

jacob-wk9　様

本当に結果報告が遅くなり申し訳ございません。
やっと教えていただいたことが試せるところまで来ました。

＃０１３の最後に＃００１の保存方法をつけてみたところ、
まず最初にコンパイルエラーというのがでて、END　subが見つかりませんとなり
一番最初の　private　sub　の行が黄色くなってしましました。

何度も見直してみたのですが、打ち間違いは無いように見えます。

＃０１３の

データ貼り付け
With wkb.Worksheets(stSheet)
.Range(stRng).CopyFromRecordset Data:=rst
End With

のあとに、jacob-wk9様が回答に書いてくださった
保存ダイアログ～から下のところをそのまま打ち込みしています。

このままだと、保存方法が２つある状態に見えるのですが
ファイルの保存方法で、jacob-wk9　様が追記してくださった
保存ダイアログを使わず、fnameを自動的に指定する方法　を記述した場合は
その前にある、保存ダイアログからの入力を受けて保存　のところは削除してよいのでしょうか？

こんなに遅くなってからで、大変恐縮なのですが
ご教示いただければ幸いです。

どうぞよろしくお願いいたします。

補足日時：2013/02/08 20:39

この回答へのお礼

風邪で寝込んでしまい、ご連絡遅くなって申し訳ございません。

二つのサイトの合体技なんですね。
ＶＢＡがわからないので、合体させるなんて自分じゃ考えられませんでした。

明日から出社するので、作成中のツールで試してみようと思います。
ツールを作っているネットワークは、インターネットにつながっていないので
手打ちでがんばってみます。
結果はまたご報告します。

お礼日時：2012/11/27 20:55

No.2 回答者： nicotinism 回答日時： 2012/11/22 12:47

ゴチャゴチャ書き連ねても消化不良になるかと思いますので

入り口と非常口？だけです。

ActiveXオートメーション（OLEオートメーション）の概要
http://home.att.ne.jp/zeta/gen/excel/c04p44.htm

１５．消えないExcelのプロセス
http://homepage1.nifty.com/rucio/main/technique/ …
（VBのお話ですが、Access→Excel でも同様です）

この回答へのお礼

連休から風邪で寝込んでしまい、お返事遅くなって申し訳ございません。

どちらのサイトも拝見しましたが、
私が理解するにはとてもハードルが高そうです・・・（^^;）

ＶＢＡが理解できたら、きっとＡＣＣＥＳＳで思うがままのツールが作れるんでしょうね。
あこがれちゃいます。

もう少しＡＣＣＥＳＳが使いこなせるようになったら、
もう一度読んでみます！ありがとうございました。

お礼日時：2012/11/27 20:29