WinCC VBS利用EXCEL调用Windows API函数.docVIP

WinCC VBS利用EXCEL调用Windows API函数 By dcount 2008-11-1 前面已经讨论过利用VBS的CreateObject方法来干很多以前不敢想象的事情，但Windows API却没有办法，虽有DynmicWrapper.dll这样的东西，毕竟使用起来不方便，而且功能也有限。如果利用EXCEL作为突破口，VBS调用EXCEL的宏，而由EXCEL的宏来调用Windows API正可以很好的解决这一问题。 简单举例 在API.XLS的Sheet1中加入如下代码： Private Declare Function SHShutDownDialog Lib shell32 Alias #60 (ByVal YourGuess As Long) As Long Public Sub ShowShutDownDlg() 显示关机界面 SHShutDownDialog 0 End Sub 在WinCC调用之前先用EXCEL运行一下，效果如下： 接下来由WinCC的VBS调用如下： Dim oExcelFile,oExcel,oWorkBook,oSheet oExcelFile= HMIRuntime.ActiveProject.Path + \APIXLS\API.XLS Set oExcel = CreateObject(Excel.Application) Set oWorkBook = oExcel.workbooks.OPen(oExcelFile) Set oSheet = oWorkBook.Sheets(Sheet1) oExcel.run Sheet1.ShowShutDownDlg oWorkBook.Close Set oWorkBook = Nothing oExcel.quit Set oExcel = nothing 效果和EXCEL中是一模一样的，^_^。 如何传递参数，和取得返回值 但大多数时候我们需要调用一些API函数，传递某些值来获取返回值，比如FindWindow。 oExcel.run传递参数是可以的，比如EXCEL有宏： Public Sub TestMsg(Msg As String) MsgBox Msg End Sub 那么调用的时候用oExcel.run Sheet1. TestMsg,”TEST MSG HERE” 即可。 但oExcel.run却不支持返回值的，因此得另想办法。其实也简单，利用Sheet1的表格来存放返回值就可以了，EXCEL宏调用后将值写入Range中，而VBS则读取该Range的值即可，以此达到取得返回值之目的，^_^。下面以FindWindow为例： 在API.XLS的Sheet1中加入如下代码： Private Declare Function FindWindow Lib user32 Alias FindWindowA (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Sub xlsFindWindow(WindowTitle As String) Dim hwnd As Long hwnd = FindWindow(vbNullString, WindowTitle) Sheet1.Range(A1).Value = hwnd End Sub 接下来由WinCC的VBS调用如下： Dim oExcelFile,oExcel,oWorkBook,oSheet oExcelFile= HMIRuntime.ActiveProject.Path + \APIXLS\API.XLS Set oExcel = CreateObject(Excel.Application) Set oWorkBook = oExcel.workbooks.OPen(oExcelFile) Set oSheet = oWorkBook.Sheets(Sheet1) oExcel.run Sheet1.xlsFindWindow,WinCC-Runtime - #向FindWindow传递参数 MsgBox oSheet.Range(A1).Value #从Sheet中取得返回值 oExcel.DisplayAlerts = False #关闭EXCEL提示，因为我们对Sheet进行了修改，退出的时候会提示是否保存 oWorkBook.Close Set oWorkBook = Nothing oExcel.quit Set oExcel = nothing 性能优化 大家都知道EXCEL调用起来是很慢的，尤其是每次Create