Сравнение кода для исходного кода VBA

Question

Есть ли способ сравнить файл исходного кода VBA, например, файл.IVB из Autodesk Inventor, с другим?

Поскольку этот тип файлов предварительно скомпилирован, я должен экспортировать все модули из обоих решений и сравнивать папки.

Но я бы предпочел сравнивать файлы исходного кода напрямую, если смогу.

Спасибо, с наилучшими пожеланиями.

Answer 1

Вместо того, чтобы экспортировать каждый файл по одному, вы можете использовать этот Sub:

Public Sub Export()
    Dim vbe As vbe
    Set vbe = ThisDrawing.Application.vbe
    Dim comp As VBComponent
    Dim outDir As String
    outDir = "c:\\temp\\VBA"
    If Dir(outDir, vbDirectory) = "" Then
        MkDir outDir
    End If
    For Each comp In vbe.ActiveVBProject.VBComponents
        Select Case comp.Type
            Case vbext_ct_StdModule
                comp.Export outDir & "\" & comp.Name & ".bas"
            Case vbext_ct_Document, vbext_ct_ClassModule
                comp.Export outDir & "\" & comp.Name & ".cls"
            Case vbext_ct_MSForm
                comp.Export outDir & "\" & comp.Name & ".frm"
            Case Else
                comp.Export outDir & "\" & comp.Name
        End Select
    Next comp

     MsgBox "VBA files have been exported to: " & outDir
End Sub

Вам необходимо добавить ссылку на Microsoft Visual Basic для расширяемости приложений 5.3.