[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

[optime]

non vedo lo script

[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

[oregon]

Perché due for? La for deve essere una sola

[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