I need to get only all the table names from any database using vba?code,
If anyone has a solution for this please share it.
ThankYou
I need to get only all the table names from any database using vba?code,
If anyone has a solution for this please share it.
ThankYou
Try this code
Sub Get_Access_Tables()
Dim DB As Database
Dim T As TableDef
Dim filPath As String
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.Show
filePath = .SelectedItems(1)
End With
Set DB = OpenDatabase(filePath)
For Each T In DB.TableDefs
MsgBox T.Name
Next
End Sub
To run this you have to enable the correct reference library in VBA.
In the VBA Editor window, go to Tools > References and put a check mark next to the entry that looks like this:
Microsoft Office ##.# Access database engine Object Library
or
Microsoft DAO Library 3.6
Use the last one if you are on an older version of Excel.
The # sign stands for a number; in my case it is 16.0