Öffnen Sie excel 2007 excel-Dateien und speichern als 97-2003-Formate in VBA

Ich habe eine seltsame situation, wo ich habe einen Satz von excel-Dateien, alle mit der Endung .xls., in einem Verzeichnis, wo ich öffnen kann alle Prima in Excel 2007. Das seltsame ist, dass ich kann nicht öffnen Sie in Excel 2003, auf dem gleichen Computer, ohne die Datei zu öffnen, zuerst im Jahr 2007 und gehen, und speichern Sie die Datei als "Excel 97-2003-Arbeitsmappe". Bevor ich speichern Sie die Datei als "Excel 97-2003-Arbeitsmappe" von Excel 2007, wenn ich öffnen Sie die excel-Dateien in 2003 bekomme ich die Fehlermeldung, dass die Datei nicht in einem erkennbaren format.

Also meine Frage ist: wenn ich schon die excel-Datei wurde im Jahre 2007 eröffnet und ich habe bereits die Datei-Namen der geöffneten Datei in einer variable gespeichert, programmatisch wie kann ich imitieren die Aktion geht bis auf die "office-Schaltfläche" in der oberen rechten und wählen, "speichern unter" auswählen und dann "Excel 97-2003-Arbeitsmappe"? Ich habe versucht, so etwas wie das unten, aber nicht speichern Sie die Datei an alle:

ActiveWorkbook.SaveAs TempFilePath & TempFileName & ".xls", FileFormat:=56

Vielen Dank für jede Hilfe oder Führung!

Ich habe genau das gleiche Problem. Ein my_file_with_macro.xlsm-Datei generieren einige *.xls-Dateien kompatibel mit excel 2003, die nicht geöffnet werden kann, von meinen Kollegen, die immer noch laufen unter Office 2003. Hast du keine Lösung, da Sie diese Frage hier?
Tatsächlich habe ich gerade eine Lösung gefunden (die ich finden nicht wirklich sauber, aber... anyways, es ist für mich arbeiten). - Anwendung.DisplayAlerts = False Set resultFile = Arbeitsmappen.Open(resultFileName) resultFile.CheckCompatibility = False resultFile.SaveAs Filename:=resultFileName, FileFormat:=xlExcel8 resultFile.Anwendung Schließen.DisplayAlerts = True

InformationsquelleAutor ABB | 2010-01-26

  1. 7

    Es klingt wie Sie versuchen sollten, das compatibility pack, aber ich kann nicht sehen, warum dein vba funktioniert nicht. Ich habe versucht, das unten, und es funktionierte perfekt:

    ThisWorkbook.SaveAs "C:\test" & ".xls", FileFormat:=56
    Ich habe das compatibility pack installiert und es funktioniert immer noch nicht. Nicht sicher, warum. Wenn ich das FileFormat:=56 speichert es in Ordnung, aber wenn ich hinzufügen, dass es einfach nicht speichern überhaupt. Irgendwelche Ideen?
    Was passiert, wenn Sie versuchen, auf "speichern unter" unter einem anderen Dateinamen?
    Ich habe gerade versucht, und es hat nicht funktioniert. Ich trat durch den code und dafür gesorgt, dass es Treffer, die Zeile code und es Tat so bin ich nicht sicher, ob es hat zu tun mit meinem aktuellen setup auf meinem Rechner oder was. Ich bin an einem Verlust.
    Die Maschine, die ich bin, es zu testen, hat sowohl 2003 als auch 2007 installiert (ich lief der code in 2007), aber ich bin mir nicht sicher, das würde einen Unterschied machen.
    Ich versuchte es auf einem anderen Rechner mit einem ähnlichen setup wie meins (beide 2003 und 2007 installiert) und es funktionierte. Sehr seltsam. Sorry Ihre Zeit verschwenden, ich denke, es ist ein nur ein Problem mit meinem Rechner das setup für einige sehr seltsamen Grund.

    InformationsquelleAutor burnside

  2. 1

    Dieser Seite: http://www.rondebruin.nl/saveas.htm war hilfreich für mich. Sie haben zu erklären, einen anderen Datei-Typ, wenn Sie das speichern von 2007 zu 2003 und früher.

    InformationsquelleAutor guitarthrower

  3. 1

    Hier ist eine Lösung, die für mich arbeiten. Im Grunde, es öffnet sich wieder die gleiche Datei und simuliert ein "Speichern unter" aus dem Office-Schaltfläche, mit der compatibiliy von Excel 97-2003. Es wird jedoch ausblenden von Warnungen und gibt an, dass Excel NICHT überprüfen Sie die Kompatibilität, die ist die Erzeugung eines popup-Fensters verhindert, dass Sie arbeiten silentely im batch-Modus.

    'before that, my code was using Workbooks.Add method, saving and then closing.
'just add the following after your last operation, once your file is closed where
'of course "resultFile" is the workbook to be saved, and resultFileName the path

Application.DisplayAlerts = False
Set resultFile = Workbooks.Open(resultFileName)
resultFile.CheckCompatibility = False
resultFile.SaveAs Filename:=resultFileName, FileFormat:=xlExcel8
resultFile.Close
Application.DisplayAlerts = True

    InformationsquelleAutor Nicolas C.

  4. 0

    Ich bin mir nicht klar, ob Sie nur versuchen, zu konvertieren alle Dateien, oder wenn Sie auf eine Anwendung, mit der Notwendigkeit, das zu tun.

    Wenn die ehemaligen, zu sehen, ob diese hilfreich ist : http://www.microsoft.com/downloads/details.aspx?familyid=941b3470-3ae9-4aee-8f43-c6bb74cd1466&displaylang=en

    Es ermöglicht öffnen von Office 2007 in früheren Versionen von Office.

    Frag mich nicht warum, aber das compatibility pack funktioniert nicht. Ich versuche, eine app erstellen, um die Dateien zu konvertieren.

    InformationsquelleAutor Jay

  5. 0

    nur schließen die Warnungen auch funktioniert.
    - Anwendung.DisplayAlerts = False
    Arbeitsmappen.Hinzufügen.SaveAs name, FileFormat:=56
    * änderungen an der Datei, wenn nötig
    Activeworkbook.close SaveChanges:=true
    - Anwendung.DisplayAlerts = True

    InformationsquelleAutor user2481205

  6. 0
    'this script is created by me. But usable to vbscript ( vbs ).
UTILIZAR EL ARCHIVO INICIAL.XLSX COMO COMODÍN PARA CREAR UN ARCHIVO DATOS.XLS.

'Creado por Juan Fernando Arango Trujillo
Set app = CreateObject("Excel.Application")
app.Visible = False
app.DisplayAlerts = False
Set fso = CreateObject("Scripting.FileSystemObject")
Set wb = app.Workbooks.Open("C:\Users\Juan\Documents\Inicial.xlsx") 
wb.SaveAs "C:\Users\Juan\Documents\Datos.xls",  -4143
wb.Close True
app.Quit
Set app = Nothing
Set fso = Nothing

    'FIN DEL PROCESO DE CREACIÓN DE DATOS.XLS

    Es wäre gut, wenn man übersetzen könnte apish und fügen Sie ein paar Erklärungen.

    InformationsquelleAutor Juan Fernando

Schreibe einen Kommentar