Application.Run 调用另一程序模块的参数传递？

ning84

http://club.excelhome.net/thread-924289-1-1.html



    Dim x1, x2
    x1 = Application.Run("'" & ThisWorkbook.Path & "\b.xls'!bb")
    Debug.Print x1
不带参数，运行正常




    Dim x1, x2
带参数时，出错
    x1 = Application.Run("'" & ThisWorkbook.Path & "\b.xls'!bb")
    Debug.Print x1 →错误为2015

[
a.xls调b.xls.zip (16.02 KB, 下载次数: 15)

2012-9-24 08:29 上传

点击文件名下载附件

wxhnr

    x2 = Application.Run("'" & ThisWorkbook.Path & "\b.xls'!cc", 1)

ning84

1. 谢谢回帖
   
2. ************
   
3. 
   
4. 
   
5. Sub lff()
   
6.   Dim Wk As Workbook
   
7.   Set Wk = Application.Workbooks("b.xls")
   
8.   Debug.Print "'" & ThisWorkbook.Path & "\b.xls'!bb"
   
9.   Debug.Print "'" & ThisWorkbook.Path & "\b.xls'!" & "openWord"
   
10.   Dim App As Object
    
11.   Set App = Application.Run("'" & ThisWorkbook.Path & "\b.xls'!" & "openWord")
    
12.   
    
13. 
    
14.   Debug.Print App.Name, myDoc.Name
    
15.   
    
16. End Sub
    
17. Sub ls1()
    
18.   Dim myDoc As Object
    
19.   Set myDoc = Application.Run("'" & ThisWorkbook.Path & "\b.xls'!" & "newWord")
    
20.   Debug.Print myDoc.Name
    
21.   Debug.Print
    
22. End Sub
    

复制代码

************

1. Function bb()
   
2.   bb = 123
   
3. End Function
   
4. Function cc(xx)
   
5.   cc = xx
   
6. End Function
   
7. 
   
8. Function openWord()
   
9.   Dim Wd As Object
   
10.   Set Wd = CreateObject("Word.Application")
    
11.   Set Wd = GetObject(, "Word.Application")
    
12.   Wd.Visible = True
    
13.   Set openWord = Wd
    
14.   
    
15. End Function
    
16. 
    
17. Function newWord()
    
18.   Dim App As Object
    
19.   Set App = CreateObject("Word.Application")
    
20.   
    
21.   Set newWord = App.Documents.Add()
    
22.   App.Visible = True
    
23. End Function
    

复制代码

a.xls调b.xls.zip (19.83 KB, 下载次数: 30)

2012-9-24 15:41 上传

点击文件名下载附件