VB Datei öffnen und schliessen
20.11.2007 09:16:17
lobby007
ich möchte per VB eine Datei öffnen und wieder schliessen.
Ich habe ein VBS Script - siehe Anlage der eine Datei auch schön öffnet nur das schliessen genau dieser Datei klappt nicht. Ich muß die Datei explizit nehmen da ich im realen Code 24 Dateien öffne und wieder schliesse.
'Code for running excel macro in vbs
Dim objExcel
Dim objWorkbook
'---------------------------------------------------------------------------------
REM Alle Verknüpften Dateien für TOTALOFALLREPORTS öffnen
Set objExcel = CreateObject("excel.application")
Set objWorkbook = objExcel.Workbooks.Open("D:\reports\f15\jan\V32F15 per MonthjanEND2007V2200207.xls")
objExcel.Visible = True
objExcel.DisplayAlerts = False
workbook("D:\reports\f15\jan\V32F15 per MonthjanEND2007V2200207.xls").Close xlSaveChanges
REM close("D:\reports\f15\jan\V32F15 per MonthjanEND2007V2200207.xls")
REM workbook("D:\reports\f15\jan\V32F15 per MonthjanEND2007V2200207.xls").close
REM alle Verknüpften Daten geöffnet für Toata off all Reports
'---------------------------------------------------------------------------------------------
Gruß lobby007