阅读Excel文件表名称

我有一个导出过程将数据从我的Access表传输到Excel文件。 有几次，我遇到了一些问题，在Excel中，这个过程并没有生成一个或多个表（1表= 1表）。 所以当传输完成后，我想访问检查是否所有的工作表都位于Excel文件中。 我大部分的检查过程已经解决了我现在需要的一种方法，就是将表格名称从Excel文件中“读取”到表格中。 我怎样才能读取表名（而不是数据）？

Answer 1

从Access中，您可以自动化Excel，打开工作簿文件，并从Worksheets集合中读取工作表名称。

此示例使用后期绑定。 如果您更喜欢早期绑定，请为Microsoft Excel [版本]对象库添加引用，并启用“早期”行而不是“迟到”行。

为程序提供工作簿文件的完整path作为它的pWorkBook参数。

 Public Sub List_worksheets(ByVal pWorkBook As String) 'Dim objExc As Excel.Application ' early 'Dim objWbk As Excel.Workbook ' early 'Dim objWsh As Excel.Worksheet ' early Dim objExc As Object ' late Dim objWbk As Object ' late Dim objWsh As Object ' late 'Set objExc = New Excel.Application ' early Set objExc = CreateObject("Excel.Application") ' late Set objWbk = objExc.Workbooks.Open(pWorkBook) For Each objWsh In objWbk.Worksheets Debug.Print objWsh.Name Next Set objWsh = Nothing objWbk.Close Set objWbk = Nothing objExc.Quit Set objExc = Nothing End Sub