vbapdf

1. excel VBA一學就會，pdf版或其他2010 excel vba pdf版書

一、VBA在版本之間的差異很小，你看2003的書也基本上不影響
二、我有《別怕，Excel VBA其實很簡單》，我給你推薦這本書，為了防止被刪除，請網路雲給我發消息，我在那上面分享給你。

2. VBA 打開PDF文件

SubVBA打開PDF文件_芐雨()
CreateObject("Wscript.Shell").Run("pdf文件路徑+名稱")
'如:CreateObject("Wscript.Shell").Run("F:pdfABC.pdf")
EndSub

3. 如何用vba實現多個pdf合成一個啊，求大神指教

兩種常用的合並軟體及合並方法。
Adobe Acrobat XI 和PDFBinder
方法/步驟1
1、運行Aaobe acrobat ，然後點擊「創建」—「合並文件到單個PDF」，或者點擊「 創建」右側的「合並」—「合並文件到單個PDF」。
2、彈出「合並文件」的界面，點擊「添加文件」—選擇「添加文件」/「添加文件夾」/「重新使用文件」來進行添加要合並的PDF文件。
3、彈出「添加文件」的界面，選擇好要合並的PDF文件後，點擊「添加文件」，完成要合並pdf文件的添加。
4、看到文件已添加完成，如果要調整合並文件的順序，可以選中該文件然後用左下角的「向上」、「向下」按鍵來進行順序的調整，調整完畢後點擊右下角的「合並文件」按鍵。如果只想合並已添加單個pdf文件中的某幾個頁面可以通過「選擇頁面」選取想要添加的頁面。
5、合並完成以後，會直接打開合並好的文件，名字一般為「組合1」，並自動彈出「另存為」窗口，根據需要變更文件點擊保存即可把合並好的文件保存下來。
方法/步驟2
運行PDFBinder，彈出PDF合並器功能界面，點擊「添加文件」，添加要合並的PDF文件。
在打開界面選擇好要合並的PDF文件後，點擊「打開」，完成要合並pdf文件的添加。
下圖可以看到文件已添加完成，如果要調整合並文件的順序，可以選中該文件然後用功能區的「向上」、「向下」按鍵來進行順序的調整，調整完畢後點擊「合並！」按鍵。
在彈出的「另存為」界面輸入文件名，點擊保存完成文件合並，打開文檔可以看到文檔已合並成功。

4. excel PDF 用VBA代碼 自動關閉

導出PDF的語句添加一個不打開的參數，例如：

Sheet1.ExportAsFixedFormat Type:=xlTypePDF, OpenAfterPublish:=False

下面的代碼測試成功：

5. Excel VBA對於PDF文件的控制

用VBA的sendkeys發快捷鍵就行了。用excel或按鍵精靈都能做。
不免費做。之前一百塊給人做過。可批量列印，批量轉office格式。

6. EXCEL VBA 將工作薄內所有工作表存為一個PDF文件

可以通過錄制宏得到一段代碼，稍加修改後即可使用，如下圖示：

代碼：

Option Explicit

Sub EtoPDFs()

'

'另存為PDF

' '全選工作表

Sheets.Select

'另存為PDF文件『ThisWorkbook.Name』部分因為不知道你的工作簿後綴是什麼，否則可以通過mid或者left函數修改保存的名字

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

ThisWorkbook.Path & "" & ThisWorkbook.Name & ".pdf", Quality _

:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

OpenAfterPublish:=True

End Sub

7. 如何利用excel VBA生成PDF文件

首先，載入引用，如圖

然後，在列印機中對Acrobat Distiller的列印進行設置設置（必須，否則轉化出錯！）

PublicSubMakePDF(ByValstrPDFFileNameAsString)

DimstrPSFileNameAsString

DimxlWorksheetAsWorksheet

strPSFileName = Left(strPDFFileName, InStrRev(strPDFFileName, "/")) & "tmpPostScript.ps"

SetxlWorksheet = ActiveSheet

CallxlWorksheet.PrintOut(copies:=1, preview:=False, ActivePrinter:="Acrobat Distiller", printtofile:=True, collate:=True, prtofilename:=strPSFileName)

SetobjPdfDistiller =NewPdfDistiller

CallobjPdfDistiller.FileToPDF(strPSFileName, strPDFFileName, "")

CallKill(strPSFileName)

EndSub

8. VBA能不能在pdf文件的內容中提取所需要的內容

建議把人工操作步驟，寫成按鍵精靈程序去半自動化完成。vba對pdf處理極弱，python也好不了太多。或者你就把pdf轉化成office文件（工具很多，例如Acrobat）再用vba處理。