
Access2016を使用しています。
以下のことをAccessのvbaでやりたいと思っています
・クエリで抽出したレコード(複数)を、既存のエクセルに追加(コピペ)したい
・エクセルには、A列に「番号」(1~9999)が既に入力されていて、B列~W列まで貼り付けたい
・クエリのフィールドは、貼り付け先のエクセルと同じにしています
(クエリのA列は空欄なので、エクセルの番号がそのまま残る)
・例えば、エクセルA列の番号333までデータがある場合で、クエリの結果が3行の場合、
エクセルA列334,3335,3336の行に、クエリの結果をB~W列まで貼り付けたい
・クエリの結果を普通にコピペすると先頭行(フィールド名)までコピーされるが、フィールド名は不要
・可能なら、その後、エクセルA列の値をクエリにコピペしたい(例だと、クエリのA列の空欄3行分に、334,335,336を張り付ける)
現状では、上記を一連の流れで行うvbaがよくわからず、、
ネットで調べたものを元に
Set objExcel = CreateObject("Excel.Application")
でクエリの結果を新しいエクセルにして出力して、それを手動でコピペしています。
クエリの結果を、既存のエクセルに挿入するのは難しいのかな?と思い、
クエリの結果を新しいエクセルに出力した後に、新しいエクセルを操作することで、
新しいエクセルのデータを、既存のエクセルにコピペする方が良いのかな?と思ったのですが、
Access上で、新しいエクセルのデータをコピーする方法もよくわからず、困っています。
どなたか教えて頂けないでしょうか
No.2ベストアンサー
- 回答日時:
>以下のことをAccessのvbaでやりたいと思っています
Access側の標準モジュールに貼り付けて下さい。
ご質問文の仕様になるべくあわせました。
オートメーション操作の基本的なサンプルです。
余談です。
今回はクエリ1の都合で1つ1つループで回しましたが、Range オブジェクトの CopyFromRecordset メソッドを使ってバーンとやった方が楽です。調べてみて下さい。
No.1
- 回答日時:
Sub sampleProc()
'参照設定してないのでExcelの定数を定義
Const xlUp As Long = &HFFFFEFBE
'Access クエリ1 を開いてレコードセットを作成
Dim DB As DAO.Database: Set DB = CurrentDb
Dim rs As DAO.Recordset
Set rs = DB.OpenRecordset("クエリ1")
'Accessレコード 0 件チェック
If rs.BOF And rs.EOF Then
MsgBox "該当のレコードはありません", vbInformation
Exit Sub
End If
'新たに Excel を起動
Dim xlApp As Object 'Excel.Application
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
'Excel Accessファイルと同じフォルダ内のブックを開いてオブジェクト変数へ参照
Dim xls_filename As String: xls_filename = CurrentProject.Path & "\test.xlsx"
Dim wb As Object 'Excel.Workbook
Set wb = xlApp.Workbooks.Open(xls_filename)
'Excelワークシートをオブジェクト変数へ参照
Dim sh As Object 'Excel.Worksheet
Set sh = wb.Worksheets("Sheet1")
'Excel B列で最終セルの1行下が書き込み位置
Dim pos_rownum As Long
pos_rownum = sh.Cells(sh.Rows.Count, "B").end(xlUp).Row + 1
'Excel 今回はループでセルに書き込んで行きます
'Fields のインデックスは 0 ベースであることに注意
Do While Not rs.EOF
'クエリ1の2番目以降のフィールドをセルに書込み
Dim pos_colnum As Long: pos_colnum = 2
Dim i As Long
For i = 1 To rs.Fields.Count - 1
sh.Cells(pos_rownum, pos_colnum).Value = rs.Fields(i).Value
pos_colnum = pos_colnum + 1
Next
'クエリ1の1列目(インデックス0)をA列のセルの値で更新
rs.Edit
rs.Fields(0).Value = sh.Cells(pos_rownum, "A").Value
rs.Update
'次のレコードへ移動
pos_rownum = pos_rownum + 1
rs.MoveNext
Loop
'終了とりあえずExcelはそのまま閉じないで前面表示させる
xlApp.Visible = True
xlApp.ActiveWindow.Activate
Set sh = Nothing: Set wb = Nothing: Set xlApp = Nothing
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Accessのスプレッドシートエクスポートで、シートが追加されてしまう 2 2022/07/16 21:45
- その他(データベース) 更新クエリをリンクデータベーステーブルに実行し実行時エラー3362固有インデックスに重複する値が含ま 1 2022/09/21 11:44
- Excel(エクセル) EXCELの外部データ取得ができない 1 2023/03/23 09:03
- Excel(エクセル) PHPプログラムをエクセルに張り付けると検索ボックスがでてくる! 3 2022/05/08 07:10
- Excel(エクセル) エクセルで沢山のレコードの最後に追記するには? 7 2023/04/10 13:27
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- Word(ワード) LibreOfficeで数年保存しているデータの変更作業 4 2022/07/08 17:15
- Excel(エクセル) エクセルデータからの必要項目抽出方法を教えてください 6 2022/08/12 15:55
- Access(アクセス) Access DAOのExecuteメソッドのオプション(RecordsetOptionEnum)に 1 2022/09/19 07:34
- その他(データベース) Accessのクエリで1フィールドの抽出条件設定をNullでなく全角半角含む空白のみの文字列でない文 1 2023/04/24 15:20
このQ&Aを見た人はこんなQ&Aも見ています
-
これまでで一番「情けなかったとき」はいつですか?
これまでの人生で一番「情けない」と感じていたときはいつですか? そこからどう変化していきましたか?
-
人生最悪の忘れ物
今までの人生での「最悪の忘れ物」を教えてください。 私の「最悪の忘れ物」は「財布」です。
-
もし10億円当たったら何に使いますか?
みなさんの10億円プランが知りたいです!
-
この人頭いいなと思ったエピソード
一緒にいたときに「この人頭いいな」と思ったエピソードを教えてください
-
一番好きなみそ汁の具材は?
みんなで大好きなみそ汁の具材について語り合おうよっ!
-
Accessのスプレッドシートエクスポートで、シートが追加されてしまう
Access(アクセス)
-
accessデータを指定したExcel、そして指定したセルへエクスポートするaccess VBAコー
Access(アクセス)
-
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
-
4
エクセルの指定したシートにエクスポート
その他(データベース)
-
5
アクセスクエリ(複数)→マクロ→エクセル出力(ワークシート別)
その他(パソコン・スマホ・電化製品)
-
6
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
7
【Access】テーブルをエクスポートする際、ファイル名末尾に日付をつけたい!
Windows 10
-
8
Access2003 クエリで、空の列は作れますか?
Access(アクセス)
-
9
アクセスからエクセルのシートを追加して、名前をつける方法
Excel(エクセル)
-
10
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
11
accessでクエリをExcelにエクスポートする時にファイル名に日付を追加したい
Access(アクセス)
-
12
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
13
ACCESS VBA でのエラー解決の根拠がわかりません エラー「イベントプロパティに指定した式・・
Access(アクセス)
-
14
Accessのテーブルを既存のExcelファイルへエクスポートしたいんですが
Access(アクセス)
-
15
Excel VBAからAccessマクロを実行したい
Visual Basic(VBA)
-
16
Access複数のクエリをExcelの1シートに出力
Excel(エクセル)
-
17
アクセスvbaでエクセルブックを保存
その他(Microsoft Office)
-
18
アクセスでエクセルに出力する際のファイル名を日付に
その他(Microsoft Office)
-
19
Accessでデータシートに同じデータがいくつもでてしまいます。
その他(データベース)
-
20
ACCESSのフォームで列固定?
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
パワーポイントをエクセルファ...
-
エクセルで「500時間」を「何日...
-
エクセル 列の最大数はIV?
-
エクセル関数の解読サイトなん...
-
エクセルで数値の上3桁で切捨...
-
エクセルで使えるかわいい枠を...
-
エクセル、形式を選択して貼り...
-
エクセルで検索して、ヒットセ...
-
Accessのクエリの結果を、既存...
-
エクセルの起動時のロゴの非表...
-
xl
-
差し込み印刷での小数点表示に...
-
「ジャストカルク」を使用中の方へ
-
エクセルに貼った画像が変形し...
-
エクセルのマウス操作(左クリ...
-
Access チェックボックスを押...
-
エクセル関数を使用して。
-
webページをエクセルに変換したい
-
エクセルのEってなんですか?二...
-
VBAPrpjectが表示できません?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
パワーポイントをエクセルファ...
-
エクセルで「500時間」を「何日...
-
エクセルで検索して、ヒットセ...
-
エクセル 列の最大数はIV?
-
エクセル関数の解読サイトなん...
-
エクセルで数値の上3桁で切捨...
-
xl
-
エクセルで使えるかわいい枠を...
-
エクセルのマウス操作(左クリ...
-
「ジャストカルク」を使用中の方へ
-
Accessのクエリの結果を、既存...
-
エクセルに変な矢印が出てクリ...
-
エクセルに貼った画像が変形し...
-
エクセルでの囲い文字
-
並び順の違う2つのエクセル表
-
エクセルVBAで2つのマクロ...
-
差し込み印刷での小数点表示に...
-
【エクセル】 右端のスクロー...
-
forms用エクセル いきなり、for...
-
エクセル日記で10年日記を
おすすめ情報