Çözüldü VBA ile kapalı dosyadan veri alma

[nunu446]

Merhaba. Benim 4 tane excel dosyam var ve bunlardan biri TOTAL dosyası. TOTAL dosyasında bulunan verilerle aynı veriler diğer 3 dosyada da var. Soru şu ki, TOTAL dosyasına diğer 3 dosyadakı verilerin cem halinde uygun sıralara yazılması lazım. Örnek dosyaları aşağı bırakıcam.

 

[halily]

eğer isim hesabat olarak kalmak zorundaysa orada belirttiğim
ə yerine " & ChrW$(601) & " yazma mantığı sorgudaki isim için de kullanılabilir
mesela
sorguda kullanılan
"SELECT * " & _
"FROM [Hesabat$] ....
yerine diyelim ki e harfi sorunluysa
"SELECT * " & _
"FROM [H" & ChrW$(101) & "sabat$] kullanılabilir belki

 

[nunu446]

eğer isim hesabat olarak kalmak zorundaysa orada belirttiğim
ə yerine " & ChrW$(601) & " yazma mantığı sorgudaki isim için de kullanılabilir
mesela
sorguda kullanılan
"SELECT * " & _
"FROM [Hesabat$] ....
yerine diyelim ki e harfi sorunluysa
"SELECT * " & _
"FROM [H" & ChrW$(101) & "sabat$] kullanılabilir belki

Şu dosyadakı kodu düz mü yazdım? burda dosya 5 tane

 

[halily]

aslında veri alacağınız tüm dosyaları alt klasöre taşısanız kod çalıştığında o klasördeki tüm dosyalardan veri alabilir sizin tek tek isim yazmanıza gerek kalmaz

 

[nunu446]

Şu dosyalarda hata verdi, isimlerini değiştirdim, ama yine hata

 

[nunu446]

aslında veri alacağınız tüm dosyaları alt klasöre taşısanız kod çalıştığında o klasördeki tüm dosyalardan veri alabilir sizin tek tek isim yazmanıza gerek kalmaz

Tamam, ama dosya adlarını yazmalıyım dimi?

 

[halily]

selectleri unutmuşsunuz )
her "Union all " satırının altına önce "SELECT * eklenmeli
"Union all "; sorgular birleştiriyor ,temel mantık select * from TabloAdı
sorgunuzda kırmızı satırlar yok onları eklemelisiniz dikkatimden kaçmıış başkaları da olabilir
SQL = "SELECT * " & _
"FROM (SELECT * " & _
"FROM [Hesabat$] IN """ & Adres1 & """ ""EXCEL 8.0;"" " & _
"Union all " & _
"SELECT * " & _
"FROM [Hesabat$] IN """ & Adres2 & """ ""EXCEL 8.0;"" " & _
"Union all " & _
"SELECT * " & _
"FROM [Hesabat$] IN """ & Adres3 & """ ""EXCEL 8.0;"" " & _
"Union all " & _
"SELECT * " & _
"FROM [Hesabat$] IN """ & Adres4 & """ ""EXCEL 8.0;"" " & _
"Union all " & _
"SELECT * " & _
"FROM [Hesabat$] IN """ & Adres5 & """ ""EXCEL 8.0;"" ) AS A " & _
"WHERE (((A.F1) Is Not Null)) OR (((A.F1)>0)) ;"

 

[halily]

Tamam, ama dosya adlarını yazmalıyım dimi?

yok o zaman yazmanıza gerek kalmaz büyük bir ihtimalle Dir() fonksiyonu kurularak oluşturulacak döngü ile isimler otomatik olarak alına bilir

 

[nunu446]

selectleri unutmuşsunuz )
her "Union all " satırının altına önce "SELECT * eklenmeli
"Union all "; sorgular birleştiriyor ,temel mantık select * from TabloAdı
sorgunuzda kırmızı satırlar yok onları eklemelisiniz dikkatimden kaçmıış başkaları da olabilir
SQL = "SELECT * " & _
"FROM (SELECT * " & _
"FROM [Hesabat$] IN """ & Adres1 & """ ""EXCEL 8.0;"" " & _
"Union all " & _
"SELECT * " & _
"FROM [Hesabat$] IN """ & Adres2 & """ ""EXCEL 8.0;"" " & _
"Union all " & _
"SELECT * " & _
"FROM [Hesabat$] IN """ & Adres3 & """ ""EXCEL 8.0;"" " & _
"Union all " & _
"SELECT * " & _
"FROM [Hesabat$] IN """ & Adres4 & """ ""EXCEL 8.0;"" " & _
"Union all " & _
"SELECT * " & _
"FROM [Hesabat$] IN """ & Adres5 & """ ""EXCEL 8.0;"" ) AS A " & _
"WHERE (((A.F1) Is Not Null)) OR (((A.F1)>0)) ;"

Şu dosyada neden olmuyor?

 

[halily]

bende sorun çıkarmadı aşağıdaki dosyayı dener misiniz?
HTML:

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

 

[nunu446]

bende sorun çıkarmadı aşağıdaki dosyayı dener misini

Tamam.sonunda bitti, Problem yok, Tamda istediğim buydu.Teşekkürler @halily.

 

[halily]

rica ederim
iyi çalışmalar
Not: bölgesel ayarlardan UTF-8 etkinleştirilince dosya isimlerindeki farklı karakterler sorun çıkarmadı bende
ama başka bir soruda da etkinleştirince sorun çıkıyordu)

 

[halily]

Dir() fonksiyonuyla dosya isimleri alınırken yerel karakterleri -ə gibi- almadığı için dosya adı alma döngüsü değiştirildi
HTML:

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

nu fonksiyonda UTF-8 olmasa bile
HTML:

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