StillHammer
7c3dd3fb31
- Test and helper VBS scripts for VBA MCP development - Technical reference documentation and PDFs - HTML form templates for all 5 forms - PowerShell and Python scripts for PDF/documentation generation Co-Authored-By: Claude Haiku 4.5 <noreply@anthropic.com>
30 lines
829 B
Plaintext
30 lines
829 B
Plaintext
On Error Resume Next
|
|
|
|
Dim accessApp
|
|
Set accessApp = CreateObject("Access.Application")
|
|
|
|
accessApp.OpenCurrentDatabase "C:\Users\alexi\Documents\projects\timetrack-pro\db\TimeTrackPro.accdb"
|
|
|
|
Dim vbProj
|
|
Set vbProj = accessApp.VBE.VBProjects(1)
|
|
|
|
WScript.Echo "=== VBA Components ==="
|
|
Dim comp
|
|
For Each comp In vbProj.VBComponents
|
|
WScript.Echo comp.Name & " - Type: " & comp.Type & " (" & GetTypeName(comp.Type) & ")"
|
|
Next
|
|
|
|
Function GetTypeName(typeNum)
|
|
Select Case typeNum
|
|
Case 1: GetTypeName = "Standard Module"
|
|
Case 2: GetTypeName = "Class Module"
|
|
Case 3: GetTypeName = "MSForm"
|
|
Case 11: GetTypeName = "ActiveX Designer"
|
|
Case 100: GetTypeName = "Document (Form/Report)"
|
|
Case Else: GetTypeName = "Unknown"
|
|
End Select
|
|
End Function
|
|
|
|
accessApp.Quit
|
|
Set accessApp = Nothing
|