如何打開文件瀏覽器並使用VBA創建文件？

我有一個Word文檔，我希望用戶能夠將其他文件嵌入。如何打開文件瀏覽器並使用VBA創建文件？

其他文件將是各種類型和用戶自己的驅動器，我無法預測。

而不是將它們不必手動地做到這一點，是有編碼一個命令按鈕打開文件瀏覽器的一種方式，允許用戶選擇文件（一個或多個），然後嵌入這些文件到Word文檔以允許它們把它作爲一個完整的文件發送？

來源

2015-10-13 SNewby

文件瀏覽，看到Application.FileDialog

要嵌入的文件，我建議來記錄行動VBA宏，然後適應宏觀到您的需求（即通過使用選定的FileDialog的文件）。

來源

2015-10-13 12:02:23 Andre

這應該是一個很好的地方讓你開始：

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

你仍然需要解決的問題：

多個文件的類型（這裏的代碼是一個Excel工作表）
設置你的word文檔如果代碼沒有放在
設置你想要嵌入文件的位置（書籤或其他）

從我參加的嵌入部分的鏈接：Embed a file into a Word doc using VBA

來源

2015-10-13 12:24:24 R3uK

感謝你們，正如你所說我仍然需要解決其他3個部分 – SNewby

「2」將是非常容易的，因爲「3」你會發現很多信息，只是使用word在VBA中使用書籤**對於「1」，最好的解決方案是在Word **中使用宏記錄器來獲取文件類型（啓動宏記錄器，然後進入**「插入」標籤和「對象」**，然後爲每種類型創建一個新對象並清理您可以編輯您的問題以反映您的發現，我們會盡力幫助您達到您的最終目標！） – R3uK

感謝您的全力幫助@ R3uK – SNewby

感謝大家的閱讀/幫助。這個項目現在已經被捨棄了，所以這不再是當前的需求:(只是不希望人們花時間在可能沒有動作的東西上。

來源

2015-10-16 10:01:03 SNewby

如何打開文件瀏覽器並使用VBA創建文件？

回答

相關問題