• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

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

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

valerine_3108

Yeni Üye
Katılım
25 Ağu 2021
Mesajlar
87
Aldığı beğeni
8
Excel V
Office 2019 TR
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.
1649059557514.png

1649059583460.png

1649060085207.png
1649060110745.png
 
Çözüm
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
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.
 
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
 
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.
 
ortak alandaki bütün dosyalar sizin tablo yapınızla uyumlu mu?
 
Evet Hocam Uyumlu Masa üstünde olanlarla aynısı onları kopyaladım. ortak alana Hocam yazdırdım.

1649162287674.png

son 3 kişiyi yazmadı. hata verdi.
 
thumbs.db excel dosyası değil hata verir
veri alacağınız dosyaların hepsi .xlsb mi?
 
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
 
Son düzenleme:
Çözüm
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.
 
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
 
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst