excel - 将 VBA 代码从 Excel 电子表格导入到按钮后面的访问表单中

Question

我有一个 Excel 电子表格，该电子表格中有一个我自己编写的 VBA 脚本。

经常我必须对代码进行一些更改，并使用 (ctrl-V) 在按钮后面的表单中复制（ctrl-C）此代码（通过单击事件）

当我在电子表格（VBA 代码）中进行更改时，是否可以在 Access 过程中自动执行此操作，以便我可以在 Access 2007 中导入此 VBA 代码？

Answer 1

VBA 中的元编程可能是一个有趣的话题。您需要查找 VBIDE 库。我可能会从CodeModule对象和Chip Pearson 的“Programming The VBA Editor”开始。

下面的示例将包含模块名称的模块范围私有常量插入到活动代码窗格中。

Private Sub insertModuleName()
' inserts a module name constant into every module in active project

    Dim oPrj As VBProject
    Set oPrj = VBE.ActiveVBProject
    Dim oMod As CodeModule
    Dim oCom As VBComponent

    Dim str As String
    str = "Private Const MODULE_NAME As String = "

    Dim i As Long
    For i = 1 To oPrj.VBComponents.count
       oPrj.VBComponents.Item(i).CodeModule.InsertLines 3, str & Chr(34) & oPrj.VBComponents.Item(i).NAME & Chr(34)
    Next i
End Sub