vba - 将自定义对象从 VBA 传递到 VBScript

Question

我的 Excel 文件中有一个返回自定义类的函数，当我尝试从 VBScript 调用此函数时，出现“未知运行时错误”

示例 VBA 代码:

Function myVBAFunc() As Variant
   Set myClass1 = New Class1
   myClass1.Name = "Test"
   Set myVBAFunc= myClass1
End Function

调用VBScript代码:

Set Excel = CreateObject("Excel.Application") 
Set Workbook = Excel.Workbooks.open("C:\myFile.xls")
Set myRes = Excel.Run("myVBAFunc")
Excel.Quit

当我尝试设置 myRes 时出现错误，我认为这是由 VBScript 无法识别对象类型引起的。有什么办法可以解决这个问题吗？

谢谢，阿什拉夫

Answer 1

您需要将类模块的实例属性(在其属性窗口中)从Private更改为PublicNotCreatable。

(也可以严格键入函数)

Function myVBAFunc() As Class1
   Set myVBAFunc= New Class1
   myVBAFunc.Name = "Test"
End Function