VBAのコードをExcelのファイルから操作する方法について

前提

vba書き込みを自動化したいのですが、pyautoguiなどのカーソルを直接操作するものを使用すると時々失敗します。
そのため、excelファイルを7zなどで開き、中身のファイルを書き換えようとしたのですが、CompressedSourceCode?の形式として格納されているため操作できません。

実現したいこと

CompressedSourceCodeの形式のファイルの内容を取得し書き込めるようにしたいです。
またvbaProject.binのファイルがない状態(xlsx)からできるようにもしたいです。

試したこと

olevbaによる解析(書き込みができない)
文字エンコードによる確認

補足情報

使用しているexcelバージョン microsoft office home & business 2019

行動規範の内容に同意します

回答1件

ベストアンサー

以下のコードでVBAから、エクセルファイル内のモジュールをインポート/エクスポート（操作）できるかと思います。
だいぶ前（Microsoft Excel 12.0 Object Library）に試したものなので、
なにか変更されていたり、万が一実現できないときはご勘弁ください。

vba
1    '=================================================
2    'モジュールを追加
3    Dim tObj As Object, ExportPath As String
4    ExportPath = '任意のディレクトリパス'
5    For Each tObj In ThisWorkbook.VBProject.VBComponents
6        Select Case tObj.Type
7            Case STANDARD_MODULE
8                tObj.ExPort ExportPath & "\" & tObj.Name & ".bas"
9            Case CLASS_MODULE
10                tObj.ExPort ExportPath & "\" & tObj.Name & ".cls"
11            Case USER_FORM
12                tObj.ExPort ExportPath & "\" & tObj.Name & ".frm"
13        End Select
14    Next
15
16    ' モジュールを削除
17    '=================================================
18    Dim ComponentObj As Object
19    ModuleName = '任意のモジュール名'
20    For Each ComponentObj In ThisWorkbook.VBProject.VBComponents
21        If (ComponentObj.Type = 1 Or ComponentObj.Type = 2) _
22            And ComponentObj.Name = ModuleName Then
23            ' この標準モジュールを削除
24            ThisWorkbook.VBProject.VBComponents.Remove ComponentObj
25            Exit Sub
26        End If
27    Next ComponentObj