上記方法を御教示ください。
画像ファイルで具体的に記載致しましたので、画像ファイルをご参照ください。
よろしくお願いします。
■ 前提条件
(1) 複数フォルダの中に共通のAccessが入っている。
(2) (1)のAccessの中には、共通のマスタがある。
■ 今回やりたい事
(3) (2)のマスタのデータを、全て、複数フォルダの同階層にあるAccessへ集約したい。
■ 御教示頂きたい事
上記実現するには、どのようなVBAを組めばよいかを御教示ください。
(画像ファイルの例でご回答を頂けますと助かります)
No.3ベストアンサー
- 回答日時:
こんな感じで。
Option Compare Database
Option Explicit
Const strFile = "\作業.accdb"
Dim FSO As FileSystemObject
Dim Col As Collection
Sub Sample()
Dim strSQL As String
Dim dbs As DAO.Database
Dim C As Variant
Set FSO = New FileSystemObject
Set Col = New Collection
'フォルダ取得
GetFolders FSO.GetFolder("C:\サンプルデータ\test")
'追加クエリ
Set dbs = CurrentDb
For Each C In Col
strSQL = "INSERT INTO 集約後作業tbl " & _
"SELECT * FROM マスタtbl IN '" & C & strFile & "'"
dbs.Execute strSQL
Next
Set dbs = Nothing
Set Col = Nothing
Set FSO = Nothing
End Sub
Sub GetFolders(Fol As Folder)
Dim Subf As Folder
If FSO.FileExists(Fol.Path & strFile) Then
Col.Add Fol.Path
End If
'サブフォルダ検索
For Each Subf In Fol.SubFolders
GetFolders Subf
Next
End Sub
Microsoft Scripting Runtime の参照設定が必要です。
エラー処理とか入ってない、あくまでもサンプルです。
集約後作業tbl は作成済みであること。
No.4
- 回答日時:
No3 です。
'フォルダ取得
GetFolders FSO.GetFolder(CurrentProject.Path)
の方が良かったかな?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Access VBA を利用して、フォルダ内のファイルの名称を変更したい 1 2023/08/03 08:27
- Excel(エクセル) Excel、同じフォルダ内のExcelファイルの特定シートのみを1つのファイルに集約したい 8 2022/09/07 15:12
- Visual Basic(VBA) 複数ファイルのデータの統合について 12 2022/05/14 12:03
- Access(アクセス) access,vbaでフォルダ内のファイルをテーブルにインポート、ファイル名もフィールドに追加したい 1 2022/08/31 11:11
- Excel(エクセル) EXCEL マクロで 同じフォルダ内の複数ファイルの複数行全体を選択して1つのファイルに集約 4 2022/09/27 18:41
- Access(アクセス) Accessにインポートした複数のテーブルを表示させる方法が分かりません。 1 2023/01/30 20:22
- Visual Basic(VBA) VBAで特定の場所にあるCSVファイル(複数)から特定場所を抜き出してExcelに転記したいです。 11 2023/05/23 16:29
- Excel(エクセル) エクセル、画像ファイル名の書かれたセル(複数個所)に画像を一括で表示させる方法 1 2023/04/19 00:19
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- Excel(エクセル) エクセル表作成について 5 2023/03/12 13:25
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ACCESS 複数テーブル・複数フィ...
-
Access レコードを追加できませ...
-
複数あるAccessのテーブルを一...
-
【Access】外部結合を行う前に...
-
列が255以上のCSVファイルをAcc...
-
INSERT文で発行したオートナン...
-
オラクルで
-
SQLの作り方
-
Viewにインデックスは張れ...
-
データを削除しても表領域の使...
-
CLOB型へのINSERT
-
異なるスキーマからデータを抽...
-
ORA-00959: 表領域'****'は...
-
テーブル名を[]でくくらないと...
-
特定のスキーマのテーブルを一...
-
エクセルからアクセスにインポ...
-
SQLでスキーマ名(所有者名)の...
-
postgreSQLのint型は桁数指定が...
-
(ACCESS)複数mdbからのデータ...
-
テーブルからのselectにおいて...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access レコードを追加できませ...
-
ACCESS 複数テーブル・複数フィ...
-
検索結果の列数を動的に変更したい
-
【Access】外部結合を行う前に...
-
INSERT文で発行したオートナン...
-
列が255以上のCSVファイルをAcc...
-
AccessのInsertクエリのあとつ...
-
コンボボックスの2段階絞込み
-
複数テーブルをひとつのテーブ...
-
ACCESSでの文字列の比較
-
売価変更がある商品の売上金額
-
お知恵をお貸しください。
-
複数あるAccessのテーブルを一...
-
Access2002 マスタテーブル変更...
-
Accessのテーブル内の文字の置...
-
AS/400のDBについて
-
検索フォームで検索するものが...
-
Access2000での複合検索について
-
データベースの正規化について
-
Accessで、マスター情報を参照...
おすすめ情報