Zkopírujte moduly z jednoho sešitu do druhého pomocí jazyka VBA v aplikaci Microsoft Excel

Anonim

Pomocí níže uvedeného makra můžete kopírovat moduly z jednoho sešitu do jiného:

Dílčí CopyModule (SourceWB jako sešit, strModuleName jako řetězec, _ TargetWB jako sešit) 'zkopíruje modul z jednoho sešitu do jiného' příklad: 'sešity CopyModule („Book1.xls“), „Module1“, _ sešity („Book2.xls ") Dim strFolder As String, strTempFile As String strFolder = SourceWB.Path If Len (strFolder) = 0 Then strFolder = CurDir strFolder = strFolder &" \ "strTempFile = strFolder &" ~ tmpexport.bas "On Error Resume Next SourceWB.VBProject .VBComponents (strModuleName) .Export strTempFile TargetWB.VBProject.VBComponents.Import strTempFile Zabít strTempFile při chybě GoTo 0 End Sub