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?
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
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:
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
Hallo,
stimmt ich hatte ihn/es gekillt ;)
Mit deinem Code funktioniert es. Dann lag es daran, dass ich nicht alles abgeschlossen habe...
Vielen Dank!!!!
Kleiner Nachtrag:
Auch Danke für den smarten Code!