Bugfix: Excel öffnen aus Word
01.07.2005 12:43:34
Alexander
Ich hab da mal ein kleines aber blödes Problem. Ich öffne ein Excel Workbook von Word aus. Das Excel Workbook hat denselben Namen, wie die Word Datei, nur eben mit der Endung ".xls", klar:
Public LH As Document
Public ExcelApp As Object
Public Arbeitsblatt As Workbook
Sub OpenExcel()
Set LH = ThisDocument
ExcelFile = Left(LH.FullName, Len(LH.FullName) - 3) & "xls"
On Error Resume Next
Set ExcelApp = GetObject(, "Excel.Application")
Fehler = Err.Number
On Error GoTo 0
If Fehler = 429 Then 'Es gibt soweit keine Excel Instanz
Set ExcelApp = CreateObject("Excel.Application") 'Excel Instanz generieren
ElseIf Fehler > 0 Then 'Unerwarteter Fehler
MsgBox Err.Description
Exit Sub
End If
For Each w In ExcelApp.Workbooks
If w.FullName = ExcelFile Then
Set Arbeitsblatt = w
GoTo Unten
End If
Next w
Set Arbeitsblatt = ExcelApp.Workbooks.Open(FileName:=ExcelFile)
Fehler = Err.Number
On Error GoTo 0
If Fehler > 0 Then 'Wenn Workbook nicht existiert oder anderer Fehler
MsgBox Err.Description
Exit Sub
End If
Unten:
ExcelApp.Visible = True
ExcelApp.WindowState = 1
Arbeitsblatt.Windows(1).Activate
End Sub
Das ganze funktioniert an und für sich, allerdings mit dem kleinen Schönheitsfehler, dass ich in Excel nichts sehe. Ich kann zwar mit den Tasten durch die Zellen fahren und kann in der Eingabezeile auch Werte eingeben, aber in dem Bereich, in dem man die lustigen kleinen Kästchen sieht, seh ich NICHTS!
Da ich das ziemlich doof finde und nicht weiter weiß, hoff ich, dass ihr mir helfen könnt.
Noch ne andere Frage: Kann man bei dieser Art ein Workbook zu öffnen, Excel irgendwie mitteilen, dass es die Makros deaktivieren soll?
Schon mal Danke für jede Antwort!
Gruß, Alex.