Je nach Anwendungsfall könnte es sein, dass sie in einem bestehenden Excel über GuiXT einfach eine Zeile ergänzen möchten.
Dies können Sie mit untentstehendem VBS Script durchführen:

Als Parameter werden:

  • Name des Excelfiles inkl. Pfad
  • Anzahl der zu ergänzenden Zeilen

übergeben

In dem VBS wird als Beispiel die GuiXT Variable V[Var_2.1] in die Zelle i,1 übertragen, wobei i die nächste freie Zeile im Excel darstellt.

Function EXEL_ADD_LINES(Filename , Anzahl)
 'open Excel file for update
 Dim XL
 Dim Last
 Set XL = guixt.CreateObject("Excel.Application")
 'Excel Dunkel ablaufen lassen
 XL.Visible = False
 Set WB = XL.WorkBooks.Open(Filename)
 'Get the Number of Rows used in the Excel sheet
 RowCount = WB.Sheets(1).UsedRange.Rows.count
 ' ab nächster Zeile Daten füllen
 RowCount = RowCount + 1
 Last = RowCount + Anzahl
 Dim g
 g = 2
 For i = RowCount To Last

XL.Cells(i,1).Value = guixt.Get("Var_" & g & ".1")
 XL.Cells(i,2).Value = guixt.Get("Var_" & g & ".2")
 XL.Cells(i,3).Value = guixt.Get("Var_" & g & ".3")
 XL.Cells(i,4).Value = guixt.Get("Var_" & g & ".4")
 XL.Cells(i,5).Value = guixt.Get("Var_" & g & ".5")
 XL.Cells(i,6).Value = guixt.Get("Var_" & g & ".6")
 XL.Cells(i,7).Value = guixt.Get("Var_" & g & ".7")
 XL.Cells(i,8).Value = guixt.Get("Var_" & g & ".8")
 XL.Cells(i,9).Value = guixt.Get("Var_" & g & ".9")
 XL.Cells(i,10).Value = guixt.Get("Var_" & g & ".10")
 XL.Cells(i,11).Value = guixt.Get("Var_" & g & ".11")
 XL.Cells(i,12).Value = guixt.Get("Var_" & g & ".12")
 XL.Cells(i,13).Value = guixt.Get("Var_" & g & ".13")
 XL.Cells(i,14).Value = guixt.Get("Var_" & g & ".14")
 g = g + 1
 Next
 WB.Save
 WB.Close
 XL.Quit
 End Function

Empfehlen