VBScript nach Excel: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
Thomas (Diskussion | Beiträge) (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…“) |
Thomas (Diskussion | Beiträge) 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 | .Visible = True 'true zeigt Excel an, false nicht | ||
.Workbooks.add | .Workbooks.add | ||
.Cells(1, 1).Value = " | .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