Question

我正在尝试在运行sub时自动添加引用。但是项目为VBAProject “用户定义类型未定义” 怎么了？

if (!$pid) {

Answer 1

VBAProject实际上是一种特殊类型的库，而不是变量类型。如果您点击F2以打开对象浏览器，则可以从库下拉列表中选择它。因此，您无法创建VBAProject类型的变量。但是，除非您只想要一个较短的别名，否则它不是必需的，也不是ThisWorkbook。只需使用工作簿的VBProject属性即可访问当前项目实例并添加/删除组件。您的代码可以简化为：

Sub tester()

    Dim SolverPath As String
    SolverPath = Application.LibraryPath & "\SOLVER\SOLVER.XLA"

    ThisWorkbook.VBProject.References.AddFromFile SolverPath

End Sub

添加对VBA的引用

1 个答案: