Prikazi cijelu temu 23.12.2010 11:35
roko Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Rijeka


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):
  1. Dim App As Object
  2. Set App = CreateObject("Excel.Application")
  3. App.visible = True
  4. App.Workbooks.Open ("xls,csv,txt putanja")
  5. With App
  6. .visible = True 'False
  7.        With .Workbooks(.Workbooks.count)
  8.              For i = 1 To .Worksheets.count
  9.                 WrksheetName = .Worksheets(i).Name
  10.                DoCmd.TransferSpreadsheet (acImport), acSpreadsheetTypeExcel97, WrksheetName,("xls,csv,txt putanja"), True
  11.                Next
  12.         End With
  13. End With

Eto ako nekom treba .