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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
ちょっと先の未来クイズ第2問
9月9日(月)に発表される「第3回子どもマネー川柳」に入賞する川柳を考えてこちらに投稿してください。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
アクセスvbaでエクセルブックを保存
その他(Microsoft Office)
-
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
-
4
Access VBAから使用したExcelプロセスを閉じる方法について
Visual Basic(VBA)
-
5
ACCESSのVBAにてExcelのシートをコピーしたい
その他(データベース)
-
6
ACCESSで名前を付けて保存は・・
その他(データベース)
-
7
accessでクエリをExcelにエクスポートする時にファイル名に日付を追加したい
Access(アクセス)
-
8
Access-VBAでExcelファイルを作成する。
Excel(エクセル)
-
9
Access サブフォームでの選択行の取得
その他(データベース)
-
10
新規レコード行を非表示にしたい
Access(アクセス)
-
11
アクセスからエクセルのシートを追加して、名前をつける方法
Excel(エクセル)
-
12
AccessVBAで作成したExcelファイルを削除する方法は?
Visual Basic(VBA)
-
13
テキストボックスにクエリ結果を表示させたい
その他(データベース)
-
14
Access→Excelへエクスポートすると日付の表示形式が変化する
Excel(エクセル)
-
15
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
16
ACCESSVBA からExcelの他ブックへコピーの方法
Visual Basic(VBA)
-
17
AccessからExcelマクロを実行したい
Excel(エクセル)
-
18
Accessのフォーム上にエクセルのシートを表示させたい!
Visual Basic(VBA)
-
19
ACCESSのVBAにてExcelに行を追加したい
その他(データベース)
-
20
Msgboxにテーブルのレコードを表示させたい。
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ドキュメントの回復について
-
ACCESSからexcelブックを開いて...
-
エクセルで「ページレイアウト...
-
Wordで作成したものをUSBに保存...
-
Excel に貼り付けた図形が、保...
-
Macで作成したファイル(Word)を...
-
エクセルが勝手に開く
-
メールでCADデータが送られまし...
-
アクセスVBAで既に開いているエ...
-
パソコン買い換えたいのですが...
-
Outlookでメールが送信できない。
-
至急!教えてください!!「Mic...
-
Wordファイルが開けません
-
マルチモニターにエクセルを表示
-
ロータス1-2-3のファイルをエ...
-
エクセル関数のHyperLinkでの警告
-
VBA 新規ファイルを元ファイル...
-
BIOSの更新方法について
-
Excelファイルをコピー不可にす...
-
エクセルの表示サイズ変更(画...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Wordで作成したものをUSBに保存...
-
HPからWord文書が開けない
-
エクセル マクロを使って同じ...
-
エクセルで「ページレイアウト...
-
ACCESSからexcelブックを開いて...
-
エクセルで「名前を付けて保存...
-
EXCELで保存する際に、必ず別名...
-
エクセル「名前を付けて保存」...
-
エクセルのワークシート上書き...
-
一太郎での上書き保存について
-
パワーポイントの上書き保存が...
-
フッター、ヘッター、印刷設定
-
Excel 2019 での上書き保存につ...
-
エクセル2003から2010 文字消え
-
excel2010のファイル保存エラー...
-
Excelテンプレートの保存先
-
EXCELのクリップボードの...
-
2003の表が2007で書き込み後保...
-
Photoshop CS3でファイル保存...
-
word excel 空白のファイルを新...
おすすめ情報