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

[fraude]

non vedo lo script

Scusate è rimasto sulla tastiera ... eccolo.

Adesso mi sono accorto che importa solo la prima riga del file input.txt duplicata in un loop infinito ...

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

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


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


      set TextRead = objFSO.OpenTextFile(TextFile,ForReading)


      row = 1


      With SheetObject
      
      Do Until TextRead.AtEndOfStream
          strLine = Trim(TextRead.ReadLine)
    
          If (strLine <> "") Then
              arrValues = Split(strLine, "|")
              For irow = 2 to Ubound(arrValues) + 1
                  For icol = 1 to Ubound(arrValues) + 1
                     SheetObject.Cells(irow, icol).value = arrValues(icol-1)
                  Next
               Next
          End If
          
      row = row + 1
          
      Loop      
                   
      End With      

      objWB.Save
      objWB.Close
      objExcel.Quit