Excel in Word öffnen

Alfred · 02.11.2004

Hallo!

Per VBA möchte ich in Word97 ein Excel-Fenster öffnen. Dies funktioniert auch. Sobald ich jedoch die Mappe speichere und dann schließe, lässt diese sich nicht mehr über den Explorer öffnen. Erst wenn ich Word schließe, kann ich auf die Datei wieder zugreifen.

Mein VBA-Code:

Option Explicit
Const EXCELMAPPE As String = AW-BLATT.XLS

Dim objExcel As Excel.Application
Dim wb As Excel.Workbook

Sub Excel_Test()

Set objExcel = CreateObject(Excel.Application)
objExcel.Visible = True

Set wb = objExcel.Workbooks.Open(FileName:=EXCELMAPPE, ReadOnly:=False)

ActiveWorkbook.Save
objExcel.Quit
Set objExcel = Nothing
Set wb = Nothing
End Sub

Dasselbe Problem hatte ich zuerst in MSProject 2003, ich hab's dann in Word97 nachkonstruiert mit demselben Ergebnis.

Bin für jede Hilfe dankbar.

Gruß
Alfred

Matjes · 02.11.2004

Hallo Alfred,

Save genügt nicht, man muß die Datei auch wieder schliessen.

Gruß Matjes

Code:

Option Explicit
Const EXECLMAPPE_PATH As String = d:\aaa
Const EXCELMAPPE_NAME As String = AW-BLATT.xls

Dim objExcel As Excel.Application
Dim wb As Excel.Workbook

Sub Excel_Test()
    
    Set objExcel = CreateObject(Excel.Application)
    objExcel.Visible = True
    
    Set wb = objExcel.Workbooks.Open( _
          FileName:=EXECLMAPPE_PATH &amp; \ &amp; EXCELMAPPE_NAME, _
          ReadOnly:=False)
    
   ->so
    wb.Save
   ->oder so
    objExcel.ActiveWorkbook.Save
    
   ->!!!! wb schliessen !!! sonst bleibt der filehandle offen
    wb.Close
    
    objExcel.Quit
    Set objExcel = Nothing
    Set wb = Nothing
End Sub

Excel in Word öffnen

Alfred

Matjes

Excel in Word öffnen

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums