ExcelスプレッドシートからVBAを抽出

Question

スプレッドシートからVBAを抽出してリポジトリに保存する明確な方法はありますか。

スプレッドシートはほとんど変更されませんが、VBAは変更されません。スプレッドシート全体をリポジトリに格納すると、異なるVBAリビジョンにまたがってdiffを実行して、どのコードが変更され、誰が変更したのかを確認することが困難になります。

は、我々は、アドインを経由してVBAソースコードのバージョン管理をサポートExcelと（前2003）アクセスのVBA 6.5 /エクセル2003

Answer 1

以前のバージョンを使用します。

VBAのVisual SourceSafe（VSS）サポートはdropped with the release of Office 2003でしたが、Office XP Developerに同梱されていたアドインは明らかにworks with Office 2003でした。

のマイクロソフトサポート技術情報の記事：

• Using Visual SourceSafe with Documents and VBA Code

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

あなたはhereから（VBAコードを抽出するために、このコードを使用することができることを失敗するが、それは行方不明になりました最終的なオブジェクトクリーンアップ）。警告のためのWebページを読む：同様の質問の

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

カップル：

• Multiple developers in a VBA project

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

Answer 3

この質問に対する他の回答はかなりよく、それに対処し、コードを書こうとしているのであれば、VSTO。それはOffice用のマネージドコードを提供し、何よりもC＃や.NET言語があなたの好奇心を掻き立てることでさえも可能です。また、あなたのケースでは、ボーナスであるExcel 2003でも動作します。

Answer 4

あなたは既に素晴らしい答えを持っていますが、私は脇に追加することができます。

データを含むスプレッドシートとは別のスプレッドシートにすべてのVBAコードを保存することは可能です。これを行うと比較が楽になるかもしれません。

Answer 5

別のトピックで同じことを回答しました。 お試しください。

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