Laufzeitfehler 462

[Ken]

Hallo,

ich brauche mal wieder einen Tipp 
Folgendes passiert wenn ich den unteren Code laufen lasse:
1. Das Excel-File (es gibt nur eins) wird geladen
2. Es wird in 97-2003 umgewandelt und
3. unter den gleichen Namen wieder gespeichert.

Funktioniert auch prima, leider nur 1 mal. Wenn ich die Function ein zweites mal laufen lasse (es ist kein Excel-File mehr im Speicher) kommt die Fehlermeldung:

Laufzeitfehler 462
Der Remote-Server -Computer existiert nicht oder ist nicht verfügbar

Schließe ich Access und öffne es anschließend wieder funktioniert es wieder, bis ich es ein zweites mal starte.
Kennt jemand dieses Problem?

Code [Auswählen] Erweitern

Function Excel_Version()
Dim K_File As String
Dim Ort As String

DoCmd.SetWarnings False
Ort = "C:\Users\Ken\Desktop\Ken\"
K_File = Dir("C:\Users\Ken\Desktop\Ken\*.xls")
ChDir "C:\Users\Ken\Desktop\Ken"
    Workbooks.Open filename:=Ort & K_File
       
    ActiveWorkbook.SaveAs filename:=Ort & K_File, FileFormat:=xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

End Function

[DF6GL]

Hallo,


mindestens braucht es noch:

    Workbooks.Close



und dass kein Excel.exe mehr im Speicher ist (meinst Du damit einen aktiven Prozess?) , glaube ich nicht.... außer Du hast ihn gekillt.

Vorschlag:

Code [Auswählen] Erweitern

Function Excel_Version()
Dim K_File As String
Dim Ort As String, objWB As Object, objEx As Object

DoCmd.SetWarnings False
Ort = "C:\Users\Ken\Desktop\Ken\"
K_File = Dir(Ort & "*.xls")

    Set objEx = CreateObject("excel.Application")
    Set objWB = objEx.Workbooks.Open(FileName:=Ort & K_File)
       
    objWB.SaveAs FileName:=Ort & "V8_" & K_File, FileFormat:=xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
    objWB.Close
    objEx.Quit
    Set objWB = Nothing
    Set objEx = Nothing
End Function

[Ken]

Hallo,

stimmt ich hatte ihn/es gekillt 

Mit deinem Code funktioniert es. Dann lag es daran, dass ich nicht alles abgeschlossen habe...

Vielen Dank!!!!

[Ken]

Kleiner Nachtrag:

Auch Danke für den smarten Code!