將excel電子表格中的VBA代碼導入到按鈕背後的訪問表單中

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