Új hozzászólás Aktív témák

• #17163 sztanozs veterán zsolti_20 #17159

  Új Válasz 2022-03-10 11:04:27 #17163

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  sztanozs

  veterán

  válasz zsolti_20 #17159 üzenetére

  Beimportálod, és megnézed, hány oszlopa van
  Sub CSV_Import()
Dim ws As Worksheet, strFile As String
Set ws = ActiveWorkbook.Sheets("PO Data") 'set to current worksheet name
strFile = Application.GetOpenFilename("Text Files (*.csv),*.csv", , "Please select text file...")
With ws.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=ws.Range("A1"))
.TextFileParseType = xlDelimited
.TextFileCommaDelimiter = True
.Refresh
End With
End Sub

• #17162 disy68 aktív tag zsolti_20 #17159

  Új Válasz 2022-03-10 10:31:24 #17162

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  disy68

  aktív tag

  válasz zsolti_20 #17159 üzenetére

  Ha ismered a formátumot (escape karakter, elválasztó, van header), akkor keress egy neked megfelelő nyelven írott csv parsert és bízd arra, ahelyett, hogy magad fejleszted le újra.

• #17160 martonx veterán zsolti_20 #17159

  Új Válasz 2022-03-10 07:38:22 #17160

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  martonx

  veterán

  válasz zsolti_20 #17159 üzenetére

  Legelső sort vesszonkent dobd szét. Arra figyelj oda, hogy a mezőkben szereplő vesszők legyenek escapelve, és voilá.

Új hozzászólás Aktív témák