Kapalı çalışma kitabından mevcut çalışma kitabına veri nasıl alınır / kopyalanır?
Açılan bir çalışma sayfasından verileri kopyalayıp başka bir açık çalışma kitabına yapıştırmak bizim için kolaydır, ancak hiç kapalı bir çalışma kitabından açık bir çalışma kitabına veri aktarmayı denediniz mi? Bu makalede, kapalı bir çalışma kitabından verilerin nasıl içe aktarılacağından bahsedeceğim.
VBA kodu ile kapalı çalışma kitabındaki verileri mevcut çalışma kitabına aktarın
Kutools for Excel ile kapalı çalışma kitabındaki verileri mevcut çalışma kitabına aktarın
VBA kodu ile kapalı çalışma kitabındaki verileri mevcut çalışma kitabına aktarın
Aşağıdaki VBA kodu, bir çalışma kitabındaki verileri etkin açılmış çalışma kitabına açmadan kopyalamanıza yardımcı olabilir, lütfen aşağıdaki adımları uygulayın:
1. Basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.
VBA kodu: Kapalı çalışma kitabındaki verileri mevcut çalışma kitabına aktarın
Sub ImportDatafromcloseworkbook()
'Updateby Extendoffice
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. Daha sonra tuşuna basın. F5 bu kodu çalıştırmak için anahtar ve Dosya Aç penceresinde, verilerini içe aktarmak istediğiniz çalışma kitabını seçin, ekran görüntüsüne bakın:
4. Sonra tıklayın Açılış düğmesini ve KutoolsforExcel Diğer çalışma kitabına aktarmak istediğiniz bir dizi veriyi seçmenizi hatırlatmak için iletişim kutusu açılır, ekran görüntüsüne bakın:
5. Ve sonra tıklayın OK düğmesi, açılan iletişim kutusunda, verileri koymak istediğiniz hücreyi seçin, ekran görüntüsüne bakın:
6. Ve tıklayın OK, kapalı çalışma kitabındaki veriler geçerli çalışma kitabına aktarıldı.
Kutools for Excel ile kapalı çalışma kitabındaki verileri mevcut çalışma kitabına aktarın
VBA kodu, Excel'e yeni başlayanlar için biraz zor olabilir, bu yüzden burada size kullanışlı bir araç önereceğim.Kutools for Excel, Onun ile İmlece Dosya Ekle özelliği, kapalı bir çalışma kitabından bir çalışma sayfasının tüm içeriğini hızlı ve kolay bir şekilde ekleyebilirsiniz.
Kutools for Excel : 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. |
Kurduktan sonra Kutools for Excellütfen aşağıdaki işlemleri yapın:
1. Tıkla Kutools Artı > İthalat ihracat > İmlece Dosya Ekle, ekran görüntüsüne bakın:
2. In İmlece Dosya Ekle iletişim kutusunda aşağıdaki işlemleri yapın:
(1.) Tıklayın içe aktarılan verileri koymak istediğiniz hücreyi seçmek için düğme;
(2.) Tıklayın Verilerini içeri aktarmak istediğiniz çalışma kitabını seçmek için düğmesine basın.
Not: Yalnızca değer (formül yok): Bu seçeneği işaretlerseniz, yalnızca değer içe aktarılacak ve formüller içe aktarılmayacaktır.
Biçimlendirmeyi aktarmayın: Bu seçeneğin işaretlenmesi, verileri biçimlendirmeden çalışma sayfasına aktarır.
3. Sonra tıklayın OK, çalışma kitabında birden fazla çalışma sayfası varsa, Bir Çalışma Sayfası seçin iletişim kutusu açılır, lütfen verileri içe aktarmak istediğiniz bir çalışma sayfası belirtin, ekran görüntüsüne bakın:
4. Ve sonra tıklayın OK düğmesi, seçili çalışma sayfasındaki veriler mevcut çalışma kitabına aktarıldı.
Bu İmleçte Dosya Ekle özelliği hakkında daha fazla ayrıntı öğrenmek için tıklayın.
Kutools for Excel'i şimdi indirin ve ücretsiz deneyin!
Demo: Kutools for Excel ile kapalı çalışma kitabındaki verileri mevcut çalışma kitabına aktarın
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!