代码之家 › 专栏 › 技术社区 › Inception

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

vba excel

Inception · 技术社区 · 6 年前

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 outside procedure”。

这是我试图使用的dll/API的唯一可用文档:

而这个:

1 回复 | 直到 6 年前

Pá´Ê 6 年前

语法应该如下:

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

不在函数或过程中,因此您得到了错误

无效的外部过程

推荐文章

Excel Questions · 用于根据条件从工作表1到工作表2提取数据的Excel VBA代码[已关闭]

1 年前

jbirk94 · EXCEL:当lookup_value是一个范围时,如何使用XLOOKUP返回多个列?

1 年前

Abel Zewdu · 我有3列,其中一列的值为1,其他列的值则为0。如何获取值为1的列名?

1 年前

Interactive · 如果相邻单元格为空,则VBA完成循环

1 年前

RonanC · VBA数据验证下拉列表,是否也允许自由文本?

1 年前

user1646660 · 如果日期介于两个日期之间,则向插槽添加日期

1 年前

Blake S · Excel宏错误:过程调用或参数无效

1 年前

Hieu Minh · 数据透视表无法覆盖现有的合并单元格

1 年前

Fxp · 如何将数字或日期格式应用于Excel中TEXTSPLIT之后的列

1 年前

Nick · 当条件匹配电源查询时,从单独的查询中返回多列

2 年前