ExcelVBA批量添加PDF文件

关注微信公众号：VBA168，回复“批量导入pdf文件”，获取文件下载链接。

---

如图1所示，"BOM-01.xlsx"工作簿中的Sheet1工作表根据B列图号单元格中的内容，在图2所示的文件夹中找到对应的PDF文件，然后嵌入到相应的N列，双击N列中所示的图标，会打开PDF文件，是源文件的副本，即删除源文件，也可以打开N列的文件。
 

图1 根据B列的图号在N列嵌入对应的PDF文件

图2 PDF文件

图3 文件格式
 

Sub 导入文件()
     Application.ScreenUpdating = False'禁止屏幕更新
     Application.DisplayAlerts = False'禁止弹出对话框
     
     Dim fil As String, fn As String
     Dim wb As Workbook
     Dim sht As Worksheet
     Dim RWidth As Long, RHeight As Long
     Dim Obj