Microsoft ExcelでVBAを使用してファイルからモジュールにコンテンツを追加
完全なモジュールを追加したくない場合は、以下のマクロを使用して、不足しているプロシージャだけを既存のモジュールに追加できます。テキストファイルの内容を既存のモジュールに追加します:
Sub ImportModuleCode(ByVal wb As Workbook, _ ByVal ModuleName As String, ByVal ImportFromFile As String) ' imports code to ModuleName in wb from a textfile named ImportFromFile Dim VBCM As CodeModule If Dir(ImportFromFile) = "" Then Exit Sub On Error Resume Next Set VBCM = wb.VBProject.VBComponents(ModuleName).CodeModule If Not VBCM Is Nothing Then VBCM.AddFromFile ImportFromFile Set VBCM = Nothing End If On Error GoTo 0 End Sub
例:
ImportModuleCode ActiveWorkbook, "TestModule", "C:\FolderName\NewCode.txt"