ACCESS初心者です。
仕事でどうしても必要に迫られて、受付管理のツールを作ることになりました。
1つの注文で、受付ID(オートナンバー)が付与されます。
メインフォームにタブオーダーをつけてサブフォームを複数配置しています。
そのサブフォームにボタンを置いて
Access から既存のエクセルファイルをテンプレートとして開いて
テンプレートに入力後、受付IDをファイル名にして、テンプレートとは別もので保存
保存後は、ボタンを押したときに受付IDと同じエクセルファイルが開く
このようなことをやりたいと思っています。
ネットでいろいろ探しているのですが
ファイルを開くのは見つかっても、保存したものを開くのが見つからず
そもそもできるのかどうかもわかっておりません。
自分にスキルがなく、あれこれ凝ったものは作れないので、
保存は自動じゃなくて、自分で別名で保存にしてもかまわないのですし
フォームに入力したものが、テンプレートに反映(出力?)されなくてもかまわないです。
参考になるサイト等ありましたら、ご教示いただけますか。
どうぞよろしくお願いいたします。
下記はやりたいことに近いかなと思って見つけたサイトです。
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ベストアンサー
- 回答日時:
1番目のリンクの方のサイト、すごいですね。
テクニカルかつ分かりやすいです。同じ方のサイト、#001ではEXCELファイルを新規に作って、データベース内のデータを埋めて保存して閉じる
やり方を紹介しています。
http://www.nurs.or.jp/~ppoy/access/access/acX001 …
リンクの#013では、テンプレートを元にデータを埋め込み、EXCELの画面を表示したところで、マクロを終了させる
(保存はユーザーの手動に任せる)方法を紹介しています。
この#013の最後に#001の保存方法を組み合わせれば、たぶん出来ると思います。
#013の末尾(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 様
本当に結果報告が遅くなり申し訳ございません。
やっと教えていただいたことが試せるところまで来ました。
#013の最後に#001の保存方法をつけてみたところ、
まず最初にコンパイルエラーというのがでて、END subが見つかりませんとなり
一番最初の private sub の行が黄色くなってしましました。
何度も見直してみたのですが、打ち間違いは無いように見えます。
#013の
データ貼り付け
With wkb.Worksheets(stSheet)
.Range(stRng).CopyFromRecordset Data:=rst
End With
のあとに、jacob-wk9様が回答に書いてくださった
保存ダイアログ~から下のところをそのまま打ち込みしています。
このままだと、保存方法が2つある状態に見えるのですが
ファイルの保存方法で、jacob-wk9 様が追記してくださった
保存ダイアログを使わず、fnameを自動的に指定する方法 を記述した場合は
その前にある、保存ダイアログからの入力を受けて保存 のところは削除してよいのでしょうか?
こんなに遅くなってからで、大変恐縮なのですが
ご教示いただければ幸いです。
どうぞよろしくお願いいたします。
風邪で寝込んでしまい、ご連絡遅くなって申し訳ございません。
二つのサイトの合体技なんですね。
VBAがわからないので、合体させるなんて自分じゃ考えられませんでした。
明日から出社するので、作成中のツールで試してみようと思います。
ツールを作っているネットワークは、インターネットにつながっていないので
手打ちでがんばってみます。
結果はまたご報告します。
No.2
- 回答日時:
ゴチャゴチャ書き連ねても消化不良になるかと思いますので
入り口と非常口?だけです。
ActiveXオートメーション(OLEオートメーション)の概要
http://home.att.ne.jp/zeta/gen/excel/c04p44.htm
15.消えないExcelのプロセス
http://homepage1.nifty.com/rucio/main/technique/ …
(VBのお話ですが、Access→Excel でも同様です)
連休から風邪で寝込んでしまい、お返事遅くなって申し訳ございません。
どちらのサイトも拝見しましたが、
私が理解するにはとてもハードルが高そうです・・・(^^;)
VBAが理解できたら、きっとACCESSで思うがままのツールが作れるんでしょうね。
あこがれちゃいます。
もう少しACCESSが使いこなせるようになったら、
もう一度読んでみます!ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2022/03/25 17:03
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/04 17:58
- Excel(エクセル) Excelのマクロコードについて教えてください。 1 2022/03/27 10:47
- Word(ワード) officeの自動保存について教えてください 2 2023/06/18 09:11
- Visual Basic(VBA) Excel VBA 同じ名前のフォルダがあれば作成したブックを格納するマクロをつくりたい 2 2023/01/16 16:19
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2022/08/04 13:56
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
アクセスvbaでエクセルブックを保存
その他(Microsoft Office)
-
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
-
4
アクセスからエクセルのシートを追加して、名前をつける方法
Excel(エクセル)
-
5
Access VBAから使用したExcelプロセスを閉じる方法について
Visual Basic(VBA)
-
6
AccessVBAで作成したExcelファイルを削除する方法は?
Visual Basic(VBA)
-
7
Access サブフォームでの選択行の取得
その他(データベース)
-
8
Accessの画面更新を一時的に停止する方法。
その他(データベース)
-
9
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
10
ACCESSのフォーム、開くんですが、見えないようにするには
Access(アクセス)
-
11
Access-VBAでExcelファイルを作成する。
Excel(エクセル)
-
12
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
13
ACCSESS2013VBA フォームのレコードソースを変更する
その他(データベース)
-
14
AccessからExcelのファイルを起動する
その他(データベース)
-
15
Access 最後のレコードに到達するまでループ処理を行う方法
Access(アクセス)
-
16
AccessからExcelマクロを実行したい
Excel(エクセル)
-
17
MS Accessでフォームの「開く時」と「読込み時」のイベントの違い
Access(アクセス)
-
18
2つ目のレコードの値を取得するには?
Access(アクセス)
-
19
Access エクセルシート名変更
その他(プログラミング・Web制作)
-
20
エラー(型が一致しません。)の対処方法
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Wordで作成したものをUSBに保存...
-
ACCESSからexcelブックを開いて...
-
フッター、ヘッター、印刷設定
-
PDFでアンケート用紙の作成
-
共有フォルダで上書き保存できない
-
エクセルのワークシート上書き...
-
EXCELのクリップボードの...
-
Excel に貼り付けた図形が、保...
-
ロータス1-2-3のファイルをエ...
-
パソコン買い換えたいのですが...
-
jtrim 1.53cが正常な動きをし...
-
お世話になっています. x軸は時...
-
[大至急!]ExcelSheetFreeの使...
-
Macで作成したファイル(Word)を...
-
μtorrentのアンインストール方法
-
エクセルが勝手に開く
-
アクセスVBAで既に開いているエ...
-
DVD-Rに書き込みするにはどうし...
-
無料エクセル→PC版エクセル
-
Windows Media Playerが起動直...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Wordで作成したものをUSBに保存...
-
エクセルで「名前を付けて保存...
-
Excel 2019 での上書き保存につ...
-
エクセル マクロを使って同じ...
-
ACCESSからexcelブックを開いて...
-
EXCELで保存する際に、必ず別名...
-
パワーポイントの上書き保存が...
-
コマンドボタンで保存先のフォ...
-
エクセルのワークシート上書き...
-
HPからWord文書が開けない
-
エクセル「名前を付けて保存」...
-
一太郎での上書き保存について
-
Excelで書式やページ設定の既定...
-
Word2010で文書が保存されてい...
-
共有フォルダで上書き保存できない
-
EXCELのクリップボードの...
-
ドキュメントの回復について
-
エクセル、ワードを上書き保存...
-
マイクロソフトのOffice Delve...
-
Excel起動時に漢字かなモードを...
おすすめ情報