İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Bir iş kitabından başqa bir iş kitabına bütün makroları necə ixrac etmək olar?

Bir iş kitabından birinə birdən çox makro vba kodunu ixrac etməlisinizsa, onları normal olaraq bir-birinə kopyalayabilirsiniz. Ancaq bu zaman alıcı olacaq, bu yazıda, bütün makroları bir iş kitabından digərinə tez ixrac etmə və makro faylları da xüsusi bir qovluqa necə yazmağı danışacağam.

Bütün makroları VBA kodu ilə bir iş kitabından digərinə ixrac edin


Bir çox iş kitabından bütün makroları silin:

Excel üçün Kutools's Batch Bütün Makroları Sil yardım proqramı, lazım olduğunuzda bir çox iş kitabından bütün makroları aradan qaldırmağa kömək edə bilər. İndi Excel üçün pulsuz sınaq versiyasını indirin!

hüceyrə dəyişməsi 3 isə doc run makro

Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan 60-dən çox lazımlı Excel eklentisi ilə pulsuzdur. İndi indir və pulsuz sınaq!


Bütün makroları VBA kodu ilə bir iş kitabından digərinə ixrac edin

Bütün makro vba kodlarını bir Excel faylından başqa birinə ixrac etmək üçün aşağıdakı adımları edin:

1. Birincisi, eyni zamanda iki iş kitabını açmalısınız, birində makrolar var, digəri isə makroları ixrac etmək istədiyiniz, ekran görüntüsünü görə bilərsiniz:

doc ixrac makrosu 1

Office Tab-Birbaşa sekmeli pəncərədə bir neçə Office sənədini oxuyun, redaktə edin və idarə edin

Ofis Tabı, Microsoft Office proqramlarının sekmeli tarama, redaktə edilməsi və idarə edilməsinə imkan verir. IE 8 / 9 / 10, Firefox və Google Chrome brauzerindən istifadə etməklə birbaşa sekmeli pəncərədə bir neçə sənəd / fayl aça bilərsiniz. İndi yukle və İndi pulsuz sınaq üçün tıklayın!

doc ixrac makroları

2. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

3. Basın Taxmaq > Modul, və aşağıdakı makroyu yapışdırın Modules Pəncərə.

VBA kodu: Bütün makroları bir iş kitabından digərinə ixrac:

Sub ExportAndImportModule()
Dim xStrSWSName, xSreDWSName As String
Dim xSWS, xDWS As Workbook
xStrSWSName = "old-workbook"
xSreDWSName = "new-workbook"
Dim xFilePath As String
Dim xObjFD As FileDialog
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
 With xObjFD
        .AllowMultiSelect = False
        .Show
        If .SelectedItems.Count > 0 Then
            xFilePath = .SelectedItems.Item(1)
        Else
            Exit Sub
        End If
End With
On Error GoTo Err1
Set xSWS = Workbooks(xStrSWSName & ".xlsm")
Set xDWS = Workbooks(xSreDWSName & ".xlsm")
Set xvbap = xSWS.VBProject
Set xVBC = xvbap.VBComponents
For Each Module In xSWS.VBProject.VBComponents
If Module.Type = vbext_ct_StdModule Then
Module.Export (xFilePath & "\" & Module.Name & ".bas")
xDWS.VBProject.VBComponents.Import (xFilePath & "\" & Module.Name & ".bas")
End If
Next Module
Exit Sub
Err1:
    MsgBox "come to nothing!"
End Sub
Qeyd: Yuxarıdakı kodda "köhnə iş kitabı"Makroları ixrac etmək istədiyiniz iş kitabının adıdır və"yeni iş kitabı"Makroları idxal etmək istədiyiniz iş kitabdır. Adları özünüzə dəyişdirməlisiniz. İki kitabın hər ikisi də olmalıdır xlsm fayl formatı.

doc ixrac makrosu 2

4. Yuxarıdakı kodu bağladıktan sonra basın F5 bu kodu çalıştırmak üçün açar, və a İnsanlar pəncərə göstərilir, ixrac edilən makro faylları qoymaq üçün bir qovluq seçin, ekran görünüşünə baxın:

doc ixrac makrosu 3

5. Sonra basın OK düyməsini və bütün makroları müəyyən edilmiş iş kitabınızdan başqa bir Excel faylına ixrac edilmiş və makro faylları da xüsusi qovluğa yazılmışdır. Ekran görüntüsünə baxın:

doc ixrac makrosu 4

Qeyd: Bu kod yalnız makroları normal moduldan ixrac edə bilər.



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.