Çözüldü Kapalı excel kitaplarından şartlı veri çekme

valerine_3108 · 4 Nis 2022

Sayın Halil Hocam Öncelikle çok teşekkür ederim. Hocam verileri ortak alana koyduğumda hata alıyorum. Normalde hata vermiyor. ortak alanda veriyor. vermiş olduğu aşağıdadır. lütfen yardımcı olabilir misiniz.

Not: Askan Hocamın kodu veri olduğu halde hata veriyor. Ortak alanda ben her iki kodu da kullanıyorum. lütfen yardımcı olabilir misiniz.

Her iki kodda ortak alanda hata veriyor.

Saygılarımla,
İyi çalışmalar.

valerine_3108 · 4 Nis 2022

Arkadaşlar lütfen yardımcı olabilir misiniz.

excelcan · 4 Nis 2022

VBA.Right(dosyalar.Name, 3)= "xls" satırında 3 ü 4 yapıp dener misiniz.

halily · 4 Nis 2022

kodu aşağıdaki gibi düzenler misiniz?
kodda 2 hata vardı
1 dosyaların kapalı olacağı düşünüldüğünden recordset için
ADO_RS.Open SQL, ADO_CN, 3, 1 kullanılmıştı orası
ADO_RS.Open SQL, ADO_CN olarak değiştirildi
2 - yine kapalı olacağı düşünüldüğünden açık dosyaların oluşturduğu geçici ~$ ön ekli dosyalara hesaba katılmamıştı
bunu engellemek içinHTML:

Kod:

İçeriği görebilmek için Giriş yap ya da üye ol.

satırı eklendi
HTML:

Kod:

İçeriği görebilmek için Giriş yap ya da üye ol.

halily · 4 Nis 2022

ilginçtir daha önce ADO_RS.Open SQL, ADO_CN, 3, 1 denediğimde hata vermişti ama şimdi bir kaç defa denedim hata vermedi

valerine_3108 · 5 Nis 2022

Sayın Halil Hocam aşağıdaki hatayı veriyor.

valerine_3108 · 5 Nis 2022

Sayın Excelcan hocam denedim aynı hatayı veriyor.

halily · 5 Nis 2022

If Left(dosyalar.Name, 1) = "~" Then GoTo TmpCik <-- bu satırın altına
Debug.print dosyalar <-- satırını ekler misiniz?
Bu komut ekrana dosya isimlerini yazar, hata vermeden önce yazılan son dosyayı inceler misiniz? Belki yapısı farklıdır
Hata kodundan bu anlam çıkıyor.

halily · 5 Nis 2022

ortak alandaki bütün dosyalar sizin tablo yapınızla uyumlu mu?

valerine_3108 · 5 Nis 2022

Evet Hocam Uyumlu Masa üstünde olanlarla aynısı onları kopyaladım. ortak alana Hocam yazdırdım.

son 3 kişiyi yazmadı. hata verdi.

halily · 5 Nis 2022

thumbs.db excel dosyası değil hata verir
veri alacağınız dosyaların hepsi .xlsb mi?

halily · 5 Nis 2022

sadece excel dosyalarını alması için
If Left(dosyalar.Name, 1) = "~" Then GoTo TmpCik satırını
HTML:

Kod:

İçeriği görebilmek için Giriş yap ya da üye ol.

olarak değiştirip dener misiniz?
yada doğrudan her hangi bir hatada sorun yok muş gibi devam etmesi için sadece
HTML:

Kod:

İçeriği görebilmek için Giriş yap ya da üye ol.

satırı da eklebilir

valerine_3108 · 6 Nis 2022

Halily Hocam sorun çözüldü çok teşekkür ederim. Allah'a emanet olun.

Saygılarımla,
İyi çalışmalar.

valerine_3108 · 6 Nis 2022

Halil Hocam bu kodu başka bir tabloda daha kullanacağım. "B" bakıyordu. acaba "A" sütunana bakacak şekilde düzenleyebilir miyiz. lütfen
çok teşekkür ederim.

halily · 6 Nis 2022

aslınd A,B yada C gibi bir şey yok önemli olan aldığınız aralık
A:K aralığını alıyorsanız ; A=F1, B=F2, C=F3.......... diye gider ama eğer
C:K aralığını alıyorsanız ; C=F1, D=F2, E=F3.......... diye gider