Hallo geschätztes Forum,
ich wende mich mit einem (für mich) merkwürdigen Problem
an Euch.
Ich habe für meine Kollegen einen Code geschrieben, der aus einer
Excel-Liste ein pdf erzeugt. Bei der Erstellung des Codes habt Ihr mir
damals geholfen.
Der Code lautet:
Code:
oexcel.activeworkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
"Z:\Testverzeichnis\Testdatei.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Der funktioniert wie gewünscht.
Mittlerweile fällt aber auf, dass sich der Ablauf des Codes stark verlängert hat.
Technische Ursache scheiden aus
Mir file aber folgendes auf.
Die Excel-Datei hat eine Größe von 590 KB und besteht ausschließlich aus Text in Spalten und Zeilen.
Die erzeugte PDF-Datei hat eine Größe von 18350 KB und ich glaube hier liegt das Problem.
Weiß jemand Rat?
Gruß
tmessers
Diese Code reicht schon:
Code:
ActiveSheet.ExportAsFixedFormat 0, "Z:\Testverzeichnis\Testdatei.pdf"
Und die Datei enthällt zuviele Shapes.
Danke für die schnell Antwort.
Dein (snb) Code funktioniert auch, löst das Problem aber leider nicht.
Es wird aber noch merkwürdiger:
Offensichtlich liegt das Problem an anderer Stelle.
Nutzt Kollege 1 den Code hat die PDF 18350 KB, nutzt Kollege 2 den Code hat
die PDF 381 KB.
Vermutlich liegt es an irgendwelchen Einstellungen bei dem einen Kollegen????
Das sind keine identische Dateien.
@snb
Das mag sein, aber mit dem selben Code erzeugt.
Der Ordner an dem die Datei abgelgt ist ist der selbe, der Inhalt der Datei ist der selbe.
Warum dann 2 identische Dateien speichern ?
Hallöchen,
@snb
Code:
Warum dann 2 identische Dateien speichern ?
Vielleicht zum Test / Vergleich ?
@tmessers
Hast Du mal das versucht?
Quality:=xlQualityMinimum, IncludeDocProperties:=False
Allgemein sind noch die Einstellungen der Bildqualität in den Excel-Optionen von Relevanz - wobei da auch Diagramme und andere Objekte dazu zählen. Allerdings, sollte bei Dir nicht zutreffen, wenn Du nur Texte hast ...
@Schauan
Zitat:Vielleicht zum Test / Vergleich ?
2
identische Dateien ??
Das Ergebnis scheint mir 'ziemlich' vorhersehbar.
Hallöchen,
ich hätte beim speichern identischer xlsx als pdf dann auch gleiche pdf Dateigrößen erwartet
Zitat:Nutzt Kollege 1 den Code hat die PDF 18350 KB, nutzt Kollege 2 den Code hat
die PDF 381 KB.
Danke für Eure bisherigen Antworten.
Zur Verdeutlichung des Codes noch folgendes:
Kollege 1 startet den Code, es passiert folgendes
1) Öffnen einer definierten Excel-Datei
2) Ermitteln der letzten Zeile und Erzeugung einer Laufenden Nummer als letztezeile + 1
3) Übernahme der laufenden Nummer in eine Userform
4) Über die Userform werden weitere Daten eingegeben
5) Die weiteren Daten werden in die Excel-Datei übernommen
6) Die Excel-Datei wird als Sicherungskopie im pdf-Format gespeichert, die pdf-Vorgängerversion wird überschrieben
7) Die Excel-Datei wird gespeichert und geschlossen
Dateigröße 18000+ Kilobyte
Kollegen 2 startet den Code
Schritte 1-7
Dateigröße 381 Kilobyte
___________________________________
Mit den Einstellungen zur Bildqualität habe ich auch schon experimiert. Ohne Erfolg
___________________________________
Die Excel-Datei hat derzeit etwas mehr als 7000 zeilen mit 9 Spalten
_____________________________________