Çözüldü Kapalı Kitaptan Veri Alma Kodu Revizesi

Merhaba @Believing

Koddaki For Each dosya In Crea ...... ve buna bağlı olarak Next satırlarını silip,
If dosya.Name <> ..... satırının hemen üstüne şöyle bir satır ekleyerek istediğinizin olması gerekir.

Merhaba Ömer bey,

Yeni bir şeyleri yanlış yapıyorum galiba.
Aslında yapmak istediğim ekteki çalışmadaki gibi olup, dosya biçimlerini koruyarak bu işlemi nasıl gerçekleştirebilirim?

Saygılarımla,

Cevap yazmıştım ancak ADO konusunda bilgim yeterli olmadığından sonuç alamayabilirsiniz.
Ben sadece mantık yürüterek öneride bulunmuştum.

ADO kodlarıyla verilerin alınabildiğini biliyorum ama biçim konusu hakkında bir fikrim yok doğrusu.

.

Kodu şu şekilde düzenleyince ben, kodda belirtilen belgeden veri alabildim, bir de böyle deneyin.
Biçim konusuna bir önceki cevapta değinmiştim.
Koddaki belge adı, veri alınacak sayfa adı ve verilerin bulunduğu alan adresine dikkat edin.

Aşağıdaki kodda, veri alınacak belgeyle, verinin yazılacağı belgenin aynı dizinde olduğu varsayıldı.
-- veri alınacak belge : ExcelDestekÖrnek1 (6).xlsm
-- veriler hangi sayfadan alınacak : Sayfa1
-- alınacak verilerin adresi : A1:R50

Merhaba Ömer bey,

Şu gece vaktinde yine derdimize ilaç oldunuz.
ALLAH sizden ve sevdiklerinizden razı olsun.
Hakkınızı helal ediniz lütfen.

Saygılarımla,