MS Access 2010：如何将所有生成表查询字段导出到 Excel

Question

我想将我的所有查询从 MS Access 导出到 Excel。我目前能够导出所有非生成表查询，但是，我没有看到生成表查询弹出。有没有办法以类似的方式导出生成表查询？谢谢。

Sub ListQueriesAndFields()
 'Macro Purpose:  Write all Query and field names to and Excel file
 'Source:  vbaexpress.com/kb/getarticle.php?kb_id=707
 'Updates by Derek - Added column headers, modified base setting for loop to include all fields,
 '                   added type, size, and description properties to export
 'Updates by Alex - Converted to be used for Queries instead of Tables.

Dim lTbl As Long
Dim lFld As Long
Dim dBase As Database
Dim xlApp As Object
Dim wbExcel As Object
Dim lRow As Long

 'Set current database to a variable and create a new Excel instance
Set dBase = CurrentDb
Set xlApp = CreateObject("Excel.Application")
Set wbExcel = xlApp.workbooks.Add

 'Set on error in case there are no tables
On Error Resume Next

'DJK 2011/01/27 - Added in column headers below
lRow = 1
With wbExcel.sheets(1)
    .Range("A" & lRow) = "Table Name"
    .Range("B" & lRow) = "Field Name"
    .Range("C" & lRow) = "Type"
    .Range("D" & lRow) = "Size"
    .Range("E" & lRow) = "Description"
End With


'AMK - Converted 5/2/2016 for use with Queries instead of Tables
For lQry = 0 To dBase.QueryDefs.Count
     'If the table name is a temporary or system table then ignore it
    If Left(dBase.QueryDefs(lQry).Name, 1) = "~" Or _
    Left(dBase.QueryDefs(lQry).Name, 4) = "MSYS" Then
         '~ indicates a temporary table
         'MSYS indicates a system level table
    Else
         'Otherwise, loop through each query, writing the query and field names
         'to the Excel file
        For lFld = 0 To dBase.QueryDefs(lQry).Fields.Count - 1  'DJK 2011/01/27 - Changed initial base from 1 to 0, and added type, size, and description
            lRow = lRow + 1
            With wbExcel.sheets(1)
                .Range("A" & lRow) = dBase.QueryDefs(lQry).Name
                .Range("B" & lRow) = dBase.QueryDefs(lQry).Fields(lFld).Name
                .Range("C" & lRow) = dBase.QueryDefs(lQry).Fields(lFld).Type
                .Range("D" & lRow) = dBase.QueryDefs(lQry).Fields(lFld).Size
                .Range("E" & lRow) = dBase.QueryDefs(lQry).Fields(lFld).Properties("Description")
            End With
        Next lFld
    End If
Next lQry
 'Resume error breaks
On Error GoTo 0

 'Set Excel to visible and release it from memory
xlApp.Visible = True
Set xlApp = Nothing
Set wbExcel = Nothing

 'Release database object from memory
Set dBase = Nothing

结束子

Answer 1

你所拥有的应该可以工作。我有一个与您的完全一样的导出例程（在 QueryDef 部分），它还使用Type = dbQMakeTable 提取查询。

但是，生成表查询可能没有字段名称，因此您的第二个 For 循环不会产生任何结果，让您认为它不起作用。

使用您的调试器检查您是否获得了 Make Table Queries，然后检查字段。也许这些查询只设置了SQL 来制作表格。然后，您可以分析 SQL。好像是CREATE TABLE <name> (<fields...>);