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) K (Kategorien eingefügt) |
||
| (Eine dazwischenliegende Version desselben Benutzers wird nicht angezeigt) | |||
| 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> | ||
[[Kategorie:Basic]] | |||
[[Kategorie:VBScript]] | |||
[[Kategorie:Excel]] | |||
Aktuelle Version vom 9. August 2018, 18:58 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