2016-07-06 6 views
1

Ich versuche, viele meiner aktuellen Excel-Arbeit zu automatisieren. Atm Ich habe ungefähr 30 Filter in meinem Pivotable, die ich zu der Zeit ändern und dann als eine pdf-Datei exportieren muss. Ich dachte, dass es möglich wäre, einen VBA-Code zu erstellen, der automatisch den Filter ändert und eine PDF-Datei (in einen lokalen Ordner) exportiert und dann automatisch weitergeht und den nächsten Filter ändert und daraus eine PDF-Datei erstellt und so weiter.VBA Pivot-Filter ändern und PDF-Datei exportieren

Ich habe versucht, einen Leitfaden dafür zu finden, aber es war nicht für mich möglich. Hast du eine Idee, wie ich anfangen kann?

+1

Haben Sie versucht, ein Makro aufzunehmen, das ein paar Iterationen abdeckt? –

Antwort

1

Vielleicht in die beiden Themen getrennt dann suchen kombinieren.

1: Sie können Filter ändern, indem Sie ein Makro aufzeichnen und dann die Ergebnisse bearbeiten, wenn Sie beispielsweise this nicht verstehen.

2: Speichern als PDF ist ein wenig komplizierter, da Sie viele Dinge verwenden können, hängt davon ab, ob Sie Adobe auf Ihrem Computer usw. haben oder wenn Sie Dinge wie pdfcreator etc verwenden, this ist ein Beispiel, wo jemand macht etwas ähnliches.

Geben Sie es los und schreiben Sie Ihren Code zurück und die Leute werden viel mehr bereit sein zu versuchen und Ihnen zu helfen.

+0

werde ich dazu Stellung haben, wie ich auf Ihre Antwort nicht genug Ruf zu kommentieren, aber in Hinblick darauf, was Sie da haben, könnten Sie die Zeichenfolge nach 'Dateiname ändern: =' dynamisch, dh „C sein: \ Benutzer \ Benutzername \ Ordner \ Ordner \ Dokumente \ Ordner \ Ordner \ Dateiname "& i &" .pdf "und erhöhe i für jede Datei. –

0

Okay, so fand ich, dass ich ein Makro aufzeichnen kann:

  1. Filter ändern
  2. Als PDF speichern

, die perfekt funktioniert, aber ich brauche die gespeicherte Dateiname dynamisch zu sein, da ich brauche 30 PDF-Dateien und nicht 1.

Der aufgezeichnete Code sieht wie folgt aus

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
    "C:\Users\username\Folder\Folder\Documents\Folder\Folder\Filename.pdf" _ 
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ 
    :=False, OpenAfterPublish:=False 

Wissen Sie, wie ich dann den gespeicherten Dateinamen basierend auf einem Zellennamen ändere?