[VBScript] Importazione di file .txt in file .xlsx

[fraude]

Perché due for? La for deve essere una sola

Risolto, grazie e buon we !

ExcelFilePath = "D:\xlsx\output.xlsx"

  Set objExcel = CreateObject("Excel.Application")
  objExcel.visible = True
  Set objWB = objExcel.Workbooks.Open(ExcelFilePath)
  Set SheetObject = objWB.Worksheets("Sheet1")


  TextFile = "D:\txt\input.txt"


  Set TextRead = objFSO.OpenTextFile(TextFile, ForReading)


  row = 2


  With SheetObject


  Do Until TextRead.AtEndOfStream
      strLine = Trim(TextRead.ReadLine)


      If (strLine <> "") Then             
          arrValues = Split(strLine, "|")
          For icol = 1 to Ubound(arrValues) + 1
             SheetObject.Cells(row, icol).value = arrValues(icol-1)
          Next
      End If
      row = row + 1
  Loop  


  End With