2016-07-06 4 views
1

現在のExcelワークを自動化しようとしています。 Atm私はピボットテーブルに約30個のフィルタを持っています。私はその時点で1つを変更してからpdfファイルとしてエクスポートする必要があります。私はそれが自動的にフィルタを変更し、pdfを(ローカルフォルダに)エクスポートし、自動的に移動し、次のフィルタを変更し、そこからpdfを作成するVBAコードを作成する可能性があると考えていた、など、30回。VBAピボットフィルタを変更してpdfファイルをエクスポートします

私はそれのためのいくつかのガイドを見つけようとしましたが、それは私にとって可能ではありませんでした。どのように私は始めることができるか考えていますか?

+1

いくつかの繰り返しをカバーするマクロを記録しようとしましたか? –

答えて

1

恐らく2つのトピックを別々に見て、組み合わせてください。

1:マクロを記録し、thisのような意味がわからない場合は、結果を編集して、フィルタを変更することができます。

2:pdfとして保存するには、多くのことを行うことができますが、あなたのマシンにAdobeなどがあるかどうか、またはpdfcreatorなどのものを使用しているかどうかによって異なります。thisは、似たようなことをしています。

あなたのコードを掲載して戻すと、人々はもっと喜んでお手伝いします。しかし、私は以来、ダイナミックであることを保存したファイル名を必要とし、完璧に動作PDF

として

  1. 変更フィルタ
  2. 割引:オーケー

+0

私はあなたの答えにコメントする評判は十分ではないので、これについてコメントしなければなりませんが、そこにあるものに関しては、 'Filename:='の後の文字列を動的に変更することができます。 \ Users \ username \ Folder \ Folder \ Documents \ Folder \ Folder \ Filename "&i&" .pdf "と各ファイルのiを増やします。 –

0

はので、私はマクロを記録することができますことを発見しました私は30個のPDFファイルが必要であり、1ではありません。

記録されたコードは次のようになります

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

セル名に基づいて保存されたファイル名を変更する方法を知っていますか?

関連する問題