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

[fraude]

Ciao a tutti.

Utilizzo questo codice VBScript per provare a importare sul file excel output.xlsx il file di testo input.txt, i cui valori sono delimitati dal simbolo pipeline "|".

Questo è il file di testo input.txt :
Immagine.jpg

Questo è il file excel output.xlsx
Immagine1.jpg

Questo codice non ha errori ... ma inizia un ciclo infinito, che mi costringe a bloccare l'esecuzione di VBScript.

Il file di testo input.txt contiene 34 righe ... ma questo script importa righe infinite duplicando sempre le stesse righe ... andando ben oltre le sole 34 righe.

Come risolverlo?

Grazie in anticipo per qualsiasi aiuto, davvero apprezzato.

     

      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