RE: Get Excel Worksheet Names for Importing into Access Tables

  • Thread starter Thread starter Klatuu
  • Start date Start date
K

Klatuu

Here is a basic routine that will return all the names of worksheets in a
workbook:

Public Function WorkSheetNames() As Boolean
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Set xlApp = CreateObject("Excel.application")
Set xlBook = xlApp.Workbooks.Open("c:\MyWorkBook.xls", 0, True)
For Each xlSheet In xlBook.Worksheets
Debug.Print xlSheet.Name
Next xlSheet
xlBook.Close False
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
Set xlSheet = Nothing
End Function
 
Back
Top