Nukopijuokite modulius iš vienos darbaknygės į kitą naudodami „Microsoft Excel“ VBA

Anonim

Naudodami toliau pateiktą makrokomandą galite kopijuoti modulius iš vienos darbaknygės į kitą:

Sub CopyModule (šaltinisWB kaip darbaknygė, strModuleName kaip eilutė, _ TargetWB kaip darbaknygė) “nukopijuoja modulį iš vienos darbaknygės į kitą“ pavyzdys: „CopyModule“ darbaknygės („Book1.xls“), „Module1“, _ Darbaknygės („Book2.xls ") Dim strFolder kaip eilutė, strTempFile kaip eilutė strFolder = SourceWB.Path Jei Len (strFolder) = 0 Tada strFolder = CurDir strFolder = strFolder &" \ "strTempFile = strFolder &" ~ tmpexport.bas "Apie klaidą Tęsti kitą šaltinįWB.VBProject .VBComponents (strModuleName) .Export strTempFile TargetWB.VBProject.VBComponents.Import strTempFile Kill strTempFile On Error GoTo 0 End Sub