如何在excel里同时插入多个对象（PDF\WORD\EXCEL\图片等）

最新推荐文章于 2024-04-30 09:31:29 发布

老衲姓田甜到忧伤

最新推荐文章于 2024-04-30 09:31:29 发布

阅读量1.5w

点赞数

分类专栏： Excel VBA 文章标签： excel 宏

本文链接：https://blog.csdn.net/Dia_tian/article/details/9356651

版权

本文介绍了如何使用Excel宏一次性插入多个对象，包括PDF、Word、Excel文件和图片。提供了一个名为Macro1的宏示例，允许用户通过文件对话框选择多个文件，并在Excel中以图标形式显示，保持原始文件名。宏代码简洁高效，极大地提高了工作效率。

摘要由CSDN通过智能技术生成

在EXCEL里可以插入多种对象，如PDF\WORD\EXCEL\图片等，但一次性只能插入一个对象，并且要在excel里显示插入对象的图标和原来名称的话还需要繁琐的步骤。因此，设计一个宏来解决这个问题。

以下是宏代码：

Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+m
'
Dim lngCount As Long
Dim myfilepath As String
Dim myfilename As String

    With Application.FileDialog(msoFileDialogFilePicker)'excel宏打开文件页面设计
        .AllowMultiSelect = True
        .Show
        For lngCount = 1 To .SelectedItems.Count
            'MsgBox .SelectedItems(lngCount)
            myfilepath = .SelectedItems(lngCount)'设置插入路径
            myfilename = Right(myfilepath, Len(myfilepath) - InStrRev(myfilepath, "\"))'设置显示名称为原始插入文件名
            'MsgBox (myfilepath)


   ActiveSheet.OLEObjects.Add(Filename:= _
        myfilepath,