Import do Access přes makro – MS SQL – Fórum – Programujte.com

Zkouším importovat tabulku pomocí makra do access 2013. Základní makro je jednoduché:

Sub ImportXLS()
Dim db As DAO.Database
Set db = CurrentDb
On Error Resume Next:   db.TableDefs.Delete "Helios_testImport":   On Error GoTo 0
db.TableDefs.Refresh
DoCmd.TransferSpreadsheet _
    TransferType:=acImport, _
    SpreadsheetType:=acSpreadsheetTypeExcel9, _
    TableName:="Test", _
    FileName:="C:\Users\mezeraf\Desktop\Podúčty\Helios_test.xlsx", _
    HasFieldNames:=True, _
    Range:="List1!A1:H6504"
db.TableDefs.Refresh
db.Close:   Set db = Nothing
End Sub

Potíž nastane, když chci, aby se sloupce jmenovaly podle sloupců v tabulce a nikoliv, tak, jak se importuje z Excelu (včetně českých znaků, které následně dělají v Accessu potíže). Tam mi hlásí chybu, ať jsem nastavil Field na False nebo měnil Range.

V rámci Range mám taktéž problém, protože potřebuji načíst všechny záznamy (jejich počet se může měnit), pokud však nastavím Range jen na hodnoty A:H, hlásí mi makro chybu (neexistenci pole).

Nevíte jak tohle ošetřit. Moc dík. 

Tak jsem si sám zjistil, jak to jde :-)