如何通過VBA代碼文件進行搜索

我剛剛開始了一個新公司的工作，以前的開發人員已經創建了許多自動化任務。當然，幾乎沒有文檔，我沒有機會與之前的開發人員合作，所以現在我試圖篩選所有這些進程，尋找修改某些特定文件的進程。如何通過VBA代碼文件進行搜索

我已經腳本化了SQL中的所有存儲過程並使用了搜索工具，但沒有找到我正在尋找的東西，所以現在我想知道如果我需要的過程位於許多Access數據庫之一用過的。使用SQL Server，編寫一個C＃應用程序來編寫特殊代碼很容易，因此我可以通過它們進行搜索，但是使用Access時，它看起來像我僅限於單獨打開每個數據庫來搜索代碼文件。

有沒有什麼辦法可以通過編程方式搜索VBA代碼文件？

來源

2012-04-12 Brandon Moore

沒有，如果它在接取相同的，但這裏的想法就是我會做這在Excel中：http://www.cpearson.com/Excel/vbe.aspx – 2012-04-12 15:13:09

來看看這CodeProject上項目點子 - http://www.codeproject.com/Articles/18029/SourceTools-xla。查看保存項目功能以及它們如何解析vba項目中的所有源文件。 – ja72 2012-04-12 19:12:56

@ ja72如果這個add-inn可以用於Access，或者我可以修改它，那麼如果我們見面，我會給你一個雙喜。 – 2012-04-12 19:35:30

如果您的興趣是在Access數據庫文件中搜索代碼模塊，則可以使用VBE對象模型。此示例在當前數據庫的ActiveVBProject的所有模塊中搜索單詞。如果數據庫包括超過一個VBProject，您可以枚舉VBProjects收集和按名稱搜索項目一次一個：

For Each objComponent In Application.VBE.VBProjects(ProjName).VBComponents

或者如果你喜歡用數字來引用該項目，而不是名字，只是注意編號爲1，而不是0

Public Sub findWordInModules(ByVal pSearchWord As String) 
    'Dim objComponent As VBComponent 
    ' VBComponent requires reference to Microsoft Visual Basic 
    ' for Applications Extensibility; use late binding instead: 
    Dim objComponent As Object 
    Dim strMessage As String 
    Dim strModuleList As String 

    strModuleList = vbNullString 
    For Each objComponent In Application.VBE.ActiveVBProject.VBComponents 
     If objComponent.CodeModule.Find(pSearchWord, 1, 1, -1, -1) = True Then 
      strModuleList = strModuleList & "; " & objComponent.Name 
     End If 
    Next objComponent 
    strMessage = "Text '" & pSearchWord & "' found in " 
    If Len(strModuleList) > 0 Then 
     strMessage = strMessage & "modules: " & Mid(strModuleList, 3) 
    Else 
     strMessage = strMessage & "no modules" 
    End If 
    Debug.Print strMessage 
End Sub

查看該Find方法訪問幫助主題開始;你可能更喜歡不同的選擇，而不是我用過

如果要定位多個db文件並搜索每個文件中的模塊，可以使用OpenDatabase方法自動執行此操作。我將把這部分的細節留給你。

來源

2012-04-12 18:37:22 HansUp

我假設我也可以使用VBE對象模型來簡單地讀取每個模塊的每一行並將它們寫出到一個文本文件，對吧？這將是理想的，所以我可以使用我以前使用的文本搜索工具，而不是嘗試創建自己的文本搜索工具。 – 2012-04-12 19:29:35

是的，那是可能的。但是您可以使用Application.SaveAsText將每個模塊保存爲一個文本文件---應該需要較少的編碼工作。 – HansUp 2012-04-13 01:07:06

+1很好地完成。 – brettdj 2012-04-13 03:55:29