Ado ile birden çok kapalı dosyayı aktarma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

KarincaZZ

Kullanıcı
Katılım
5 Eyl 2019
Mesajlar
45
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhaba

Aşağıdaki kod ile bir klasör içindeki birden fazla excel dosyasını aktif sayfaya ekleye biliyorum.

Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(29 satır)


Bu kod ile de ADO ile tek bir dosyayı aktif sayfaya aktara biliyorum.

Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(12 satır)

Ado ile ilk koddaki yaptığımı yapmaya çalışıyorum ancak yapamadım.

Ado ile yada başka bir yöntem ile Bir klasörün içindeki ne kadar excel dosyası varsa aktif excel çalışma sayfasına dosya ismiyle sayfa açarak sadece verileri ekleme yapabilmemde yardımcı olabilir misiniz. Aktarılan Excel dosyalarında birleştirilmiş hücreler, logolar gibi aktarılmada istemediğim durumlar var. Ado ile aktarınca sadece veriler geliyor, logo vb resim dosyaları, birleştirilmiş hücreler gibi istemediğim durumlar aktarılmıyor.

Teşekkürler
 
Kişi Silme
Tercih Robotu
Tarihe göre sırala Oylamaya göre sırala
Merhaba Sayın @KarıncaZ .

ADO ile ilgili hiç çalışmam olmadı.
Basitçe aşağıdaki gibi düşünüp, şekiller/logolar vs olmadan sadece değerler alınarak işlem yapılsa olmaz mı?
,
CSS: 
İndirmek için giriş yapmanız gerekmektedir.
(9 satır)
 
Oyla 0 Olumsuz oyla
Merhaba Sayın Ömer BARAN

Bu şekilde de olur. Önemli olan sadece verilerin aktarılması.

Ekteki dosyayı aktarırken

Sheets(YeniDosyaAdi).[A1].Resize(UBound(deg), UBound(Application.Transpose(deg))) = deg

satırı hata veriyor. Diğer sayfaları sorunsuz bir şekilde aktarıyor.
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
İçerisinde çizim nesresi gibi şeylerin de olduğu belgelerden veri alarak denemiştim oysa.
Bilgisayar başına geçince, yarın uygun bir zamanda tekrar kontrol ederim.
 
Oyla 0 Olumsuz oyla
Tekrar merhaba Sayın @KarıncaZ .

Aşağıdaki şekilde deneyiniz.
Kırmızı kısım, makronun kullanıldığı belgede mevcut ve adı Sayfa1 olmayan sayfaların silinmesini sağlıyor.
Bunu eklememin nedeni, makro üst üste çalıştırılacak olursa, zaten mevcut olan safaların silinmesi.
Yani Sayfa1'i ANASAYFA gibi düşünüp, makronun tetiklenmesini sağlayacak düğme/şekil ... nesnenin bu sayfada olacağını varsaydım.

.
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(20 satır)
 
Oyla 0 Olumsuz oyla
Merhaba Sayın Ömer BARAN

Kodlar tam istediğim gibi çalıştır. Çok teşekkürler

Sizin kodlarınızda esas dosyada yaptığım değişiklikler şöyle

Bazı sayfalar haricindeki diğer tüm sayfaları silmek için.
Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(8 satır)


Aktarılan sayfaların mevcut sayfaların en sonuna eklenmesi için
Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(1 satır)

ilgili satırı bu şekilde değiştirdim.

İlginiz ve yardımlarınız için çok teşekkürler.

Bu konu tam istediğim gibi çözülmüştür.
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt