Microsoft Excel'de VBA kullanarak bir dosyadan bir modüle içerik ekleme

Tam bir modül eklemek istemiyorsanız, sadece eksik prosedürleri ekleyebilirsiniz.
aşağıdaki makroyu kullanarak mevcut bir modüle. Bir metin dosyasının içeriğini mevcut bir modüle ekler:

Sub ImportModuleCode(ByVal wb As Workbook, _ ByVal ModuleName As String, ByVal ImportFromFile As String) ', ImportFromFile Dim VBCM As CodeModule If Dir(ImportFromFile) = "" Sonra Exit Sub On Error adlı bir metin dosyasından wb içindeki ModuleName öğesine alır Set VBCM = wb.VBProject.VBComponents(ModuleName).CodeModule Değilse VBCM Hiçbir Şey O zaman VBCM.AddFromFile ImportFromFile Set VBCM = Hata Varsa Hiçbir Şey Bitmez GoTo 0 End Sub

Örnek:

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