VBA：Accessの全クエリのSQL文を一括で出力する方法
１．やりたいこと
Accessにある複数のクエリのSQLを一括でテキストファイルなどに出力することで、どこのクエリで改修対象のカラムを利用しているか調べたい。
２．サンプルコード
以下のサンプルコードを実行するとAccessの全クエリのSQL文を指定したテキストファイルに出力します。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
Sub get_AllQuery_SQL() Dim db As DAO.Database Dim qdf As DAO.QueryDef Dim output As String Dim f As Integer Set db = CurrentDb '//クエリのSQL取得' For Each qdf In db.QueryDefs output = output & "クエリ名：" & qdf.Name & vbCrLf & "SQL：" & qdf.Sql & vbCrLf & String(50, "-") & vbCrLf Next qdf 'Debug.Print output' '//テキストファイルに保存' f = FreeFile 'ここで指定したテキストファイルに出力されます' Open "C:\Users\xxxxx\Desktop\全クエリSQL一覧.txt" For Output As #f Print #f, output Close #f MsgBox "保存しました。" End Sub |
◆関連記事
AccessVBA：【DoCmd】【TransferSpreadsheetメソッド】Excelの取込み(インポート)と出力(エクスポート)
【DoCmd】「TransferSpreadsheet」を使ったExcelの入力(インポート)と出力(エクスポート)の方法について
VBA：【ADO】【取込み】ExcelファイルのAccessテーブルへのインポート・取込み「SQL文」
【VBA】ExcelファイルのAccessテーブルへのインポート・取込み方法。「ADO」と「SQL文」利用。
VBA：【ADO】【取込み】CSVファイルのAccessテーブルへのインポート・取込み「SQL文」
【VBA】CSVファイルのAccessテーブルへのインポート・取込み方法。「ADO」と「SQL文」利用。
