Копирайте модули от една работна книга в друга, като използвате VBA в Microsoft Excel

Anonim

С макроса по -долу можете да копирате модули от една работна книга в друга:

Sub CopyModule (SourceWB As Workbook, strModuleName As String, _ TargetWB As Workbook) 'копира модул от една работна книга в друга' пример: 'CopyModule Workbooks ("Book1.xls"), "Module1", _ Workbooks ("Book2.xls ") Dim strFolder As String, strTempFile As String strFolder = SourceWB.Path If Len (strFolder) = 0 Тогава strFolder = CurDir strFolder = strFolder &" \ "strTempFile = strFolder &" ~ tmpexport.bas "При възобновяване на грешката Следващ източникWroctB. .VBComponents (strModuleName) .Export strTempFile TargetWB.VBProject.VBComponents.Import strTempFile Kill strTempFile при грешка GoTo 0 End Sub