Hallo,
fragen zum frühen abend. Wie beende ich aus Access per VB ein bestimmtest Excel File.
Es soll geprüft werden, ob die bestimmte Datei offen ist C:\test.xls - wenn ja, einfach ohne Warnung speichern und beenden.
Leider war meine Suche im Netz zu dem Problem nicht erfolgreich. Vl. kann mir hier einer weiterhelfen?
fragen zum frühen abend. Wie beende ich aus Access per VB ein
bestimmtest Excel File.Es soll geprüft werden, ob die bestimmte Datei offen ist
C:\test.xls - wenn ja, einfach ohne Warnung speichern und
beenden.
Hallo T,
das flutscht mir schon leichter aus den Fingern als reine Accessfragen 
Es kann sein daß du einen Verweis setzen mußt auf
MS Excel X.0 Object Library
Ich habe es getestet in Word2000 da klappte es ohne Verweis.
probiers mal so:
Sub Check()
Dim appExcel, Mappe
On Error Resume Next
Set appExcel = GetObject(, "Excel.Application")
If Err.Number = 429 Then
MsgBox "kein Excel am Laufen"
Exit Sub
End If
On Error GoTo 0
For Each Mappe In appExcel.workbooks
If Mappe.Name = "test.xls" Then
Mappe.Close savechanges:=False
Exit For
End If
Next Mappe
End Sub
Gruß
Reinhard
Super! Funktioniert! Vielen Dank. /bow