大家好，今天给继续讲解VBA资料库解决方案的第13讲：如何获取资料库中的表的信息.在处理表，特别是查询的时候，我们需要一些表的信息，如表的名字，表的属性，那么有没有办法在程序中获得，并显示出来呢？

今天的内容就是讲解如何把一个资料库中的所有表的名称，性质列出来，并放到一个工作表文件中。资料库的讲解有时候是枯燥的，但不讲清楚很难再进行下一步的操作，只能按大概的先后顺序让读者慢慢的了解，掌握。有的朋友和我反馈说：都懂，就是代码写不出来，怎么办？其实这时你缺少的就是实践，一是要多实际练习，一是要紧扣自己的需求，比如工作遇到什么问题，马上以问题为切入点，细致的研究分析。我在初学VBA的时候为了弄懂一个知识点需要反复的测试，还要去问别人，但人家不告诉你啊，为了一个「WITH」的作用我问了好几遍，可没人真正的告诉你啊？那时真的很难，没有资料，求人难。现在好了，进入了知识的爆炸的年代，只要你想学，只要你肯学，肯于去专研，学会真的不难。

在我的讲解中，尽可能让讲解能浅显些，今日的问题如何解决呢？我们还是直接看代码，然后我再一步步的讲解吧。

Sub mynaGetTables() 获取所有表的名称

Dim catADO As Object

Dim myTable As Object

Dim strPath As String

Dim i As Integer

Set catADO = CreateObject("ADOX.Catalog")

strPath = ThisWorkbook.Path & "mydata2.accdb"

catADO.ActiveConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strPath

Cells.ClearContents

Cells(1, 1) = "数据表名"

Cells(1, 2) = "类型"

i = 1

For Each myTable In catADO.Tables

i = i + 1

Cells(i, 1) = myTable.Name

Cells(i, 2) = myTable.Type

Next myTable

Set myTable = Nothing

Set catADO = Nothing

End Sub

代码截图：

代码解读：

①

Set catADO = CreateObject("ADOX.Catalog")

strPath = ThisWorkbook.Path & "mydata2.accdb"

catADO.ActiveConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strPath

创建一个ADOX对象，并连接到资料库，资料库含地址为：strPath = ThisWorkbook.Path & "mydata2.accdb"

② Cells.ClearContents

Cells(1, 1) = "数据表名"

Cells(1, 2) = "类型"

清空工作表，并在A1 和B1 单元格写入表头

③For Each myTable In catADO.Tables

i = i + 1

Cells(i, 1) = myTable.Name

Cells(i, 2) = myTable.Type

Next myTable

这里用了一个FOR EACH循环，对对象中的每一个表进行名称和属性的提取，并记录。同时写道工作表中。这里用的是循环语句，详细大家通过VBA的学习应该不陌生吧？

下面我们先看看ACCESS中的表，显示系统表后是什么样子：

上面用红色框框起来的是系统表。一般情况下这些系统表是隐藏的，读者如果想查看，可以选择显示即可，关于ACCESS的设置不做详细的解释了。

看我们的代码运行结果：

今日内容回向：

1 如何能够把资料库中表的名称和属性全部显示出来呢？

2 是否清楚哪些是系统表和自己建立的表了吗？

《VBA代码解决方案》系列电子书，是我将一些非常实用的VBA内容结集成册，PDF格式文件，朋友们可以从中查找到你想要解决问题的思路和方法，可以复制文中的VBA代码直接使用。有需要的朋友微信联络我NZ9668。


推荐阅读：
相关文章