MS Excel のバージョン管理を行う最良の方法 [closed] 質問する

私は、Bazaar を使用するスプレッドシートをセットアップし、TortiseBZR を介して手動でチェックイン/チェックアウトしました。トピックが保存部分に役立ったので、ここで解決策を投稿したいと思います。

私にとっての解決策は、保存時にすべてのモジュールをエクスポートし、開くときにモジュールを削除して再インポートするスプレッドシートを作成することでした。確かに、これは既存のスプレッドシートを変換する際には潜在的に危険になる可能性があります。

これにより、モジュール内のマクロを編集できるようになります。エマック(そうです、emacs) または Excel でネイティブに実行し、大きな変更があった場合は BZR リポジトリをコミットします。すべてのモジュールはテキスト ファイルなので、Excel ファイル自体を除くソースに対しては、BZR の標準の diff スタイルのコマンドが機能します。

BZR リポジトリ用のディレクトリ X:\Data\MySheet を設定しました。リポジトリには、MySheet.xls と、各モジュール (例: Module1Macros) の .vba ファイル 1 つがあります。スプレッドシートには、エクスポート/インポート サイクルから除外される "VersionControl" というモジュールを 1 つ追加しました。エクスポートおよび再インポートする各モジュールは、"Macros" で終わる必要があります。

「VersionControl」モジュールの内容:

Sub SaveCodeModules()

'This code Exports all VBA modules
Dim i%, sName$

With ThisWorkbook.VBProject
    For i% = 1 To .VBComponents.Count
        If .VBComponents(i%).CodeModule.CountOfLines > 0 Then
            sName$ = .VBComponents(i%).CodeModule.Name
            .VBComponents(i%).Export "X:\Tools\MyExcelMacros\" & sName$ & ".vba"
        End If
    Next i
End With

End Sub

Sub ImportCodeModules()

With ThisWorkbook.VBProject
    For i% = 1 To .VBComponents.Count

        ModuleName = .VBComponents(i%).CodeModule.Name

        If ModuleName <> "VersionControl" Then
            If Right(ModuleName, 6) = "Macros" Then
                .VBComponents.Remove .VBComponents(ModuleName)
                .VBComponents.Import "X:\Data\MySheet\" & ModuleName & ".vba"
           End If
        End If
    Next i
End With

End Sub

Private Sub Workbook_Open()

ImportCodeModules

End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

SaveCodeModules

End Sub