如何使用VBA打开文件浏览器并嵌入文件？

Question

我有一个Word文档，希望用户能够将其他文件嵌入到其中 。

其他文件将是各种类型，并且来自用户自己无法预测的驱动器。

而不是他们必须手动执行此操作，而是有一种方法可以对命令按钮进行编码以打开文件浏览器，允许用户选择文件，然后将这些文件嵌入到Word文档中以允许他们将其作为一个完整的文件发送。文献？

Answer 1

这应该是您开始的好地方：

Sub SelectFilesToEmbed()
    Dim dlgOpen As FileDialog, _
        objFile As FileDialogSelectedItems, _
        wdDoc As Word.Document
    Set dlgOpen = Application.FileDialog(FileDialogType:=msoFileDialogFilePicker)

    With dlgOpen
        .Title = "Select the files to be embedded"
       .AllowMultiSelect = True
       .Show
        If .Show = -1 Then
            For Each objFile In .SelectedItems
                wdDoc.Range.InlineShapes.AddOLEObject _
                                    ClassType:="Excel.Sheet.12", _
                                    Filename:=objFile, _
                                    LinkToFile:=False, _
                                    DisplayAsIcon:=False
            Next objFile
        Else
        End If
    End With

End Sub

您仍然必须解决问题：

1. 多个文件的类型（此处的代码用于Excel工作表）
2. 如果未放置代码，请设置Word文档
3. 设置您要嵌入文件的位置（书签或其他位置）

我使用嵌入部分的链接： 使用VBA将文件嵌入到Word文档中

Answer 2

有关文件资源管理器，请参见Application.FileDialog

要嵌入文件，我建议将操作记录为VBA宏，然后根据需要调整宏（即使用通过FileDialog选择的文件）。

Answer 3

感谢大家的阅读/帮助。 可悲的是，这个项目现在已经被分箱了，所以这不再是当前的要求：（只是不想让人们花时间去做一些可能无法采取的措施。