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

• #21629 KaiotEch nagyúr Louro #21626

  Új Válasz 2014-05-15 08:44:45 #21629

  Ú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

  

  KaiotEch

  nagyúr

  válasz Louro #21626 üzenetére

  Már módosítottam ilyenre:

  Sub KIOLVAS()
  
  Sheets("Munka1").Select
  Cells.Select
  Selection.ClearContents
  With ActiveSheet.QueryTables.Add(Connection:= _
  "TEXT;C:\KIOLVASNIVALO.kit", Destination:=Range("A1"))
  .Name = "kiolv"
  .FieldNames = True
  .RowNumbers = False
  .FillAdjacentFormulas = False
  .PreserveFormatting = True
  .RefreshOnFileOpen = False
  .RefreshStyle = xlInsertDeleteCells
  .SavePassword = False
  .SaveData = True
  .AdjustColumnWidth = True
  .RefreshPeriod = 0
  .TextFilePromptOnRefresh = False
  .TextFilePlatform = 852
  .TextFileStartRow = 1
  .TextFileParseType = xlDelimited
  .TextFileTextQualifier = xlTextQualifierDoubleQuote
  .TextFileConsecutiveDelimiter = False
  .TextFileTabDelimiter = True
  .TextFileSemicolonDelimiter = False
  .TextFileCommaDelimiter = False
  .TextFileSpaceDelimiter = False
  .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)
  .TextFileTrailingMinusNumbers = True
  .Refresh BackgroundQuery:=False
  End With
  Sheets("Munka2").Select
  End Sub

  A tegnapi állománnyal jó volt, de a mait nem szeparálja szét cellákra. Az első oszlopba dobálja be.

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