Hello,
I need some help with the following issue.
The task is about importing more than 100 sheets from one excel file.
I tried with SavedImportExports, but it is not flexible for management.
Then I made some progress with Macro>ImportExportSpreadsheet - in design view and the modified in VBA to the following code.
It is working, but for some imports I receive error - "Record is too large".
Please for help how I can solve this?
===================
Option Compare Database
Function Macro1()
On Error GoTo Macro1_Err
DoCmd.TransferSpreadsheet acImport, 10, "TargetTable1", "SourceTable", True, "Sheet1$"
DoCmd.TransferSpreadsheet acImport, 10, "TargetTable1", "SourceTable", True, "Sheet2$"
.
DoCmd.TransferSpreadsheet acImport, 10, "TargetTableN", "SourceTable", True, "SheetN$"
Macro1_Exit:
Exit Function
Macro1_Err:
MsgBox Error$
Resume Macro1_Exit
End Function
===============
Thanks in advance!
I need some help with the following issue.
The task is about importing more than 100 sheets from one excel file.
I tried with SavedImportExports, but it is not flexible for management.
Then I made some progress with Macro>ImportExportSpreadsheet - in design view and the modified in VBA to the following code.
It is working, but for some imports I receive error - "Record is too large".
Please for help how I can solve this?
===================
Option Compare Database
Function Macro1()
On Error GoTo Macro1_Err
DoCmd.TransferSpreadsheet acImport, 10, "TargetTable1", "SourceTable", True, "Sheet1$"
DoCmd.TransferSpreadsheet acImport, 10, "TargetTable1", "SourceTable", True, "Sheet2$"
.
DoCmd.TransferSpreadsheet acImport, 10, "TargetTableN", "SourceTable", True, "SheetN$"
Macro1_Exit:
Exit Function
Macro1_Err:
MsgBox Error$
Resume Macro1_Exit
End Function
===============
Thanks in advance!