|
Member
Beiträge: 29
![25](http://donkarl.com/forum/images/decorations/multiple/25.gif)
| Danke für die Nachricht!
Das Interessante ist ja, dass am Code nichts verändert worden war und auf dem alten PC (auch Win10 64-bit, O2013 prof 32bit) problemlos gelaufen ist. Neues Notebook (Lenovo Thinkpad E560), alles neu installiert. Bisher habe ich das Problem nur bei Word entdeckt, Excel funktioniert interessanterweise. Hier der Code (late Bindung):
'Word
Dim appWD As Object
Set appWD = GetObject(, "Word.Application" ===> in dieser Zeile bleibt er beim Debuggen hängen
If err.Number <> 0 Then
err.Clear
Set appWD = CreateObject("Word.Application"
appWD.Activate
Else
appWD.Activate
End If
appWD.visible = True
'Excel
Dim xlapp As Object
Dim wb As Object
Dim mysht As Object
Dim ContactDoc As String
ContactDoc = ...... Excel-Datei
Set xlapp = CreateObject("Excel.Application"
Set wb = xlapp.Workbooks.Open(ContactDoc)
Set mysht = wb.Sheets("Bescheinigung"
xlapp.visible = True
Der Unterschied ist nur, dass bei Word erst geprüft wird, ob es schon offen ist, und bei Excel nicht...
Außerdem ist mir noch aufgefallen, dass die accdb (die Anwendungen) plötzlich nur noch halb so groß sind, als vorher... es scheint aber auf den ersten Blick nichts zu fehlen. Gibt es ein Tool, mit dem ich die Dateien vergleichen kann? Die eigentlichen Datenbanken sind jeweils eingebunden...
Danke für Eure Rückmeldung!
Georg
| |
|