SaveAs ... versionsabhängige Codierung nötig?
03.02.2014 00:28:43
Dietmar
Nachfolgender Code soll eine Datei, die als Downlodd zur Verfügung gestellt wird beim Öffnen in einen zu erzeugenden Ordner unter einem neuen Namen ablegen. Wenn der Ordner bereits existiert und die Datei dort auch bereits existiert, soll die Downloaddatei einfach geöffnet werden, ohne dass etwas geschieht.
Unter xl2003 gibt es keine Probleme auch nicht unter xl2010.
Unter xl2007 stürzt Excel ständig ab und unter xl2013 habe ich den Eindruck, dass Excel sich schwer tut, da der Vorgang recht lange dauert.
Was könnte das Probem sein? Gibt es versionsrelevante SaveAs-Methoden?
Könnte oder müsste man dem Code ggf. mit eine xl-Versions-Prüfung mit
unterschiedlichen SaveAs-Codierungen voranstellen?
Da die Datei von verschiedenen Usern mit unterschiedlichen xl-Versionen (ab xl2003) verwendet wird, ist es erforderlich, dass sie als .xls gespeichert wird.
Hat jemand eine Idee?
Vielen Dank vorab!
Dietmar aus Aachen
Private Sub Workbook_Open()
'Beim Öffnen der Datei 'TestDatei_Download' erfolgt die automatische Speicherung
' als Datei 'TestDatei' im zu erzeugenden Ordner 'Testordner' auf Laufwerk C
Application.ScreenUpdating = False
If Dir("C:\Testordner", vbDirectory) = "" Then
MkDir ("C:\Testordner")
MsgBox "Der Testordner wurde angelegt"
Else
End If
Application.DisplayAlerts = False
If Dir("C:\Testordner\Testdatei.xls", vbDirectory) = "" Then
ActiveWorkbook.SaveAs Filename:="C:\Testordner\Testdatei.xls"
MsgBox "Die Datei wurde als 'Testdatei' angelegt."
Else
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True
ActiveWorkbook.Protect Structure:=True, Windows:=False
Application.Calculation = xlCalculationManual
Application.CellDragAndDrop = False
End Sub