I hope someone can help me with what will probably end up being an easy problem that I'm overlooking. I have a public module set-up to import multiple .xlxs files from a folder location. It has been working fine. However, I changed the name of the table (by right clicking and rename) and changed the name in the vba code to match "SpecialistTbl". Now, the information will no longer import. I do not receive an error, the information is just not in the table when I check. I'm not sure what I could have done as I only renamed the table. Here is the VBA info. Any ideas?
Public Sub Import()
Dim pShell As Object, pFolder As Object
Dim pItems As Object, pItem As Object
Set pShell = CreateObject("Shell.Application")
Set pFolder = pShell.Namespace("h:\testimportaccess")
Set pItems = pFolder.Items
pItems.Filter 64, "*.xlsx"
If pItems.Count > 0 Then
For Each pItem In pItems
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "SpecialistTbl", pItem.Path, False, "$A:$O"
Next
End If
End Sub
Public Sub Import()
Dim pShell As Object, pFolder As Object
Dim pItems As Object, pItem As Object
Set pShell = CreateObject("Shell.Application")
Set pFolder = pShell.Namespace("h:\testimportaccess")
Set pItems = pFolder.Items
pItems.Filter 64, "*.xlsx"
If pItems.Count > 0 Then
For Each pItem In pItems
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "SpecialistTbl", pItem.Path, False, "$A:$O"
Next
End If
End Sub
