>これを楽に行なう方法はありませんでしょうか?? アクティブなブックのモジュールを任意のフォルダ以下にブック名フォルダを作成して一括書き出しを行うプログラムです。 他人が作った物の改変等を行っているので、バックアップ目的に使っています。 Sub Module書出() ' VBA モジュールの書き出し Dim Project, objxl As Object Dim DirName As String Const Path As String = "C:\tmp\" MkDir Path For Each objxl In Application.Workbooks DirName = Path & Left(objxl.Name, Len(objxl.Name) - 4) & "\" MkDir DirName For Each Project In objxl.VBProject.VBC
![VBAのバージョン管理](https://cdn-ak-scissors.b.st-hatena.com/image/square/a73abc454de4aaacb370bad26db2312eacbc7375/height=288;version=1;width=512/https%3A%2F%2Foshiete.xgoo.jp%2Fimages%2Fsp%2Fqa_recommend%2F2101_2.jpg)