vbs 调用excel api

czjt1234

1. Option Explicit
   
2. Dim oWS, oFSO, oExcel, s
   
3. 
   
4. Set oWS    = CreateObject("WScript.Shell")
   
5. Set oFSO   = CreateObject("Scripting.FileSystemObject")
   
6. Set oExcel = CreateObject("Excel.Application")
   
7. oExcel.DisplayAlerts = False
   
8. 
   
9. s = "HKEY_CURRENT_USER\Software\Microsoft\Office\$\Excel\Security\AccessVBOM"
   
10. oWS.RegWrite Replace(s, "$", oExcel.Version), 1, "REG_DWORD"
    
11. 
    
12. s = "Private Declare Function FindWindow Lib ""user32"" Alias ""FindWindowA"" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long"
    
13. 
    
14. oExcel.Workbooks.Add.VBProject.VBComponents.Add(1).CodeModule.AddFromString s
    
15. 
    
16. oWS.Run "%windir%\system32\calc.exe"
    
17. MsgBox "下面查找新打开的标题栏：计算器", vbSystemModal
    
18. 
    
19. s = oExcel.Run("FindWindow", vbNullString, "计算器")
    
20. MsgBox "窗口句柄: " & s
    
21. 
    
22. oExcel.Quit()

复制代码

这个怎么一直找不到窗口的

czjt1234

用dynwrap.dll这个可以的

估计是vbs把vbNullString转换为""后传递参数了