Question

我编写了一个代码，用于获取访问数据库中存在的表的名称。以下是代码：

Private Sub Commande49_Click()
    Dim tbl As AccessObject, db As Object
    Dim strMsg As String
    Dim strOut As String
    Set db = Application.CurrentData
    For Each tbl In db.AllTables
    If Not Left(tbl.Name, 4) = "MSys" Then
    Msgbox tbl.Name
    End If
    Next tbl
End Sub

我想知道如何检索每个表的列名并在Excel工作表中显示表名和列名。 Kndly在这个问题上帮助我。

Answer 1

如果您当前的代码有效（虽然我不会这样写），如果您的db是DAO.Database，您可以添加：

    for each f in db.tabledefs(tbl.name).fields
        debug.print f.name
    next f

从vba访问中的表中获取列名

1 个答案: