Exportación de código VBA desde múltiples documentos de Excel para ponerlo en control de versión

Question

¿Alguien sabe una forma de exportar el código VBA desde una cantidad de documentos de Excel, para que el código pueda agregarse a un repositorio de subversión? Sin tener que abrir manualmente cada documento y exportar el código.

Answer 1

encontrará una herramienta para esto aquí:

http://www.pretentiousname.com/excel_extractvba/index.html

Es un guión VBS que automatiza Excel. Puede modificarlo de acuerdo con sus necesidades, tenga en cuenta que no es perfecto (lea la página web para advertencias).

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 
    End If 
End Sub 

-Adam

Answer 2

Cuando estaba haciendo un montón de desarrollo Excel VBA llegué en el hábito de exportar al formato de texto para cada archivo (módulo, etc.) cada vez que hice un cambio (de el menú contextual). Mantuve esos archivos en control de fuente junto con el binario XLA. Esto funcionó bastante bien para mí y no requirió ninguna herramienta externa.

Answer 3

He utilizado esto con éxito durante los últimos años para exportar mi código y guardarlo. Puedo confirmar que funciona en Office 2003, 2007. Supongo que funciona en 2000 también.

http://www.codeproject.com/KB/office/SourceTools.aspx

Answer 4

SourceTools es bueno una vez que esté en funcionamiento, pero si usted está necesitando de exportación de un gran número de libros de Excel, la apertura de cada uno y exportación que podrían ser un poco tedioso.

VbaDiff (descargo de responsabilidad: mi producto) tiene una API que puede leer a través de múltiples archivos de Excel y extraer el código de VBA. Hay un ejemplo de here - podría ser fácilmente adaptado para exportar el código a un archivo, listo para ser registrado. Si eres bueno con SharpSvn, ¡probablemente podrías agregar el código al repositorio sobre la marcha!