2016-07-06 54 views
1

我試圖自動化很多當前的Excel工作。 Atm我在我的透視表中有大約30個過濾器,我需要在當時更改一個然後導出爲pdf文件。我認爲可以創建一些自動更改過濾器並輸出pdf(到本地文件夾)的VBA代碼,然後自動繼續並更改下一個過濾器,並從中創建一個PDF,等等,這些都是30次。VBA更改數據透視篩選器並導出pdf文件

我試圖找到它的一些指導,但它不能爲我。你對我如何開始有任何想法嗎?

+1

您是否嘗試過錄制覆蓋幾次迭代的宏? –

回答

1

也許分開看兩個主題然後合併。

1:更改過濾器,你可以通過錄制一個宏然後編輯結果,如果你不能理解像this

2:保存爲PDF有點棘手,因爲你可以使用很多事情來做到這一點,取決於你的機器上是否有Adobe,或者如果你正在使用諸如pdfcreator等東西,this是一個例子,正在做類似的事情。

給它一個去把你的代碼發回來,人們會更樂意嘗試和幫助你。

+0

我必須對此評論,因爲我沒有足夠的信譽來評論你的答案,但是根據你在那裏的內容,你可以在'Filename:='後改變字符串爲動態的,即「C: \用戶\用戶名\文件夾\文件夾\文件\文件夾\文件夾\文件名「和我&」.pdf「並增加我爲每個文件。 –

0

好了,所以我發現我可以錄製宏:

  1. 更換過濾器
  2. 另存爲PDF

這完美的作品,但我需要保存的文件名是因爲動態我需要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 

你知道我是如何改變基於單元名稱保存的文件名嗎?