K

Soru Ado ile birden çok kapalı dosyayı aktarma

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

KarincaZZ

Normal Üye
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:
Görüntülemek için giriş yapmanız gerekmektedir.
(29 satır)


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

Kod:
Görüntülemek 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
 
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:
Görüntülemek için giriş yapmanız gerekmektedir.
(9 satır)
 
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:
Görüntülemek için giriş yapmanız gerekmektedir.
(20 satır)
 
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:
Görüntülemek için giriş yapmanız gerekmektedir.
(8 satır)


Aktarılan sayfaların mevcut sayfaların en sonuna eklenmesi için
Kod:
Görüntülemek 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.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst