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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
Accessのスプレッドシートエクスポートで、シートが追加されてしまう
Access(アクセス)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
-
4
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
5
AccessでクエリしたデータをExcelに貼り付け
Excel(エクセル)
-
6
アクセスからエクセルのシートを追加して、名前をつける方法
Excel(エクセル)
-
7
accessデータを指定したExcel、そして指定したセルへエクスポートするaccess VBAコー
Access(アクセス)
-
8
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
9
テーブルに表示されているものがクエリに表示されない
Access(アクセス)
-
10
ACCESSにEXCELからインポートした時に先頭に空列ができる
Excel(エクセル)
-
11
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
12
Accessでエクセル出力の保存先指定
その他(データベース)
-
13
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
14
アクセスにエクセルのデータを貼り付ける方法について
その他(Microsoft Office)
-
15
EXCELの外部データ取得ができない
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
パワーポイントをエクセルファ...
-
エクセルで「500時間」を「何日...
-
エクセルに変な矢印が出てクリ...
-
エクセル関数の解読サイトなん...
-
エクセルで数値の上3桁で切捨...
-
Accessのクエリの結果を、既存...
-
エクセル 列の最大数はIV?
-
xl
-
エクセルで検索して、ヒットセ...
-
エクセルで⑤番の操作が分かりま...
-
エクセルのマウス操作(左クリ...
-
エクセルでマニュアルの図や表...
-
エクセルで用紙の折り目を
-
エクセルに貼った画像が変形し...
-
Exel ドロップダウンリスト ...
-
筆ぐるめ、住所録!
-
差し込み印刷での小数点表示に...
-
エクセル共有違反、自分の名前...
-
エクセルのスペルチェックが灰...
-
エクセルで+、-、×をランダム...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
パワーポイントをエクセルファ...
-
エクセルで「500時間」を「何日...
-
エクセル 列の最大数はIV?
-
エクセルに変な矢印が出てクリ...
-
エクセル関数の解読サイトなん...
-
xl
-
エクセルで数値の上3桁で切捨...
-
エクセルで使えるかわいい枠を...
-
エクセルで検索して、ヒットセ...
-
エクセルのマウス操作(左クリ...
-
差し込み印刷での小数点表示に...
-
添付のエクセルの車検証・運転...
-
エクセルデータをメモ帳に
-
Accessのクエリの結果を、既存...
-
web上にあるエクセルをショート...
-
「ジャストカルク」を使用中の方へ
-
エクセルに貼った画像が変形し...
-
エクセル関数を使用して。
-
エクセルVBAで2つのマクロ...
-
これを作りたいんですがエクセ...
おすすめ情報