下記のようなマクロを組んでMS Accessのクエリー結果をExcelに出力したいのですが「レコードがない」というエラーになります。正しいコーディングを教えてください。
Sub DataFromAccess()
Dim AccessApp As Object
Set AccessApp = CreateObject("Access.Application")
myDBName = "C:\MyAccess.mdb"
'出力先フルパス
xlsName = "C:\Invoice.xls"
With AccessApp
.Visible = True
.OpenCurrentDatabase myDBName, acViewNormal
.DoCmd.OutputTo acOutputQuery, "クエリー名", acFormatXLS, xlsName, True
.CloseCurrentDatabase
.Quit
End With
Set AccessApp = Nothing
End Sub
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
答えになっていませんが、ADOを使った方が楽だと思うのですが。
EXCEL&ACCESSデータベース連携テクニック 古川順平著
にいろんな例が載っていてたいていの事はそれのマネでいけますが。
この回答への補足
自己解決できましたので結果をご報告いたします
'***************************************
'ACCESSのクエリーを実行して結果をシート
'***************************************
Dim AcCon As ADODB.Connection
Dim AcCmd As ADODB.Command
Set AcCon = New ADODB.Connection
Set AcCmd = New ADODB.Command
'1. 対象DBとマクロ名を指定
Target_File_Name = "C:\test.mdb"
'2.アクセスの起動とマクロの実行
'2-1.Access DB を開く
AcCon.Open "Provider = Microsoft.Jet.OLEDB.4.0; _
Data Source =" & Target_File_Name
'2-2.クエリーを指定する
With AcCmd
.ActiveConnection = AcCon
.CommandText = "クエリー名"
End With
'2-3.クエリーを実行して結果をRecSetに入れる
Set RecSet = AcCmd.Execute
'2-4.Excelシートに吐き出す
Worksheets("シート名").Select
Range("A2").CopyFromRecordset RecSet
USB99さま
早々のご回答ありがとうございます。
ご紹介いただいた本は早々購入してみます。
今回の趣旨は私が使うというのではなく、Excelのマクロでデータ処理を自動化するのですが、途中Accessからデータを抜かなければならない箇所があり、ユーザにあれやれ、これやれとしたくないということです。ボタンワンクリックですべてできるようにしたいのです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) バックグラウンドのプロセスのエクセルを閉じる方法 4 2022/05/12 15:39
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) Excel VBAの解読について質問があります。 概要は、マクロでチェックボックスにチェックすると日 1 2023/02/10 07:50
- Visual Basic(VBA) IBM Notes9のメールをExcelVBAにて送信するコードについての質問です。 以下のコードを 3 2023/06/21 17:58
- Visual Basic(VBA) Wordマクロで指定したフォルダ名に保存する方法について 8 2022/12/13 11:35
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Excel VBAからAccessマクロを実行したい
Visual Basic(VBA)
-
エクセルからアクセスの更新クエリを実行するコード
Access(アクセス)
-
エクセルからアクセスのアクションクエリ エラー
Access(アクセス)
-
-
4
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
5
SQLでエラーです。
Visual Basic(VBA)
-
6
ExcelのマクロでAccessのmdbを起動したい
Excel(エクセル)
-
7
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
8
VBAのAccessでDATE型のINSERT
その他(データベース)
-
9
Access2003 クエリで、空の列は作れますか?
Access(アクセス)
-
10
エクセルからアクセスのプロシージャーを実行させるには?
Excel(エクセル)
-
11
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
詳しくないので、どなたかお教...
-
4Kの外部モニターに出力すると...
-
VBA レジストリの値の読み方に...
-
MMDでavi出力が出来ない
-
OBS配信すると、マイクが途切れ...
-
PIC16F1827のAD変換 PIC初心者...
-
ACCESS クエリ→フォーム...
-
Windows Formアプリからコンソ...
-
C# 標準出力のencodingをutf8に...
-
PS5をMacBookProに出力したいの...
-
コンピュータの仕組みについて
-
AIに回答させるって
-
printfとputcharの違いは
-
VBAで有効数字の設定
-
COBOLの桁落ち
-
VBAで出力したCSVファイルの先...
-
Accessの値をExcelに縦横入替出...
-
エクセルマクロで出力行の増や...
-
【UWSC】WEBページ中の特定文字...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
4Kの外部モニターに出力すると...
-
MMDでavi出力が出来ない
-
プログラムについての質問です...
-
コンセントの電力は入力と出力...
-
AIに回答させるって
-
OBS配信すると、マイクが途切れ...
-
VBAでテキスト出力時のスペース...
-
cout と cerrの違い
-
アクセスでエクセルに出力する...
-
printfとputcharの違いは
-
ACCESS クエリ→フォーム...
-
VBAのExecメソッドで画面を非表...
-
COBOLのMOVEで桁数が異なる場合
-
テキストファイルから特定の文...
-
VBAで有効数字の設定
-
coutで出力した文字を消去する...
-
Windows Formアプリからコンソ...
-
KEYENCEのシーケンスプログラム...
-
CRC16計算について
おすすめ情報