Αντιγράψτε ενότητες από ένα βιβλίο εργασίας σε άλλο χρησιμοποιώντας 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 Then strFolder = CurDir strFolder = strFolder &" \ "strTempFile = strFolder &" tmpexport.bas "On Error Resume Next SourceWB.VB. .VBComponents (strModuleName) .Export strTempFile TargetWB.VBProject.VBComponents.Import strTempFile Kill strTempFile On Error GoTo 0 End Sub