AccessのクエリをEXCELのVBAを使用して置き換える方法をご教示願います。
AccessデータはE:¥生産管理¥生産.mdbで現状データ内 受注残とゆうクエリ
(受注NO 品番 品名 納期 受注残で並んでいます)を
Office Links→Excelの出力処理にてExcelデータに変換しこのデータを
元データにし品番を縦ならび、納期を横並びにしてどの日付に何個受注が残っているかが
わかるようにVBAで処理するようにしております。
横並びにする理由は資材発注などで結構先の受注を確認して自動計算するためです。
上記のように自動化されていない Office Links→Excelの出力処理をVBAでやる方法が
検索方法が悪いせいかわかりません。
Office Links→Excelの出力処理もしくは
クエリから直接データを引き込む方法をご教授お願いいたします。
No.3ベストアンサー
- 回答日時:
Accessのデータベースを単なるデータファイルとして扱い、すべてExcel VBAで処理したければ、ADOのお勉強をなさってください。
http://home.att.ne.jp/zeta/gen/excel/c04p02.htm
ご希望とは制御の方向が逆ですが、Accessからクエリの結果をExcelに貼り付け、Excelを操作する事例を下記のNo.2で回答しております。ご参考まで。
http://okwave.jp/qa/q5137524.html
参考資料有難うございました。
今回はEXCELのADOを参照設定してデータを取り込むように
することが出来ました。Acccesからの制御は次回TRYしてみます。
No.4
- 回答日時:
・エクセル形式でエキスポートします
・VBAなら
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel5, "クエリー名", "エクセルのファイル名"
No.2
- 回答日時:
以前作ったものです。
たたき台にして下さい。
Sub Acc2Xls()
'MDBからカレントシートへ転記
Dim cn As Object
Dim rs As Object
Dim strSql As String
Dim i As Long, j As Long
If Range("A1") = "" Then Exit Sub
Rows("3:3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("A1").Select
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
cn.Open "Driver={Microsoft Access Driver (*.mdb)};" _
& "DBQ=g:\あれ.mdb;" 'g:\あれ.mdb は適宜変更を
strSql = "select * from それ" _
& " where これ like '%" & Range("A1").Value & "%'" _
& " order by ID" 'AccessのSQL文を流用 ↑ADOなのでワイルドカードは%
rs.Open strSql, cn, 0, 1
For j = 0 To rs.fields.Count - 1
Cells(2, j + 1) = rs.fields(j).Name
Next
Application.ScreenUpdating = False
' Range("A3").CopyFromRecordset rs 'メモ型の文字数制約などが有ったため没
Do Until rs.EOF
i = i + 1
For j = 0 To rs.fields.Count - 1
Cells(i + 2, j + 1) = rs.fields(j)
Next
rs.movenext
Loop
Application.ScreenUpdating = True
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
End Sub
たたき台資料有難うございました。
色々調べて他4件との合作みたいな感じで
データ読み込むことに成功しました。
又、宜しくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「直需」の意味を教えてください
-
作番ってどういう意味でしょうか?
-
受注受付期間とはなんですか?...
-
マクロ転記で指定した列の最終...
-
アクセスのクエリで、前回に入...
-
Excel 2019 のピボットテーブル...
-
エクセルVBAで5行目からオート...
-
Accessでテーブル名やクエリ名...
-
SQL文の書き方
-
ACCESSのクエリで集計で、先頭...
-
セルの右クリックで出る項目を...
-
datファイルからaccessにインポ...
-
ACCESSでの改行コード
-
ACCESSで指定されたテーブルか...
-
Accessでコードを入れると名前...
-
Access 昇順・降順で並び替え...
-
複数列フィールド値のクロス集計
-
ORA-01722: 数値が無効です
-
2つのテーブルを比較して一致し...
-
Accessのクエリでデータの入力...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「直需」の意味を教えてください
-
作番ってどういう意味でしょうか?
-
「失注」の意味を教えてくださ...
-
受注受付期間とはなんですか?...
-
ACCESSで、DMax関数の条件の書き方
-
マクロ転記で指定した列の最終...
-
アクセスで営業日を計算させる...
-
データシート形式のサブフォー...
-
Access:サブフォームのレコー...
-
ACCESS2000の帳票フォーム詳細...
-
エクセル抽出・コード番号から...
-
Access2007 クエリ 累計求め方
-
アクセスのクエリで、前回に入...
-
ACCESS 選択した値を別...
-
ACCESSのメインフォームとサブ...
-
access 1対1と1対多のテーブ...
-
VBA でvlookup エラーなどは削...
-
ACCESSの同時にデータ入力★初心...
-
excelマクロの処理を早くしたい...
-
製造業向け受注生産型生産管理...
おすすめ情報