读取Excel文件工作表名称

我有一个导出过程，可将数据从 Access 表传输到 Excel 文件。有几次我遇到了问题，该过程没有在 Excel 中生成一张或多张工作表（1 张工作表 = 1 个表格）。因此，当传输完成后，我希望 Access 检查所有工作表是否都位于 Excel 文件中。我已经完成了大部分检查流程，现在我需要的是一种将 Excel 文件中的工作表名称“读取”到表格中的方法。如何读取工作表名称（而不是数据）？

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

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

为该过程提供工作簿文件的完整路径作为其工作簿范围。

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