日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 辦公軟件教程 > 詳細頁面

如何運用VBA大局部轉換Excel工作簿為PDF

如何運用VBA大局部轉換Excel工作簿為PDF

更新時間:2023-12-23 文章作者:未知 信息來源:網絡 閱讀次數:

Microsoft Excel是Microsoft為使用Windows和Apple Macintosh操作系統的電腦編寫的一款電子表格軟件。直觀的界面、出色的計算功能和圖表工具,再加上成功的市場營銷,使Excel成為最流行的個人計算機數據處理軟件。

Excel 2010和Excel 2007可以將Excel工作簿另存為PDF格式文件,但手工的方法每次只能轉換一個工作簿,要轉換多個工作簿就顯得有些繁瑣。如果沒有批量轉換軟件,在Excel 2010和Excel 2007中,利用VBA代碼也可以輕松實現將Excel工作簿批量轉換為PDF,方法如下:

1.按Alt+F11,打開VBA編輯器。

2.在右側代碼窗口中輸入下列代碼:

Sub BatchConvertWorkBookToPDF()
Application.DisplayAlerts = False
Application.ScreenUpdating = False

Dim fDialog As FileDialog
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
Dim wkBook As Workbook
Dim showFolder As Boolean
showFolder = False
With fDialog
.Filters.Add "Excel文件", "*.xls; *.xlsx; *.xlsm", 1
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
'如果選擇了本工作簿則跳過
If InStrRev(vrtSelectedItem, ThisWorkbook.Name) = 0 Then
On Error Resume Next
Set wkBook = Application.Workbooks.Open(vrtSelectedItem, ReadOnly:=True, Password:="")
'跳過設置打開密碼的工作簿
If Not wkBook Is Nothing Then
'跳過隱藏的工作簿
If Windows(wkBook.Name).Visible = True Then
showFolder = True
'轉換開始
wkBook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Left(vrtSelectedItem, InStrRev(vrtSelectedItem, ".") - 1) & ".pdf" _
, Quality:=xlQualityMinimum, IncludeDocProperties:=False, IgnorePrintAreas _
:=True, OpenAfterPublish:=False
wkBook.Close , savechanges = False
Else
wkBook.Close , savechanges = False
End If
End If
End If
Next vrtSelectedItem
If showFolder Then Call Shell("explorer.exe " & Left(fDialog.SelectedItems(1), _
InStrRev(fDialog.SelectedItems(1), "\")), vbMaximizedFocus)
End If
End With

Set fDialog = Nothing
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

3.將需要轉換的Excel工作簿復制到某個文件夾中。

4.關閉VBA編輯器返回Excel界面。按Alt+F8打開“宏”對話框,執行“BatchConvertWorkBookToPDF”宏。

5.在彈出的“瀏覽”對話框中選擇包含要轉換工作簿的文件夾,選擇所有要轉換的工作簿,單擊“打開”按鈕即可開始轉換。

說明:

1.已轉換的PDF文件位于原工作簿所在的文件夾中,轉換完成后會自動打開該文件夾。

2.不能轉換設置了打開密碼的工作簿、隱藏的工作簿、隱藏的工作表和包含上述VBA代碼的工作簿。

3.轉換的文件類型為“*.xls”、“*.xlsx”、“*.xlsm”。如果要轉換其他類型的工作簿,可在代碼中添加文件類型。

4.如果要轉換的工作簿具有相同的名稱和不同的后綴,如“Book1.xls”和“Book1.xlsx”,則先轉換的PDF文件會被覆蓋。

5.Excel2007必需安裝用于 2007 Microsoft Office system 的“另存為 PDF 或 XPS”加載項(見本站《如何將Excel工作簿保存為PDF格式文件》一文)。

單擊此處打開xlsm格式源文件下載頁面。


Excel整體界面趨于平面化,顯得清新簡潔。流暢的動畫和平滑的過渡,帶來不同以往的使用體驗。

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

主站蜘蛛池模板: 字幕在线观看 | 看全色黄大色黄大片毛片 | 欧美日韩亚洲精品一区 | 香蕉久久成人网 | 日本免费不卡在线一区二区三区 | 欧美日韩中文一区二区三区 | 免费不卡中文字幕在线 | 亚洲精品美女久久久久网站 | 曰批免费视频播放在线看片一 | 国产一区二区三区在线 | 永久网站色视频在线观看免费 | 久久99热精品免费观看无卡顿 | 国产精品亚洲一区二区三区正片 | 久草在线视频看看 | 成人sq视频在线观看网站 | 99久久国产综合精品网成人影院 | 日韩综合在线视频 | 日日射天天射 | 国产精品无码久久综合网 | 久久久久久天天夜夜天天 | 久久免费精品一区二区 | 美女被免费视频的网站 | 久久不射网站 | 91麻豆最新在线人成免费观看 | 亚洲日本久久一区二区va | 久久本道久久综合伊人 | 久久精品视频99精品视频150 | 午夜精品视频 | 在线a人片天堂免费观看高清 | 亚洲精品一区 | 国产一级特黄生活片 | 成人免费黄色小视频 | 波多野结衣亚洲一区 | 免费欧美黄色 | 夜夜躁天天躁很很躁 | 欧美成人www在线观看网页 | 色综合久久综合欧美综合 | 国产成人亚洲综合网站不卡 | 国产手机精品a | 亚洲第一激情 | 午夜国产精品久久久久 |