Exportation du code VBA à partir de plusieurs documents Excel à mettre dans le contrôle de version

Question

Est-ce que quelqu'un sait comment exporter le code VBA à partir de plusieurs documents Excel, afin que le code puisse être ajouté dans un référentiel subversion? Sans devoir ouvrir manuellement chaque document et exporter le code.

Answer 1

Vous trouverez un outil pour cela ici:

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

Il est un script VBS qui automatise Excel. Vous pouvez le modifier en fonction de vos besoins - notez qu'il n'est pas parfait (lisez la page web pour les mises en garde).

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

Quand je faisais beaucoup de développement Excel VBA je suis entré dans l'habitude d'exporter au format texte pour chaque fichier (module, etc.) chaque fois que je fait un changement (de le menu contextuel). J'ai gardé ces fichiers dans le contrôle de la source à côté du binaire XLA. Cela a très bien fonctionné pour moi et ne nécessitait aucun outil externe.

Answer 3

Je l'ai utilisé avec succès ces dernières années pour exporter mon code et le sauvegarder. Je peux confirmer que cela fonctionne dans Office 2003, 2007. Je suppose que cela fonctionne également en 2000.

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

Answer 4

SourceTools est bonne une fois que vous êtes opérationnel, mais si tu as besoin d'exporter à partir d'un grand nombre de classeurs Excel, ouvrir chacun et exporter pourrait être un peu fastidieux. VbaDiff (avertissement: mon produit) a une API qui peut lire plusieurs fichiers Excel et extraire le code VBA. Il y a un exemple de here - il pourrait facilement être adapté pour exporter le code dans un fichier, prêt à être archivé. Si vous êtes bon avec SharpSvn, vous pourriez probablement ajouter le code dans le dépôt au fur et à mesure!