Question

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

我经常需要对代码进行一些更改，并使用（ctrl-V）

在按钮后面的形式（通过点击事件）复制（ctrl-C）此代码

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

Answer 1

VBA中的元编程可能是一个有趣的话题。您想要查找VBIDE库。我可能从CodeModule对象和Chip Pearson's "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

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

1 个答案: