求用excel vba打开word文件

同心/ty

求大师帮我写一代码，能解决用excel vba代码打开某磁盘word文件，打开文件路径最好是出现提示框供选取文件。

gwjkkkkk

请参考。。。

同心/ty

gwjkkkkk 发表于 2023-2-27 18:36
请参考。。。

动作是有，但word文件没有真正的打开，请老师完善一下代码。

gwjkkkkk

同心/ty 发表于 2023-2-27 18:59
动作是有，但word文件没有真正的打开，请老师完善一下代码。

其实已经打开了，只不过新的application没显示，请参考附件。。。

同心/ty

gwjkkkkk 发表于 2023-2-27 19:16
其实已经打开了，只不过新的application没显示，请参考附件。。。

谢谢老师，这次打开了。

同心/ty

Dim wdApp As Object, wdDoc As Object
    Dim Items As FileDialogSelectedItems, strPath$
   
    strPath = ThisWorkbook.Path & "\"
    With Application.FileDialog(1)
        With .Filters
            .Clear
            .Add "Word文档(doc?)", "*.doc?"
        End With
        .AllowMultiSelect = False
        .InitialFileName = strPath
        If .Show Then Set Items = .SelectedItems Else Exit Sub
    End With
    Application.ScreenUpdating = False
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True
    Set wdDoc = wdApp.documents.Open(Items(1))
   End Sub

同心/ty

Dim wdApp As Object, wdDoc As Object
    Dim Items As FileDialogSelectedItems, strPath$
   
    strPath = ThisWorkbook.Path & "\"
    With Application.FileDialog(1)
        With .Filters
            .Clear
            .Add "Word文档(doc?)", "*.doc?"
        End With
        .AllowMultiSelect = False
        .InitialFileName = strPath
        If .Show Then Set Items = .SelectedItems Else Exit Sub
    End With
    Application.ScreenUpdating = False
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True
    Set wdDoc = wdApp.documents.Open(Items(1))
   End Sub

同心/ty

Dim wdApp As Object, wdDoc As Object
    Dim Items As FileDialogSelectedItems, strPath$
   
    strPath = ThisWorkbook.Path & "\"
    With Application.FileDialog(1)
        With .Filters
            .Clear
            .Add "Word文档(doc?)", "*.doc?"
        End With
        .AllowMultiSelect = False
        .InitialFileName = strPath
        If .Show Then Set Items = .SelectedItems Else Exit Sub
    End With
    Application.ScreenUpdating = False
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True
    Set wdDoc = wdApp.documents.Open(Items(1))
   End Sub