Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1380to1384
1380to1384
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mehrere "".xls in "".pdf kovertieren

Forumthread: mehrere "".xls in "".pdf kovertieren

mehrere "".xls in "".pdf kovertieren
10.09.2014 10:43:21
Alex
Guten Tag zusammen.
Brauche eure Hilfe um folgende Aufgabe zu erledigen.
Ausgangssituation:
1.im Verzeichnis C:\excel\.. liegen 1000 exceldateien "xx yyy zzz.xls"
Aufgabe:
1.per Makro alle diesen exceldateien unter gleichem Namen in pdf kovertieren und im Verzeichnis C:\PDF\.. ablegen.
2. Ablauf nach ca. folgendem Schema:
Datei "xx yyy 1.xls" im Verzeichnis C:\excel\.. wird aufgemacht, PDF mit gleichem namen erzeugt (Adobe Acrobat XI Pro vorhanden), im Verzeichnis C:\PDF\.. unter namen "xx yyy 1.pdf" abgelegt, geöffnete Dateien schliessen, oder gar nicht anzeigen. und so weiter mit mit "xx yyy 2.xls", "xx yyy 3.xls", ....
Vieln Dank für die Unterstützung

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrere "".xls in "".pdf kovertieren
10.09.2014 12:09:23
Rudi
Hallo, 
Sub aaaa()
Dim sXLS As String, sPDF As String, sDatei As String
Dim wkb As Workbook
sXLS = "c:\excel\"
sPDF = "c:\pdf\"
sDatei = Dir(sXLS & "*.xls")
Do While sDatei  ""
Set wkb = Workbooks.Open(sXLS & sDatei)
wkb.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=sPDF & Left(sDatei, InStrRev(sDatei, ".") - 1), _
openafterpublish:=False
wkb.Close False
sDatei = Dir
Loop
End Sub

Gruß
Rudi

Anzeige
AW: mehrere "".xls in "".pdf kovertieren
10.09.2014 12:12:44
fcs
Hallo Alex,
vorab erst einmal ein paar Fragen:
1. Sind alle Excel-Dateien in einem Verzeichnis oder in mehreren Unterverzeichnissen?
2. Haben die Exceldateien immer jeweils 1 Tabellenblatt oder muß immer die gesamte Arbeitsmappe mit ggf. mehreren Blättern in die PDF-Datei ausgegeben werden.
3. MS Office hat ja ein integriertes Modul, so dass Arbeitsmappe/Blätter/Markierungen als PDF gespeichert werden können.
Ist dies eine Option? Sie ist von der Makro-Programmierung am einfachsten umzusetzen, da keine externen Programme eingebunden werden müssen.
Hier ein Link zu einer Umsetzung der PDF-Ausgabe via Acrobat.
https://www.herber.de/forum/archiv/1140to1144/1142135_automatisch_Dateinamepdf_generieren.html#1142135
Darum müste dann noch die Schleife zur Abarbeitung aller Dateien im Verzeichnis herumgelegt werden.
Gruß
Franz

Anzeige
AW: mehrere "".xls in "".pdf kovertieren
11.09.2014 08:13:20
Alex
Hallo zusammen.
Ich habe Code von Rudi verwendet und es hat funktioniert. Ca.25 minuten und 1341 excel-Dateien wurden in pdf konvertiert. An dieser Stelle vielen Dank für die Unterstützung.
*Beim konvertieren bin ich auf ein Problem gestossen, dass einige excel-Dateien durch PW zum öffnen geschutzt waren und gelöst habe ich das, in dem ich per hand jedes mal "Schreibgeschutzt öffnen" bestätigt habe. Frage für die Zukunft ist, wie kann man auch diese Funktion ""Schreibgeschutzt öffnen"-in diesem Code integrieren?

Anzeige
AW: mehrere "".xls in "".pdf kovertieren
11.09.2014 09:09:42
Rudi
Hallo,
einfach alle schreibgeschützt öffnen.
Set wkb = Workbooks.Open(FileName:=sXLS & sDatei, ReadOnly:=True)
Gruß
Rudi

Forumthreads zu verwandten Themen

Tabelle als PDF speichern
PeTeR

Hallo VBA-Freaks,
ich suche seit Stunden - finde aber nicht den exakt passenden Code, obwohl es zig Einträge zu dem Thema gibt.
Ich will eine Tabelle per VBA in PDF umwandeln u. drucken. Mein Code:
Application.ActivePrinter = "Adobe PDF auf Ne01:"
ActiveWindow.SelectedSheets.Pri...
25.10.2008 23:06:00
Thread-ID: 1019291
5 Beiträge
Tabellenblätter einzeln als Datei speichern
murat

Hallo,
ich habe einen tollen VBA Code hier im Forum gefunden!
Ich möchte die einzeln Tabellenblätter als Datei Speichern. ich habe 20 Tabellenblätter in einer Datei aus der sollen 20 Dateien werden. Dateiname steht immer in Zelle C2 des jeweiligen tabellenblattes.
Der Code unten i...
13.01.2009 11:46:16
Thread-ID: 1039178
3 Beiträge
Anzeige
Pivot Tabelle in Array auslesen & neu erstellen
Andreas

Hallo Herber Fans,
da PivotTabellen sich nicht immer rational verhalten, ist es zuweilen notwendig, diese zu löschen und komplett neu aufzubauen, damit sie wieder fehlerlos sind und andere VBA Codes die mit ihnen arbeiten, nicht zum Absturz bringen.
Was ich nun realisierte, war ein Code...
12.02.2009 19:20:00
Thread-ID: 1050227
4 Beiträge
Anzeige
Tabelle als Text speichern, Dateiname aus Zelle
Jürgen

Hallo Excel-Profis,
ich möchte über ein Makro folgendes ausführen:
- das aktuelle Tabellenblatt soll im Textformat gespeichert werden
- das Dialogfeld "Speichern unter" soll am Bildschirm erscheinen
- der Dateiname soll aus der Zelle I1 in das Dialogfeld übernommen werden
Im...
08.04.2009 13:05:46
Thread-ID: 1067706
2 Beiträge
Anzeige
Tabellenblätter aus Liste erstellen
StefanS

Guten Morgen,
kaum hat der Tag begonnen und schon hänge ich wieder fest!
Diesmal soll aus einer Liste (bezugnehmend auf die Spalte Section) div.Tabellenblätter mit der Bezeichnung Register_1 usw. erstellt werden. Die Anzahl der neuen Tabellenblätter entspricht der Anzahl der aufgeführt...
12.05.2009 08:10:21
Thread-ID: 1074477
6 Beiträge
PDF-File als neues Tabellenblatt
StefanS

Hallo,
meine Vorgesetzten treiben mich noch in den Wahnsinn!!!!
Besteht generell die Möglichkeit per Hyperlink auf eine Pdf-Datei (z.B. in Sheet("Register_1")),
diese als neues Tabellenblatt (z.B. Sheet("Datenblatt")) einzufügen? Habe keine Ahnung, ob so etwas überhaupt mit Excel mö...
18.05.2009 15:42:00
Thread-ID: 1075923
3 Beiträge
Anzeige
Markierter Bereich als Text Datei speichern
Roland

Hallo,
Ich brauche von einem Excelblatt nur einen ausgewählten Bereich an Daten. Diese Daten müssen in einen bestimmten Format als Text Datei bespeichert werden, damit sie ein anderes Programm wieder lesen kann.
Am besten wäre es, wenn ich die Daten einfach markieren könnte und dann übe...
21.08.2009 23:44:54
Thread-ID: 1097867
6 Beiträge
Aus Excel-Mappe pdf erstellen und per Outlook vers
jensP

Guten Morgen,
hat jemand zufällig einen VBA-Code, der eine eine Excel-Mappe in pdf umwandelt und dann diese erstellte pdf-Datei automatisch per Outlook an vorgegebene Empfänger versendet.
Gruß, jensP
25.09.2009 13:23:51
Thread-ID: 1105136
2 Beiträge
Erstellen einer weiteren Graphik aus Wertetabelle
Ganna

Hallo,
nachdem ich nach der Berechnung eine Wetetabelle bekomme und mit 1. und 2. Spalte eine Graphik erstelle, möchte ich nun einen weitern Graph aus dieser Tabelle als Zusatzdiagrammblatt mit 1. und 3. Spalte erstellen. Habe ein Teil noch mal kopiert und statt 2 die 3 geschrieben, sowie G...
12.11.2009 12:09:45
Thread-ID: 1116444
4 Beiträge
tabelle per makro als pdf drucken ohne abfrage
Jens

hi leute
hab mal ne frage
ist es möglich die speicher abfrage vom pdf drucker zu umgehen?
ich möchte einen festen ordner vorgeben und die datei soll auch bei jedem druck überschrieben werden ohne nachfrage.
vielen dank im voraus
23.11.2009 08:59:36
Thread-ID: 1119332
3 Beiträge
Tabellenblatt als pdf und speichern
Horst

Hallo,
ich möchte über VBA ein Tabellenblatt als pdf speichern.
Momentan kann ich dank dem Makrorecorder ein pdf Dokument mit der BroadGun PDF Machine erstellen,
Acrobat Reader startet und zeigt das Dokument an.
Mein Wunsch wäre jedoch , dass das PDF Dokument auch gleich mit e...
27.11.2009 15:18:04
Thread-ID: 1120555
3 Beiträge
mit PDF Creator ein Tabellenblatt als pdf abspeich | Herbers Excel-Forum
Horst
Hallo
ich will ein Tabellenblatt als pdf abspeichern.
Dank diesem Forum habe ich einen Code gefunden, welcher jedoch bei mir nicht richtig funktioniert.
Wenn ich bei Break (siehe Code) stoppe, ist der PDFCreator geöffnet, das umzuwandelne Tabellenblatt
ist eingetragen und der Status...
14.01.2010 16:16:29
Thread-ID: 1129991
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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