Satura pievienošana modulim no faila, izmantojot Microsoft Excel VBA

Anonim

Ja nevēlaties pievienot pilnu moduli, varat pievienot tikai trūkstošās procedūras
uz esošu moduli, izmantojot zemāk esošo makro. Tas pievieno teksta faila saturu esošam modulim:

Sub ImportModuleCode (ByVal wb kā darbgrāmata, _ ByVal ModuleName kā virkne, ByVal ImportFromFile kā virkne) importē kodu uz moduļa nosaukumu wb no teksta faila ar nosaukumu ImportFromFile Dim VBCM kā CodeModule If Dir (ImportFromFile) = "" Pēc tam iziet no kļūdas Iestatīt VBCM = wb.VBProject.VBComponents (ModuleName). CodeModule Ja nav VBCM nav nekas, tad VBCM.AddFromFile ImportFromFile Set VBCM = Nekas nebeidzas, ja rodas kļūda GoTo 0 End Sub

Piemērs:

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