| |
| Leitfaden für die Materialauswahl im Spritzguss, ein Fachartikel
|
Autor
|
Thema: VBA: SaveAs ab Office 2007 (2648 mal gelesen)
|
mundal Mitglied Techniker
Beiträge: 320 Registriert: 14.02.2005
|
erstellt am: 23. Feb. 2010 08:49 <-- editieren / zitieren --> Unities abgeben:
Hallo Zusammen, in einem VBA Makro lautet bei mir folgende Befehlsfolge: ActiveWorkbook.SaveAs Filename:=<dateiname>, FileFormat:=xlExcel4, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False In Excel 2007 bleibt das VBA-Programm an dieser Stelle hängen. Dabei ist es für mich von Vorteil wenn das aktuelle Arbeitsblatt in EXCEL4 abspeichert werden könnte. Kennt jemand einen Kniff um dies zu realisieren. Gruß@all Joachim Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Beverly Mitglied Dipl.-Geologe (Rentner)
Beiträge: 395 Registriert: 11.08.2007 Win 10 Pro, Office 97 bis Office 2016
|
erstellt am: 23. Feb. 2010 09:15 <-- editieren / zitieren --> Unities abgeben: Nur für mundal
|
mundal Mitglied Techniker
Beiträge: 320 Registriert: 14.02.2005
|
erstellt am: 23. Feb. 2010 10:26 <-- editieren / zitieren --> Unities abgeben:
|
Beverly Mitglied Dipl.-Geologe (Rentner)
Beiträge: 395 Registriert: 11.08.2007 Win 10 Pro, Office 97 bis Office 2016
|
erstellt am: 23. Feb. 2010 11:10 <-- editieren / zitieren --> Unities abgeben: Nur für mundal
Hi Joachim, mit dem folgenden Code erstellst du aus einem Tabellenblatt eine neue Arbeitsmappe: Code: Worksheets("Tabelle1").Copy
die du anschließend unter einem anderen Namen speichern kannst. ------------------ Bis später, Karin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
mundal Mitglied Techniker
Beiträge: 320 Registriert: 14.02.2005
|
erstellt am: 23. Feb. 2010 13:08 <-- editieren / zitieren --> Unities abgeben:
Hi Karin, ich möchte das Sheet nicht nur kopieren sondern direkt als eine separate,eigenständige Datei speichern - so wie es der Befehl "saveas ... in excel4 ... " ausgeführt hat. Meine Arbeitsmappe enthält mehrere Arbeitsblätter. In der neu angelegten Datei soll lediglich ein spezielles Sheet abgelegt sein, sonst aber nichts aus dem Quellobjekt. Gruss Joachim Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Beverly Mitglied Dipl.-Geologe (Rentner)
Beiträge: 395 Registriert: 11.08.2007 Win 10 Pro, Office 97 bis Office 2016
|
erstellt am: 23. Feb. 2010 13:16 <-- editieren / zitieren --> Unities abgeben: Nur für mundal
Hi Joachim, geht es nur darum, dass keine Codes usw. mit abgespeichert werden? Warum speicherst du dann nicht im 5.0/95er Format ab anstelle Excel4 - da werden auch keine Codes übernommen und das Format verarbeitet auch Excel2007. ------------------ Bis später, Karin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
mundal Mitglied Techniker
Beiträge: 320 Registriert: 14.02.2005
|
erstellt am: 23. Feb. 2010 13:24 <-- editieren / zitieren --> Unities abgeben:
|
Beverly Mitglied Dipl.-Geologe (Rentner)
Beiträge: 395 Registriert: 11.08.2007 Win 10 Pro, Office 97 bis Office 2016
|
erstellt am: 23. Feb. 2010 13:29 <-- editieren / zitieren --> Unities abgeben: Nur für mundal
Hi Joachim, dann gehe so vor wie in meinem zweiten Beitrag geschrieben - kopiere das betreffende Tabellenblatt mit dem geposteten Code und speichere diese neue Arbeitsmappe (die dann nur 1 Tabellenblatt enthält) im Format 5.0/95 ab. ------------------ Bis später, Karin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
mundal Mitglied Techniker
Beiträge: 320 Registriert: 14.02.2005
|
erstellt am: 23. Feb. 2010 13:47 <-- editieren / zitieren --> Unities abgeben:
Hi Karin, scheint mir auch der einzige Weg zu sein um ans Ziel zu kommen. Dann kann ich das Ganze auch im aktuellen EXCEL-Format speichern. Dadurch bin ich für die kommenden EXCEL-Versionen flexibler. Danke für Deine Hilfe. Gruß Joachim Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Beverly Mitglied Dipl.-Geologe (Rentner)
Beiträge: 395 Registriert: 11.08.2007 Win 10 Pro, Office 97 bis Office 2016
|
erstellt am: 23. Feb. 2010 14:04 <-- editieren / zitieren --> Unities abgeben: Nur für mundal
Hi Joachim, wenn du unter der aktuellen Version abspeicherst, bleibt aber Code, der sich im Codemodul des Tabellenblattes befindet, erhalten. Welchen Sinn sollte es dann überhaupt machen, unter einer Version abzuspeichern zu wollen, die VBA-Code nicht unterstützt - mit anderen Worten: was willst du eigentlich damit erreichen, dass du im Excel4-Format speichern wolltest? ------------------ Bis später, Karin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
mundal Mitglied Techniker
Beiträge: 320 Registriert: 14.02.2005
|
erstellt am: 23. Feb. 2010 15:23 <-- editieren / zitieren --> Unities abgeben:
Hi Karin, ganz einfach. Das (zu speichernde) Arbeitsblatt ist ein Ergebnis welches an Kunden und Lieferanten weitergegeben wird. Dieses Ergebnis wird durch VBA und verschiedenen fixen Werten auf den anderen Blättern der Mappe erzeugt. Mit dem speichern unter excel4 war es ein Einfaches alle "nicht öffentlichen" Sheets auszublenden. Ich hoffe dass ich den Hintergrund einigermassen transparent darstellen konnte. Wenn es eine einfachere Methode gibt dann nehme ich sie gerne an. Gruß Joachim Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Beverly Mitglied Dipl.-Geologe (Rentner)
Beiträge: 395 Registriert: 11.08.2007 Win 10 Pro, Office 97 bis Office 2016
|
erstellt am: 23. Feb. 2010 15:32 <-- editieren / zitieren --> Unities abgeben: Nur für mundal
Hi Joachim, und wo liegt dann das Problem, wenn du das betreffende Tabellenblatt mit dem von mir bereits beschriebenen Weg durch von mir geposteten Code kopierst, somit eine neue Arbeitsmappe mit nur 1 Tabellenblatt erstellst und diese dann unter einem neuen Namen abspeicherst? Mir scheint, du hast meinen Code überhaupt noch nicht getestet.
------------------ Bis später, Karin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
mundal Mitglied Techniker
Beiträge: 320 Registriert: 14.02.2005
|
erstellt am: 23. Feb. 2010 16:29 <-- editieren / zitieren --> Unities abgeben:
Hi Karin, Dein Vorschlag ist völlig nachvollziehen. Das VBA-Makro werde ich dahingehend umschreiben. Ich möchte mich für Deine Hilfe bedanken. Jetzt gehe ich mal ans Programmieren Bis dann Joachim
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Thomas Harmening Moderator Arbeiter ツ
Beiträge: 2897 Registriert: 06.07.2001 Das Innerste geäussert und aufs Äusserste verinnerlicht
|
erstellt am: 23. Feb. 2010 18:23 <-- editieren / zitieren --> Unities abgeben: Nur für mundal
|