İ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

Qapalı iş kitabından məlumatları cari iş kitabına daxil etmək / kopyalamaq necə?

Açılmış iş səhifələrindən məlumatların surətini çıxarmaq və başqa bir açılmış iş kitabçasına yapışdırmaq bizim üçün asandır, lakin siz heç bir məlumatı açıq iş kitabından açıq bir iş kitabına idxal etməyə çalışdınız? Bu yazı, mən bağladığım bir iş kitabından məlumatların necə alınacağını danışacağam.

Verilən məlumat kitabçasından VBA kodu ilə cari iş kitabına daxil edin

Excel-in Kutools ilə bağlı iş kitabından məlumatları cari iş kitabına daxil edin


Verilən məlumat kitabçasından VBA kodu ilə cari iş kitabına daxil edin


Aşağıdakı VBA kodu, aktiv kitabın açılış kitabına açmadan bir iş kitabından məlumatları kopyalamanıza kömək edə bilər, aşağıdakı adımlarla edin:

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

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

VBA kodu: Bağlanan iş kitabından məlumatları cari iş kitabına daxil edin

Sub ImportDatafromcloseworkbook()
'Update 20150707
Dim xWb As Workbook
Dim xAddWb As Workbook
Dim xRng1 As Range
Dim xRng2 As Range
Set xWb = Application.ActiveWorkbook
xTitleId = "KutoolsforExcel"
With Application.FileDialog(msoFileDialogOpen)
    .Filters.Clear
    .Filters.Add "Excel 2007-13", "*.xlsx; *.xlsm; *.xlsa"
    .AllowMultiSelect = False
    .Show
    If .SelectedItems.Count > 0 Then
        Application.Workbooks.Open .SelectedItems(1)
        Set xAddWb = Application.ActiveWorkbook
        Set xRng1 = Application.InputBox(prompt:="Select source range", Title:=xTitleId, Default:="A1", Type:=8)
        xWb.Activate
        Set xRng2 = Application.InputBox(prompt:="Select destination cell", Title:=xTitleId, Default:="A1", Type:=8)
        xRng1.Copy xRng2
        xRng2.CurrentRegion.EntireColumn.AutoFit
        xAddWb.Close False
    End If
End With
End Sub

3. Sonra basın F5 bu kodu çalıştırmak üçün düyməsini basın və Fayl açın pəncərədə, məlumatlarını idxal etmək istədiyiniz iş kitabını seçin, ekran görüntüsünə baxın:

1 bağlanan iş kitabından doc idxal məlumatları

4. Sonra basın açıq düyməsini basın, və KutoolsforExcel informasiya qutusu digər iş kitabına idxal etmək istədiyiniz bir sıra məlumat seçməyi xatırlatmaq üçün çıxır, ekran görüntüsünə baxın:

2 bağlanan iş kitabından doc idxal məlumatları

5. Və sonra basın OK düyməsini, buraxılmış olan informasiya qutusunda, məlumatları yerləşdirmək istədiyiniz kameranı seçin, ekran görüntüsünə baxın:

3 bağlanan iş kitabından doc idxal məlumatları

6. və basın OK, bağlı iş kitabında olan məlumatlar mövcud iş kitabçasına gətirildi.


Excel-in Kutools ilə bağlı iş kitabından məlumatları cari iş kitabına daxil edin

VBA kodu, Excel başlanğıcımız üçün bir qədər çətin ola bilər, buna görə də, burada sizə lazımlı bir alət-Excel üçün KutoolsOnun ilə Faylı Kursorda daxil edin funksiyanı bir iş səhifəsinin bütün məzmununu qapalı bir iş kitabından tez və asanlıqla daxil edə bilərsiniz.

Excel üçün Kutools : 300-dən daha çox 60-dən istifadə etməklə, Excel-in əlavələri, XNUMX gündə heç bir məhdudiyyət yox idi.

Quraşdırıldıqdan sonra Excel üçün Kutoolsxahiş edirəm:

1. Basın Müəssisə > İdxal ixrac > Faylı Kursorda daxil edin, bax ekran görüntüsü:

4 bağlanan iş kitabından doc idxal məlumatları

2. İçində Faylı Kursorda daxil edin informasiya qutusunda aşağıdakı əməliyyatları edin:

(1.) Tıklayın 6 bağlanan iş kitabından doc idxal məlumatlarıİthal olunmuş məlumatları yerləşdirmək istədiyiniz bir hüceyrəni seçmək üçün düyməsini basın;

(2.) Tıklayın 7 bağlanan iş kitabından doc idxal məlumatlarıməlumatlarını idxal etmək istədiyiniz iş kitabını seçmək üçün düyməsini basın.

Qeyd: Yalnız dəyər (formulalar yoxdur): Bu seçimi yoxlasanız, yalnız dəyər alınacaq və formullar idxal olunmayacaq.

Formatlamayı köçürməyin: Bu seçimi yoxlayırsanız, verileri formatlaşdırmadan iş səhifəsinə daxil edəcəyik.

Excel İndi Download və pulsuz sınaq Kutools!

3. Sonra basın OKiş kitabına birdən çox iş varsa, a Bir Worksheet seçin informasiya qutusu açılır, məlumatları idxal etmək istədiyiniz bir iş yerini göstərin, ekran görüntüsünə baxın:

8 bağlanan iş kitabından doc idxal məlumatları

4. Və sonra basın OK düyməsini seçdiyiniz iş səhifəsində olan məlumatlar mövcud iş kitabçasına gətirilmişdir.

Bu Əlavə Fayl haqqında Cursor funksiyası haqqında daha ətraflı məlumat üçün buraya basın.

Excel İndi Download və pulsuz sınaq Kutools!


Demo: Excel-də Kutools ilə bağlı iş kitabından məlumatları cari iş kitabına daxil edin

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!



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.
  • To post as a guest, your comment is unpublished.
    Guilherme · 4 months ago
    Funcionou a primeira vez que tentei.. Agora por algum motivo não esta funcionando mais..Parece que esta copiando os valores apenas. Quando faço alteração de algum dado na planilha, nao esta mudando na outra.. o que devo fazer?
  • To post as a guest, your comment is unpublished.
    Mir · 2 years ago
    Thanks for the awesome trick here. I managed to get the coding work with my current project. My question is how can I set ''destination cell'' default to range ''A5'' without popping out InputBox
  • To post as a guest, your comment is unpublished.
    Tawfiq · 2 years ago
    Thanks for the above.

    I'm trying to use VBA but when I reach to step #3:

    3. Then press F5 key to run this code, and in the File Open window, select the workbook that you want to import its data

    I can't "see" the file I need to import the data from! the folder doesn't show that file!

    What can I do?