Extraer VBA de una hoja de cálculo de Excel

Question

¿Hay una manera limpia de extraer el VBA de una hoja de cálculo y almacenarlo en un repositorio.

Las hojas de cálculo casi nunca cambian, pero sí lo hace la VBA. Almacenar toda la hoja de cálculo en el repositorio hace que sea difícil hacer diferencias entre las diferentes revisiones de VBA para ver qué código ha cambiado y quién lo ha cambiado.

Utilizamos VBA 6.5/Excel 2003.

Answer 1

versiones anteriores de Excel y Access (antes de 2003) apoyado fuente de VBA Código de control de versiones a través de un complemento. Lo he usado muy bien en Office 2000.

El soporte de Visual SourceSafe (VSS) para VBA era dropped with the release of Office 2003, pero el complemento que se envió con el Desarrollador de Office XP aparentemente works with Office 2003.

artículos

Microsoft Knowledge Base:

• Using Visual SourceSafe with Documents and VBA Code

• Using the Visual SourceSafe Add-In with the Visual Basic Environment

En su defecto se puede utilizar este código para extraer el código VBA (de here pero faltaba la limpiezas finales de objetos). Leer la página web para salvedades:

option explicit 

Const vbext_ct_ClassModule = 2 
Const vbext_ct_Document = 100 
Const vbext_ct_MSForm = 3 
Const vbext_ct_StdModule = 1 

Main 

Sub Main 
    Dim xl 
    Dim fs 
    Dim WBook 
    Dim VBComp 
    Dim Sfx 
    Dim ExportFolder 

    If Wscript.Arguments.Count <> 1 Then 
     MsgBox "As the only argument, give the FULL path to an XLS file to extract all the VBA from it." 
    Else 

     Set xl = CreateObject("Excel.Application") 
     Set fs = CreateObject("Scripting.FileSystemObject") 

     xl.Visible = true 

     Set WBook = xl.Workbooks.Open(Trim(wScript.Arguments(0))) 

     ExportFolder = WBook.Path & "\" & fs.GetBaseName(WBook.Name) 

     fs.CreateFolder(ExportFolder) 

     For Each VBComp In WBook.VBProject.VBComponents 
      Select Case VBComp.Type 
       Case vbext_ct_ClassModule, vbext_ct_Document 
        Sfx = ".cls" 
       Case vbext_ct_MSForm 
        Sfx = ".frm" 
       Case vbext_ct_StdModule 
        Sfx = ".bas" 
       Case Else 
        Sfx = "" 
      End Select 
      If Sfx <> "" Then 
       On Error Resume Next 
       Err.Clear 
       VBComp.Export ExportFolder & "\" & VBComp.Name & Sfx 
       If Err.Number <> 0 Then 
        MsgBox "Failed to export " & ExportFolder & "\" & VBComp.Name & Sfx 
       End If 
       On Error Goto 0 
      End If 
     Next 

     xl.Quit 

     Set fs = Nothing 
     Set xl = Nothing 

    End If 
End Sub 

Answer 2

par de preguntas similares:

• Multiple developers in a VBA project

• Exporting VBA code from Multiple Excel documents to put into version control

Answer 3

Las otras respuestas a esta pregunta abordan bastante bien, pero si recién estás empezando a escribir el código, mira en VSTO. Proporciona un código administrado para Office y, lo mejor de todo, incluso puede hacerlo en C# o en el idioma .NET que más le guste. También funciona con Excel 2003, que es una ventaja, en su caso.

Answer 4

Ya tiene una gran respuesta, pero permítame agregar un lado.

Es muy posible mantener todo su código VBA en una hoja de cálculo separada de la (s) hoja (s) de cálculo que contiene los datos. Si hace esto, podría hacer sus comparaciones más fáciles.

Answer 5

Respondió lo mismo en otro tema. Otra alternativa para que pruebes.

Exporting VBA code from Multiple Excel documents to put into version control

(¿hay alguna manera para reticular estos temas y/o respuestas?)