Kopioi moduuleja työkirjasta toiseen Microsoft Excelin VBA: n avulla

Anonim

Alla olevan makron avulla voit kopioida moduuleja yhdestä työkirjasta toiseen:

Sub CopyModule (SourceWB kuin työkirja, strModuleName As String, _ TargetWB As Workbook) 'kopioi moduulin työkirjasta toiseen' esimerkki: 'CopyModule -työkirjat ("Book1.xls"), "Module1", _ Työkirjat ("Book2.xls ") Dim strFolder merkkijonona, strTempFile nimellä merkkijono strFolder = SourceWB.Path Jos Len (strFolder) = 0 Sitten strFolder = CurDir strFolder = strFolder &" \ "strTempFile = strFolder &" ~ tmpexport.bas "Virhe Jatka Seuraava lähdeWB.VBProject .VBComponents (strModuleName) .Export strTempFile TargetWB.VBProject.VBComponents.Import strTempFile Kill strTempFile On Error GoTo 0 End Sub