Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 16:22:58
Pivot
16.04.2024 15:29:29
Notizen einheitliche Position, Formatierung per Bezugsspalte
16.04.2024 15:16:53
Summen mit verschiedenen Variablen
16.04.2024 14:29:30
Matrixkonstanten als Quelle für Gültigkeit und Steuerelement
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1564to1568
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1564to1568
1564to1568
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter in PDF

Tabellenblätter in PDF
03.07.2017 14:57:15
Jens
Guten Tag,
einmal im Monat muss folgende "Tätigkeit" ausführen:
1) Alle Excel-Dateien in einem Ordner öffnen (ca. 30 Stück).
2) Das jeweils erste Tabellenblatt als PDF unter dem Namen der Excel-Datei im selben Ordner abspeichern.
3) Alle Excel Dateien wieder schließen.
Es ist möglich, diesen Vorgang mit einem Makro zu erledigen?
Für jede Unterstützung wäre ich sehr dankbar.
Gruß
Jens

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter in PDF
03.07.2017 15:21:16
UweD
Hallo
so?
Sub alle_Dateien_Verzeichnis() ' 
    On Error GoTo Fehler
    Dim Pfad$, Ext$, Datei$, NeuName$
    
    Ext = "*.xls*"
    Pfad = "C:\Temp\" '**** mit \ 
    
    Datei = Dir(Pfad & Ext)
    Do While Len(Datei) > 0
        NeuName = Left(Datei, InStr(Datei, ".") - 1)
        Workbooks.Open Filename:=Pfad & Datei
        '** 
        ActiveWorkbook.Sheets(1).ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=Pfad & NeuName & ".pdf", Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
        '** 
        Workbooks(Datei).Close False
        
        Datei = Dir() ' nächste Datei 
    Loop
    
    
    Err.Clear
Fehler:
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear

End Sub
LG UweD
Anzeige
SUPER! zwei Rückfragen
03.07.2017 16:24:34
Jens
Hallo Uwe,
ich bin zutiefst beeindruckt, wie effizient Dein Makro arbeitet und mit so wenigen Zeilen auskommt.
Nun werde ich ein wenig gierig:
1) Ist es möglich, den Pfad in der Excel-Steuerdatei in einer Zelle zu hinterlegen und diese Zelle dann "auszulesen" (z.B.: über einen Zellnamen)?
2) Bei wenigen Dateien kommt beim Makrolauf die Box: "soll die Datei aktualisiert werden". Es ist kein Problem diese Meldung einfach wegzudrücken, aber perfekt wäre eine automatische Unterdrückung, falls dies möglich ist. Eine Aktualisierung soll nicht durchgeführt werden.
Ich bedanke mich ganz herzlich für Deine tolle Unterstützung, erspart mir sehr viel Zeit.
Gruß
Jens
Anzeige
AW: SUPER! zwei Rückfragen
03.07.2017 16:38:03
UweD
Hallo
1)
- hier mal ein Beispiel für einen Zellbezug.
- mit Prüfung
2)
durch die Angabe des Parameters , UpdateLinks:=False (oder true)
Sub alle_Dateien_Verzeichnis() ' 
    On Error GoTo Fehler
    Dim Pfad$, Ext$, Datei$, NeuName$
    
    Ext = "*.xls*"
    
    Pfad = Sheets("Parameter").Range("A2") '**** mit \ 
    If Dir(Pfad, vbDirectory) = "" Then
        MsgBox "Pfad nicht vorhanden"
    End If
    
    Datei = Dir(Pfad & Ext)
    Do While Len(Datei) > 0
        NeuName = Left(Datei, InStr(Datei, ".") - 1)
        Workbooks.Open Filename:=Pfad & Datei, UpdateLinks:=False
        '** 
        ActiveWorkbook.Sheets(1).ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=Pfad & NeuName & ".pdf", Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
        '** 
        Workbooks(Datei).Close False
        
        Datei = Dir() ' nächste Datei 
    Loop
    
    
    Err.Clear
Fehler:
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear

End Sub

LG UweD
Anzeige
Klasse & Dank owT
03.07.2017 17:20:09
Jens
AW: SUPER! zwei Rückfragen
03.07.2017 16:49:17
UweD
Hier noch mit Verbesserungen
Sub alle_Dateien_Verzeichnis() ' 
    On Error GoTo Fehler
    Dim Pfad$, Ext$, Datei$, NeuName$
    
    Ext = "*.xls*"
    
    Pfad = Range("Dateipfad") ' vergebener Name 
    Pfad = IIf(Right(Pfad, 1) = "\", Pfad, Pfad & "\") ' prüfen, ob \ am Ende 
    
    If Dir(Pfad, vbDirectory) = "" Then ' prüfen, ob Verzeichnis existiert 
        MsgBox "Pfad nicht vorhanden"
        Exit Sub
    End If
    
    Datei = Dir(Pfad & Ext)
    Do While Len(Datei) > 0
        NeuName = Left(Datei, InStr(Datei, ".") - 1)
        Workbooks.Open Filename:=Pfad & Datei, UpdateLinks:=False
        '** 
        ActiveWorkbook.Sheets(1).ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=Pfad & NeuName & ".pdf", Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
        '** 
        Workbooks(Datei).Close False
        
        Datei = Dir() ' nächste Datei 
    Loop
    
    
    Err.Clear
Fehler:
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear

End Sub

LG UweD
Anzeige

305 Forumthreads zu ähnlichen Themen

mehrere Tabellenblätter in ein PDF drucken
Christian

Hallo zusammen,
nachdem ich im Forum keine Info zu meinem Thema gefunden habe:
Ich möchte mehrere Tabellenblätter einer Datei als PDF ausdrucken. Also markiere ich die Tabellenblätter und gehe wie gewohnt ins Menü "Drucken" (PDF über Acrobat 7.0 oder PDF XChange 4.0 Lite).
Leider we...
10.10.2008 09:11:00
Thread-ID: 1015503
2 Beiträge
Anzeige
Umwandeln PIVOT-Tabelle in reguläre Datentabelle
Susi

Hallo liebe Excel-Freunde,
ich habe eine Pivot-Tabelle aus einer umfangreichen Datenmenge erstellt und das Datum nach Quartalen gruppiert. Diese Daten der neuen Pivot-Tabelle möchte ich nun weiterverwenden. Das Problem dabei ist, das ich die Werte der Pivot-Tabelle in eine neue reguläre Dat...
04.02.2009 12:03:00
Thread-ID: 1046976
5 Beiträge
Pdf in Excel umwandeln
Susann

Hallo,
ich habe ein PDF Dokument mit Adressdaten. Diese möchte ich in eine Excelliste wandeln, damit ich einen Serienbrief daraus machen kann.
Ich habe das PDF bereits als Text gespeichert, um es dann mit Tabs getrennt in Excel zu speichern und wieder zu öffnen. Da zeigt er allerdings...
27.04.2009 10:32:12
Thread-ID: 1071297
13 Beiträge
Anzeige
Makro Datei als Kommentar in PDF implementieren
Alex

Hallo zusammen,
ich habe ein ziemlich umfrangreiches excel tool, dieses simuliert einige technische zusammenhänge, erstellt daraus resultierend, angebote, füllt automatisch Förderanträge aus uvm....
Am Ende erhält jeder Kunde eine Vielzahl von PDF Dateien.
Für diese ganzen Dateien h...
30.09.2009 19:49:14
Thread-ID: 1106503
2 Beiträge
Makro Datei als Kommentar in PDF implementieren
Alex

Hallo zusammen,
ich habe ein ziemlich umfrangreiches excel tool, dieses simuliert einige technische zusammenhänge, erstellt daraus resultierend, angebote, füllt automatisch Förderanträge aus uvm....
Am Ende erhält jeder Kunde eine Vielzahl von PDF Dateien.
Für diese ganzen Dateien h...
01.10.2009 08:01:37
Thread-ID: 1106504
2 Beiträge
Blatt per VBA mit FreePDF als PDF-Datei sichern
Mike

Hallo,
wer kann mir einen Weg oder Beispiel zeigen, wie ich per VBA mit FreePDF ein Worksheet als PDF-Datei speichern kann?
Vielen Dank, Mike.
02.10.2009 00:05:48
Thread-ID: 1106727
5 Beiträge
WORD-Datei in EXCEL-Datei umwandeln
Werner

Excel-Level: befriedigend
Hallo Freunde,
habe mal ein Frage, die sich auf Excel und Word zugleich bezieht: Was muss man tun, um ein mit WORD
erstelltes Manuskript, also eine Word-Datei, in eine Excel-Datei umzuwandeln. Die hier zur Debatte stehende WORD-Datei ist wie
folgt auf...
22.10.2009 14:24:46
Thread-ID: 1111301
7 Beiträge
2 Tabellenblätter in ein PDF nicht möglich
Joachim

Hallo,
ich möchte per VBA das 3. und 4. Tabellenblatt als PDF in EIN Dokument bringen:
Dim n As Integer
Sheets(3).Select
For n = 3 To Sheets.Count
Sheets(n).Select False
Next
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Adobe PDF", Collate:=True
25.11.2009 08:17:45
Thread-ID: 1119865
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
4
4
12
9
1
1
4
6
5
2
2
2
5
1
2
1
1
5
5
1
5
1
2
6