在VBA中定义DLL函数时，外部过程无效

Question

Private Declare PtrSafe Function GenerateActiveTypicalWorksheet Lib "C:\Program Files\EPLAN\EEC One\2.7.3\Platform64\W3ApiBase.dll" Alias "EecOne.GenerateActiveTypicalWorksheet" () As Integer

Call Application.Run("EecOne.GenerateActiveTypicalWorksheet")

End Function

Private Sub Workbook_Open()

    GenerateActiveTypicalWorksheet

End Sub

我试图在.dll文件中调用一个函数，但我得到了错误消息“Invalid procedure”。

这是我尝试使用的dll/API的唯一可用文档：

​

​

还有这个：

​

​

Answer 1

语法应该是这样的：

Private Declare PtrSafe Function GenerateActiveTypicalWorksheet Lib "C:\Program Files\EPLAN\EEC One\2.7.3\Platform64\W3ApiBase.dll" Alias "EecOne.GenerateActiveTypicalWorksheet" () As Integer

Private Sub Workbook_Open()
    GenerateActiveTypicalWorksheet
End Sub

请注意，Private Declare PtrSafe Function就像是对库中函数的引用。它只是为了让它可用，并且没有源代码和End Function。它更像是一个函数的链接。

这里的问题是这两行…

Call Application.Run("EecOne.GenerateActiveTypicalWorksheet")
End Function

不在函数或过程中，因此会出现错误…

过程外部的

无效