Excel VBA テクニック集
すべてのマクロのエクスポート





Excel VBA テクニック集
マクロのエクスポートの方法です。 ここでは、すべてのマクロをエクスポートします。

標準マクロは「.bas」でエクスポートしますが、シートのマクロは「.txt」でエクスポートします。 シートのマクロは「.bas」でエクスポートした後、インポートすると標準マクロになってしまいます。

使い方は、マクロ操作の基本的な考え方の、「マクロ専用ファイル」によるマクロ実行に、下記コードを入れます。 
    Dim Book_W As String
    Dim File_Frm As String 
    Dim Macro_Obj As Object
    Dim Lines_W As Long
    Dim Temp_FileNo_W As Integer
    Dim I As Integer

    Book_W = Excel_App.ActiveWorkbook.Name
    Book_W = Left(Book_W, InStr(Book_W_Frm, ".") - 1)

    For Each Macro_Obj In Excel_App.ActiveWorkbook.VBProject.VBComponents
        File_Frm = "D:\Export\" & Book_W    
        If Macro_Obj.Type = 1 Then
            File_Frm = File_Frm & "_" & Macro_Obj.Name & ".bas"
            Macro_Obj.Export File_Frm
            End If        
        Lines_W = Macro_Obj.CodeModule.CountOfLines
        If Macro_Obj.Type = 100 _
        And Lines_W > 0 Then
            File_Frm = File_Frm & "_" & Macro_Obj.Name & ".txt"
            Temp_FileNo_W = FreeFile
            Open File_Frm For Output As #Temp_FileNo_W
            For I = 1 To Lines_W
                Print #Temp_FileNo_W, Macro_Obj.CodeModule.Lines(I, 1)
                Next I
            Close #Temp_FileNo_W
            End If            
        Next Macro_Obj

「こだわりハウス」写真館| 数学公式集| ピンポイントストリートビュー| ＦａｃｅＢｏｏｋ| Excel Vba テクニック集| Excel 計算式解析・他解析| 富山の建築家| Excel 計算式解析・他解析| 積分の定義・積分の記号の意味の研究|