VBA功能根据单元格值打开Word文档

Question

使此功能正常工作有一些小问题。目前，它可以根据检查单元格值是否存在识别文件，但问题是它实际上并未打开Word文档。

任何帮助将不胜感激。

Public Function Method2(ByVal rngl As Range, ByVal strSearch As Variant, ByVal sPath As String)
Dim directory As String
Dim fileName As String
Dim myFile As File
Dim FSO As New FileSystemObject
Dim myFolder As Folder
Dim mySubFolder As Folder
Dim objWord
Dim objDoc
Dim rngRange
Dim rng1 As Range
Set myFolder = FSO.GetFolder(sPath)

directory = "S:File Recipes"
fileName = "Yaroze_Test"
Set objWord = CreateObject("Word.Application")
    Set rng1 = Range("A:A").find(strSearch, , xlValues, xlWhole)
    If strSearch = "" Then
    MsgBox "Please Enter a Product Code!"
    Exit Function
    End If
    If Not rng1 Is Nothing Then
        MsgBox "Product Codes Found!"
        For Each mySubFolder In myFolder.SubFolders
            For Each myFile In mySubFolder.Files
                If InStr(myFile, strSearch) > 0 Then
                fileName = myFile.Name
                MsgBox (myFile.Name)
                Do While fileName <> ""
                    ChDrive ("S")
                    ChDir ("S:File Recipes")
                    directory = mySubFolder.Path & "" & fileName
                    MsgBox directory
                    objWord.Documents.Open fileName:=directory
                    DoEvents
                    Exit For

                Loop
                MsgBox "Task Complete!"
                objWord.Visible = True
                End If
            Next
        Next
       ' Set rngRange = _
         objWord.Range(objWord.Paragraphs(1).Start, objWord.Paragraphs(1).End - 1)
       ' rngRange.InsertAfter _
         "This is now the last sentence in paragraph one."
        Else
            MsgBox "Product Codes Not Found!"
        End If
End Function

我认为问题是：

objWord.Documents.Open fileName:=directory

但我无法确定。

Answer 1

当我对此进行测试时，我发现这会导致Excel永远等待Word完成OLE动作。在objWord.Documents.Open Filename:=directory之前移动objWord.Visible = True后，我发现Word在尝试打开文件时给我一个提示。

如果您在objWord.Documents.Open Filename:=directory之前移动objWord.Visible = True也可能对您来说是相同的。