VBScript nach Excel: Unterschied zwischen den Versionen

Aus Thomas Wiki
Zur Navigation springen Zur Suche springen
(Die Seite wurde neu angelegt: „Aus VBScript kann eine Excel_Datei erzeugt und geschrieben werden. Dabe ist zu beachten, dass Visual Basic Script (VBScript) nicht immer die gleiche Syntax hat…“)
 
KKeine Bearbeitungszusammenfassung
Zeile 7: Zeile 7:
Set objExcel = createobject("Excel.application")
Set objExcel = createobject("Excel.application")
with objExcel
with objExcel
   .Visible = True 'zeigt Excel an (GUI startet) falls diese Zeile nicht angegeben wird, startet Excel im Hintergrund
   .Visible = True 'true zeigt Excel an, false nicht
   .Workbooks.add
   .Workbooks.add
   .Cells(1, 1).Value = "Testeintrag"'schreibt in Zeile 1 Spalte 1 "Testeintrag"  
   .Cells(1, 1).Value = "Schreibt dies in die Zelle ""A1"" "  
   .ActiveWorkbook.SaveAs(xlsxFilename)
   .ActiveWorkbook.SaveAs(xlsxFilename)
   .Quit
   .Quit
Zeile 24: Zeile 24:
   Set objWorkbook = .Workbooks.Open (xlsxFilename)
   Set objWorkbook = .Workbooks.Open (xlsxFilename)
   .Cells(1,1).Value="test"
   .Cells(1,1).Value="test"
   wscript.echo .Cells(1,1).Value
   wscript.echo .Cells(1,1).Value ' Liest den Wert aus der Zelle "A1"
   .ActiveWorkbook.Save
   .ActiveWorkbook.Save
  .Quit
end with  
end with  
Set objExcel = Nothing
Set objExcel = Nothing
</pre>
</pre>

Version vom 9. August 2018, 18:56 Uhr

Aus VBScript kann eine Excel_Datei erzeugt und geschrieben werden. Dabe ist zu beachten, dass Visual Basic Script (VBScript) nicht immer die gleiche Syntax hat, wie Visual basich for Applications (VBA).

Excel Datei erzeugen:

xlsxFilename ="c:\exceldatei.xlsx"
Set objExcel = createobject("Excel.application")
with objExcel
  .Visible = True 'true zeigt Excel an, false nicht
  .Workbooks.add
  .Cells(1, 1).Value = "Schreibt dies in die Zelle ""A1"" " 
  .ActiveWorkbook.SaveAs(xlsxFilename)
  .Quit
end with 
Set objExcel = Nothing

Aus Excel lesen / in Excel schreiben:

xlsxFilename ="c:\exceldatei.xlsx"
Set objExcel = CreateObject("Excel.Application")
with objExcel
  Set objWorkbook = .Workbooks.Open (xlsxFilename)
  .Cells(1,1).Value="test"
  wscript.echo .Cells(1,1).Value ' Liest den Wert aus der Zelle "A1"
  .ActiveWorkbook.Save
  .Quit
end with 
Set objExcel = Nothing