☰

是否可以在 Excel 2007 中一次插入多个对象？

tag-icon • tag-icon microsoft-excel
是否可以在 Excel 2007 中一次插入多个对象？

我的同事保存着一份候选人数据电子表格，其中包含每个候选人的简历，这些简历都是以对象的形式插入的。我们如何才能一次插入多个对象（简历），而不是逐一检查插入-->对象-->从文件创建-->显示为图标我们一直在使用哪种单独的方法？我曾使用宏来插入文档的超链接，但找不到用于此目的的方法或找到类似问题的答案。请帮忙！

答案1

可以使用宏来实现。例如：

http://excel-macro.tutorialhorizo​​n.com/vba-excel-addinsert-multiple-objects-from-a-folder-in-an-excel-document/

也许某些 Excel 扩展提供了此功能。

我必须对链接的宏进行少许修改（针对 Excel 2013），但所有版权归原作者所有。

Sub AddOlEObject()

Dim mainWorkBook As Workbook

Set mainWorkBook = ActiveWorkbook

Folderpath = "D:\Insert"

Set fso = CreateObject("Scripting.FileSystemObject")

    NoOfFiles = fso.GetFolder(Folderpath).Files.Count

    Set listfiles = fso.GetFolder(Folderpath).Files

    For Each fls In listfiles

        Counter = Counter + 1

        Range("A" & Counter).Value = fls.Name

        strCompFilePath = Folderpath & "\" & Trim(fls.Name)

        If strCompFilePath <> "" Then

            ActiveSheet.OLEObjects.Add(Filename:=strCompFilePath, Link:=False, DisplayAsIcon:=True, IconIndex:=1, IconLabel:=strCompFilePath).Select

                'Sheets("Object").Activate

            'Sheets("Object").Range("B" & ((Counter - 1) * 3) + 1).Select

        End If

    Next

mainWorkBook.Save

End Sub

注释行会导致宏崩溃（Excel 2013），所以我禁用了它们。它们用于对象定位 - 因此如果没有它们，所有对象都会位于左上角（最后插入之前的对象）。

抱歉我的英语不好。

相关内容