Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.11.2023 15:32:06
Excel | Zeitraum berechnen
28.11.2023 15:18:55
Zeitstrahl füllen I Formel über ganze Tabelle
28.11.2023 14:53:46
Wie ermitteln ANZAHLLEEREZELLEN pro Zeile in Power Query?
Du konntest keine passende Antwort finden?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
992to996
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateinamen temporär ändern

Dateinamen temporär ändern
19.07.2008 18:23:00
Detlef
Hallo,
ich möchte meine Exceltabelle gerne mit FreePDF XP in eine PDF Datei umwandeln. Das funktioniert mit:
ActiveWorkbook.PrintOut 1, 1, Copies:=1, ActivePrinter:="FreePDF XP"
auch ganz gut.
Nun gibt FreePDF XP als Dateinamen für das zu erstellende PDF-Dokument den Namen der Excelmappe vor. Ich würde aber gerne den Inhalt der Variablen "xy" als Dateinamen verwenden, ohne jedoch den Namen der Exceldatei dauerhaft zu ändern.
Hat da jemand eine Idee?
Gruß
Detlef

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateinamen temporär ändern
19.07.2008 19:54:19
Heinz
Hi,
weiß nicht, woher das FreePDF den namen bezieht, speicher doch deine datei temporär unter anderem namen.
mfg heinz

AW: Dateinamen temporär ändern
19.07.2008 20:02:00
Detlef
Hallo Heinz,
hab ich auch schon versucht. Allerdings kann ich die dann nicht löschen, weil sie ja noch geöffnet ist.
Gruß
Detlef

AW: Dateinamen temporär ändern
19.07.2008 20:58:00
Heinz
Hi,
kommt darauf an, wie du das machst, z.B. mit SaveCopyAs wird das eigentliche
Workbook gar nicht angetastet. Die Kopie kannst du einfach mittels Kill löschen.
mfg Heinz

AW: Dateinamen temporär ändern
19.07.2008 21:08:00
Detlef
Hallo Heinz,
auch das hab ich schon probiert! Nützt mir aber nichts. Müsste dann ja erst die Originaldatei schließen, anschließend die Copy öffnen, dann die PrintOut-Methode aufrufen, dann die Copy wieder schließen und die Originaldatei aufrufen, um aus dieser die Copy zu löschen.
Erscheint mir etwas zu umständlich :-)
Gruß
Detlef

Anzeige
AW: Dateinamen temporär ändern
19.07.2008 22:01:52
Jürgen
Hallo Detlef,
wenn Du den Dateinamen vorgeben möchtest, dann lenke die Druckausgabe in eine Datei mit dem gewünschten Namen und der Endung ".ps", z.B. mit
ActiveWorkbook.PrintOut 1, 1, Copies:=1, ActivePrinter:="FreePDF XP", PrintToFile:=True, PrToFileName:="MeinOrdner\xy.ps"
Wenn Du den FreePDF-Dialog sehen möchtest, nimmst Du als "MeinOrdner" das von FreePDF überwachte Verzeichnis (Standard: "C:\Dokumente und Einstellungen\All Users\FreePDF"). Falls die PDF-Datei ohne FreePDF-Dialog erstellt werden soll, lege die .ps-Datei irgendwo hin (z.B. das Temp-Verzeichnis) und rufe FreeDPF bzw. direkt GhostScript mit den benötigten Parametern über einen Shell-Befehl auf.
Codebeispiele sollten beim Durchsuchen des Forums zu finden sein.
Gruß, Jürgen

Anzeige
AW: Dateinamen temporär ändern
20.07.2008 09:30:23
Detlef
Hallo Jürgen,
das ist doch schon mal ein guter Ansatz. Allerdings lautet der Dateiname so wie beschrieben "XY". Möchte aber gerne den Inhalt der Variablen XY als Dateinamen. Die ps-Datei wird bei mir unter "C:\Dokumente und Einstellungen\All Users\FreePDF" abgelegt, aber der FreePDF Dialog wird nicht angezeigt.
Gruß
Detlef

PDF mit FreePDF erstellen
20.07.2008 22:07:00
Jürgen
Hallo Detlef,
wenn der Dateiname sich aus der Variablen XY speisen soll, bindest Du Sie natürlich entsprechend ein, z.B. mit
... PrToFileName:="MeinOrdner\" & xy & ".ps"
Dass der FreePDF-Dialog nicht aufgeht, wenn Du die .ps-Datei in das angegebene FreePDF-Verzeichnis schreibst, liegt daran, dass sich übersehen hatte, dass die Datei mit dem Benutzernamen beginnen muss. Damit eignet sich dieses Verfahren nicht für Deine Problemstellung.
Ich habe Deine Lösung weiter unten gelesen - das erscheint mir dich noch recht umständlich. Daher noch mein Tipp, von der FreePDF-Homepage das Administratorenhandbuch herunterzuladen. Darin werden u.a. die Kommandozeilenparameter von FreePDF erläutert (Seite 12).
Ein Lösung könnte z.B. so aussehen:

Sub ErzeugePDF()
Dim MappenName As String
MappenName = ThisWorkbook.Path & "\Archiv_" & Format(Date, "yyyymmdd")
ActiveWorkbook.PrintOut 1, 1, Copies:=1, ActivePrinter:="FreePDF XP", PrintToFile:=True,  _
PrToFileName:=MappenName & ".ps"
Shell "C:\Programme\FreePDF_XP\FreePDF /3 delpsend ""High Quality"" """ & MappenName & ".pdf"" " _
"" & MappenName & ".ps"""
End Sub


Gruß, Jürgen

Anzeige
AW: Dateinamen temporär ändern
20.07.2008 16:01:00
Detlef
Hallo,
und danke an alle, die mir Tipps gegeben haben. Habe das Problem folgendermaßen gelöst:
Zunächst habe ich den Namen der geöffneten Mappe in einer Variablen gesichert und die Fehlermeldung ausgeschaltet:
OriginalName = ActiveWorkbook.Name
Application.DisplayAlerts = False
Anschließend die Mappe unter einem neuen Namen im gleichen Verzeichnis gespeichert und FreePDF aufgerufen:
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & MappenName
ActiveWorkbook.PrintOut 1, 1, Copies:=1, ActivePrinter:="FreePDF XP"
Nun die Mappe wieder unter dem Originalnamen gespeichert und anschließend die umbenannte Copy gelöscht.
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & OriginalName
MappenName = MappenName & ".xls"
Kill ThisWorkbook.Path & "\" & MappenName
Application.DisplayAlerts = True
Funktioniert prima!
Gruß
Detlef
Anzeige

300 Forumthreads zu ähnlichen Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Arbeitsblätter zählen und Ergebnis verarbeiten
Botti

Hallo Leute,
heute habe ich wieder mal ein einfaches Problem für Euch, an dem ich aber nicht weiter kommen:
Ich möchte die Arbeitsblätter in meiner Arbeitsmappe zählen. Das ist ja kein Problem (ThisWorkbook.sheets.count).
wenn das makro mehr als ein Arbeitsblatt zählt (also das Erge...
07.08.2008 19:11:30
Thread-ID: 1000078
8 Beiträge
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Zellen mit Werten aus darüberliegender Zelle fülle
Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
11.08.2008 08:59:25
Thread-ID: 1000713
4 Beiträge
Häufigkeitslücken
Michi

Hallo,
google spuckt Zu "Excel" und "Häufigkeitslücken" lediglich 3 Treffer aus, die nicht gerade brauchbar für meine Aufgabe sind.
Ich muss für 3 Variablen eine Typisierung mit einer Häufigkeitslücke durchführen.
Hiermit bin ich fast gänzlich überfragt. Mit Quantilen hatte ich das...
11.08.2008 10:29:00
Thread-ID: 1000742
2 Beiträge
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige