Kapatılmış bir çalışma kitabından veri, Geçerli Çalışma Kitabı'na nasıl içe aktarılır veya kopyalanır?
Açık bir çalışma sayfasından veri kopyalayıp başka bir açık çalışma kitabına yapıştırmak bizim için çocuk oyuncağıdır; peki ya kapatılmış bir çalışma kitabından veri içe aktarmayı hiç denediniz mi? Bu makalede, kapatılmış bir çalışma kitabından veri içe aktarma yöntemlerini inceleyeceğiz.
VBA kodu ile kapatılmış çalışma kitabından veri içe aktarma Geçerli Çalışma Kitabı
Kapatılmış çalışma kitabından veri içe aktarma Geçerli Çalışma Kitabı ile Kutools for Excel
VBA kodu ile kapatılmış çalışma kitabından veri içe aktarma Geçerli Çalışma Kitabı
Aşağıdaki VBA kodu, bir çalışma kitabını açmadan verileri kopyalayıp etkin açık çalışma kitabınıza yapıştırmanıza olanak tanır. Lütfen aşağıdaki adımları uygulayın:
1. ALT + F11 tuşlarına basılı tutun; bu işlem, Microsoft Visual Basic for Applications penceresini açar.
2. Ekle > Modül seçeneğine tıklayın ve aşağıdaki kodu Modül Penceresi’ne yapıştırın.
VBA kodu: Kapatılmış çalışma kitabından veri içe aktarma Geçerli Çalışma Kitabı
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. Ardından bu kodu çalıştırmak için F5 tuşuna basın 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. Ardından Aç düğmesine tıklayın; ardından içe aktarmak istediğiniz veri aralığını seçmenizi hatırlatan Kutools for Excel iletişim kutusu çıkar; ekran görüntüsüne bakın:
5.Ardından çıkan iletişim kutusunda verileri yerleştirmek istediğiniz hücreyi seçmek için TAMAMdüğmesine tıklayın; ekran görüntüsüne bakın:
6. Ardından TAMAM düğmesine tıklayın; kapatılmış çalışma kitabındaki veriler Geçerli Çalışma Kitabı’na içe aktarıldı.
Kapatılmış çalışma kitabından veri içe aktarma Geçerli Çalışma Kitabı ile Kutools for Excel
VBA kodu, Excel yeni başlayanlar için biraz zorlayıcı olabilir. Bu yüzden size pratik bir çözüm öneriyoruz: Kutools for Excel. Dosyayı İçe Aktar özelliğini kullanarak, kapalı bir çalışma kitabından bir çalışma sayfasının tüm içeriğini hızlı ve kolayca ekleyebilirsiniz.
Kutools for Excel yüklendikten sonra Kutools for Excel, lütfen aşağıdaki gibi devam edin:
1.KUTOOLS PLUS>İçe/Dışa Aktar>Dosyayı İçe Aktar; ekran görüntüsüne bakın:
2.Dosyayı İçe Aktariletişim kutusunda aşağıdaki işlemleri yapın:
(1.) İçe aktarılacak verileri yerleştirmek istediğiniz hücreyi seçmek için 
düğmesine tıklayın;
(2.) Verilerini içe aktarmak istediğiniz çalışma kitabını seçmek için 
düğmesine tıklayın.
Not:Yalnızca değer (formüller olmadan): Bu seçeneği işaretlerseniz, sadece değerler içe aktarılır; formüller aktarılmaz.
Biçimlendirmeyi aktarma: Bu seçeneği işaretlemek, verilerin çalışma sayfasına biçimlendirme olmadan aktarılmasını sağlar.
3. Ardından TAMAM düğmesine tıklayın. Çalışma kitabında birden fazla çalışma sayfası varsa, Bir çalışma sayfası seçin iletişim kutusu görüntülenir; içe aktarmak istediğiniz çalışma sayfasını belirtin. Ekran görüntüsüne bakın:
4. Ardından, TAMAM düğmesine tıklayın; seçilen çalışma sayfasındaki veriler Geçerli Çalışma Kitabı’na içe aktarıldı.
Kutools for Excel’i şimdi indirin ve ücretsiz deneyin!
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar