Excel加载项从ActiveWorkbook调用子例程

安倍金

我创建了一个加载项,可将工作表添加到工作簿并导入多个模块。然后,我希望外接程序运行Active Workbook中现在存在的子例程。到目前为止,这就是我所得到的,并且我收到运行时错误“ 438”:对象不支持此属性或方法。

正确的语法是什么(如果可以做到的话)。谢谢。

' Class name is EventClassModule
Public WithEvents App As Application
Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
    If Wb.Name = "Just To Test.xls" Then
        Wb.Sheets.Add Type:="C:\TestGLPage.xls"
    fname = Dir("C:\Users\Me\Desktop\BAS\*.*", vbNormal)
    While fname <> ""
       If Right(fname, 3) = "frm" Or Right(fname, 3) = "bas" Or Right(fname, 3) = "cls" Then
       ActiveWorkbook.VBProject.VBComponents.Import "C:\Users\Me\Desktop\BAS\" & fname
       End If
       fname = Dir()  'get the next file
    Wend
    Call Application.Workbooks("Just To Test.xls").starter
    End If
End Sub
和ASM

VBA不是动态语言。在运行时更改代码或代码对象的名称时,VBA必须重新编译这些模块,然后才能访问更改。进行此类更改后,您可能还会发现断点无法正常工作。

这种重新编译会立即自动进行,但是无法从已经执行的代码中进行访问。您需要获取Excel才能重新输入VBA代码。

您可能可以摆脱使用Application.Run的麻烦,但是如果您不需要启动程序作为阻塞调用(在示例代码中就是这种情况),我可能会使用Application.OnTime来提高安全性。

为了清楚起见,在使用Application.Run或Application.OnTime调用子例程时,无法使用模块名称对其进行限定。但是,您可以使用bang语法使用工作簿的名称对其进行限定。例如。Application.Run "Book1.xlsx!SubNameToBeCalled"

例子

我创建了一个空白工作簿,并创建了两个模块

进口的

Public Sub RunMe()
    MsgBox "Test!"
End Sub

主要的

Public Sub Run()
  ActiveWorkbook.VBProject.VBComponents.Import "C:\Temp\Imported.bas"
  ' Showing how to do it with Run
  Application.Run ThisWorkbook.Name & "!RunMe"
  ' Showing the safer way with OnTime
  Application.OnTime Now, ThisWorkbook.Name & "!RunMe"
End Sub

然后,我将“导入的”模块导出到“ C:\ Temp \ Imported.bas”,并将其从项目中删除。

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章

使用参数调用Excel VBA子例程

在宏中调用Excel加载项功能

从Python调用Access子例程

VBA EXCEL:如何在另一个子例程中调用一个子例程?

子例程中调用的子例程中的Application.ScreenUpdating

调用带有对象作为参数的子例程时的运行时错误Excel VBA

其他功能区按钮的Excel自定义功能区按钮调用子例程

子例程在其调用例程的堆栈中写入是否安全?

使用异步执行上下文为Office.js Javascript Word加载项添加子例程

从R调用并行的fortran MPI子例程

试图在C ++中调用fortran子例程

调用参数为指针别名的子例程

通过动态值调用子例程

在 Fortran 中调用 StdCall 子例程

Perl线程-从模块(pm)调用子例程

从C#调用FORTRAN子例程

Excel加载项COM加载项VS VSTO加载项

VSTO Excel加载项:从模态窗口窗体调用Excel Inputbox时,焦点移到Visual Studio

我可以在带有子例程调用的子例程上使用F2PY吗?

当工作簿完成加载时运行子例程?

调用子例程需要“错误的”程序包规范

使用完全限定名称调用模块子例程

使用Julia的数组参数调用Fortran子例程

为什么多个克隆系统调用需要单行子例程?

使用函数或子例程调用的Fortran行继续

从C ++调用FORTRAN子例程会产生非法的参数值

从C ++使用可选参数调用Fortran子例程

R使用字符参数调用Fortran子例程

如何从“ for”处理过的项目中调用子例程(在“ in”之后)?