Wie kann ich mit VBScript eine Excel Datei öffnen?

Sep 22, 2008 in VB Script

‘ Mit VBScript Excel Datei öffnen und bestimmten Bereich kopieren
‘ Bereich von Worksheet 1 ins Worksheet 2 kopieren’

set exApp = CreateObject(“Excel.Application”)
exApp.Visible = TRUE ‘ open EXCEL
set exBook = exApp.WorkBooks.Open(“C:\beispiel.xls”) ‘ Excel Datei öffnen

Set exSheet = exBook.Sheets(1)
exSheet.Activate ‘ Worksheet aktivieren
exSheet.Rows(“2″).Select ‘ bestimmten Bereich auswählen
exApp.Selection.Copy ‘ Bereich kopieren’

Set exSheet2 = exBook.Sheets(2)
exSheet2.Activate ‘ Worksheet aktivieren
exSheet2.Rows(“2″).Select ‘ bestimmten Bereich auswählen
exApp.ActiveSheet.Paste ‘ Bereich einfügen

‘exApp.ActiveWorkbook.SaveAs “C:\Temp\test.xls”