Witam,
Próbuję przenieść dane z arkusza Excel do pliku Access mdb.
Korzystam z kodu:
objAccess.DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Tabela", "C:\Bazy\Skoroszyt.xlsm", True, "Arkusz1!A:F"
Problem pojawia się, gdy chcę przenieść dane z kilku arkuszy w pętli.
Nie wiem jak odwołać się do konkretnego arkusza. Nie można tego zrobić w następujący sposób:
For i = 1 To 10
objAccess.DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Tabela", "C:\Bazy\Skoroszyt.xlsm", True, "Arkusz & i !A:F"
Next i
ponieważ błędnie jest interpretowana nazwa arkusza.
Być może trzeba użyć znaczków "" jako numera znaku Chr.
Ma ktoś może jakiś pomysł?
Z góry dziękuję |