Код Сравнить для 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.