VBA批量导入pdf、excel等到excel中

呼吸爱天王

Sub 批量导入文件()
Dim iNumber As Integer, DocName As String '定义iNumber是文件数量，DocName是所选文件的全名称(含路径)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
    With Application.FileDialog(msoFileDialogOpen)
            .AllowMultiSelect = True
            .Show
        For iNumber = 1 To .SelectedItems.Count
            DocName = .SelectedItems(iNumber)
            ActiveSheet.OLEObjects.Add(Filename:= _
            DocName, Link:=False, _
            DisplayAsIcon:=True, IconFileName:= _
                 "C:\windows\Installer\{AC76BA86-1033-FFFF-7760-0E0F06755100}\_PDFFile.ico", _
            IconIndex:=0, IconLabel:= _
                 DocName).Select
    ActiveCell.Offset(1, 0).Range("A1").Select '每隔1个单元格往下放文件
        Next iNumber
    End With
    '批量导入excel的图标"C:\windows\Installer\{90150000-0011-0000-0000-0000000FF1CE}\xlicons.exe", _
End Sub

呼吸爱天王

在excel中批量导入文件，之前在网上找过好些，没有对应的，我就直接编写了一个，不知道大家使用这个代码有什么问题没，在我本地测试是完全ok的，代码中红色部分是显示插入附件的图标样式。

fxl447098457

呼吸爱天王 发表于 2018-5-31 20:09
在excel中批量导入文件，之前在网上找过好些，没有对应的，我就直接编写了一个，不知道大家使用这个代码有 ...

可以的。哈哈，好几年前就要Excel文档插入bom.可怜我当时不会VBA，也不知道来这里提问，一个一个的插入。。一个人弄了好久。。。

xvjiex

太棒了！真羡慕高手的随心所欲。会VBA真方便，一定要努力学VBA。

呼吸爱天王

各位，我修改了下代码，就是增加了选择文件类型的条件，其实这个不改也无所谓，主要是让excel导入的文件可以显示其本身的图标样式而已。

xvjiex

呼吸爱天王 发表于 2018-6-1 15:51
各位，我修改了下代码，就是增加了选择文件类型的条件，其实这个不改也无所谓，主要是让excel导入的文件可 ...

收下了，谢谢！

liaoxianlu

不错，收藏了！

wmm19890823

老师，这个批量插入是可以的，但是这个dpf文件如何才能根据单元格的大小，自动变化其大小呢，求回复

0青春无悔0

感谢大神分享，我测试了一下，确实可以批量插入PDF文件。
我想能否在此基础上升级一各功能:根据B列的号码，在L列插入对应名称的PDF文件。 谢谢！

ccc2006

有用，试试，谢谢