Predmet:Re: Import CSV ili txt access
Da zxz nije imao zarez nego neki znak a drugi unos je imao vbCr
PreuzmiIzvorni kôd (Visual Basic):Dim App As Object
Set App = CreateObject("Excel.Application")
App.visible = True
App.Workbooks.Open ("xls,csv,txt putanja")
With App
.visible = True 'False
With .Workbooks(.Workbooks.count)
For i = 1 To .Worksheets.count
WrksheetName = .Worksheets(i).Name
DoCmd.TransferSpreadsheet (acImport), acSpreadsheetTypeExcel97, WrksheetName,("xls,csv,txt putanja"), True
Next
End With
End With
Eto ako nekom treba .