vba 求救

wf555

Sub test()

    Dim filename As String

    Dim mypath As String
    Dim wdapp As New Word.Application
    wdapp.Visible = True

    mypath = ThisWorkbook.Path & "\"

filename = Dir(mypath, vbDirectory)

    Do
        If Not filename Like "*.*" Then

            wdapp.Documents.Open ("thisworkbook.path & "\" & filename & " \可研资料\可研报告\m.doc " )

            wd.Visible = True

        End If

        filename = Dir

    Loop Until filename = ""

End Sub

加粗的那里老是提示错误 ，请问怎样写才对啊 新手未上路，求救各位大神

gwjkkkkk

代码看不出来，楼主可以检查是否存在这个文件？

大灰狼1976

" \可研资料\可研报告\m.doc "
是不是这里头尾有空格。

wdapp.Documents.Open ("thisworkbook.path
这里的引号也是错误的。
另外上面有mypath变量，直接可使用。

剑指E

试试

1. Sub test()
   
2.     On Error Resume Next
   
3.     Dim filename As String
   
4.     Dim mypath As String
   
5.     Dim wdapp As New Word.Application
   
6.     Dim wd As Document
   
7.     wdapp.Visible = True
   
8.     mypath = ThisWorkbook.Path & ""
   
9.     filename = Dir(mypath, vbDirectory)
   
10.     Do
    
11.         If Not filename Like "*.*" Then
    
12.             Set wd = wdapp.Documents.Open(mypath & filename & "\可研资料\可研报告\m.doc")
    
13.             
    
14.             '..........................
    
15.             
    
16.             Application.WindowState = xlMinimized
    
17.             If Err.Number Then
    
18.                 Err.Number = 0
    
19.             Else
    
20.                 GoTo xx
    
21.             End If
    
22.         End If
    
23.         filename = Dir
    
24.     Loop Until filename = ""
    
25. xx:
    
26.     Set wdapp = Nothing
    
27. End Sub

复制代码