Přidejte obsah do modulu ze souboru pomocí VBA v Microsoft Excelu

Pokud nechcete přidat kompletní modul, můžete přidat pouze chybějící procedury
na existující modul pomocí níže uvedeného makra. Přidá obsah textového souboru do stávajícího modulu:

Sub ImportModuleCode (ByVal wb As Workbook, _ ByVal ModuleName As String, ByVal ImportFromFile As String) 'importuje kód do ModuleName v wb z textového souboru s názvem ImportFromFile Dim VBCM jako CodeModule If Dir (ImportFromFile) = "" Potom ukončete Sub při chybě Pokračovat Další Nastavit VBCM = wb.VBProject.VBComponents (ModuleName) .CodeModule Pokud není VBCM není nic, pak VBCM.AddFromFile ImportFromFile Nastavit VBCM = Nic Konec Pokud při chybě GoTo 0 End Sub

Příklad:

ImportModuleCode ActiveWorkbook, "TestModule", "C: \ FolderName \ NewCode.txt"