在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,