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

Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

nunu446

Yeni Üye
Kullanıcı Bilgileri
Katılım
13 Nis 2021
Mesajlar
235
Aldığı beğeni
21
Excel Versiyonu
Office 2019 EN
Konuyu Başlatan
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.
 

Ekli dosyalar

  • 0.TOTAL - 0 - F2.xlsm
    11.4 KB · Gösterim: 5
  • 01.xlsx
    11.2 KB · Gösterim: 4
  • 02.xlsx
    11.2 KB · Gösterim: 4
  • 03.xlsx
    11.2 KB · Gösterim: 3

halily

Destek Ekibi
Kullanıcı Bilgileri
Katılım
29 Ağu 2021
Mesajlar
1,908
Çözümler
258
Aldığı beğeni
1,868
Excel Versiyonu
Office 2019 TR
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

Yeni Üye
Kullanıcı Bilgileri
Katılım
13 Nis 2021
Mesajlar
235
Aldığı beğeni
21
Excel Versiyonu
Office 2019 EN
Konuyu Başlatan
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
 

Ekli dosyalar

  • 0.TOTAL - 0 - F2.xlsm
    29.8 KB · Gösterim: 1
  • Archico.xlsx
    305.2 KB · Gösterim: 1
  • Ferman.xlsx
    60.3 KB · Gösterim: 1
  • Bextiyar.xlsx
    201.1 KB · Gösterim: 1
  • Metleb.xlsx
    225.3 KB · Gösterim: 1
  • Veli.xlsx
    192.3 KB · Gösterim: 2

halily

Destek Ekibi
Kullanıcı Bilgileri
Katılım
29 Ağu 2021
Mesajlar
1,908
Çözümler
258
Aldığı beğeni
1,868
Excel Versiyonu
Office 2019 TR
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

Yeni Üye
Kullanıcı Bilgileri
Katılım
13 Nis 2021
Mesajlar
235
Aldığı beğeni
21
Excel Versiyonu
Office 2019 EN
Konuyu Başlatan
Şu dosyalarda hata verdi, isimlerini değiştirdim, ama yine hata
 

halily

Destek Ekibi
Kullanıcı Bilgileri
Katılım
29 Ağu 2021
Mesajlar
1,908
Çözümler
258
Aldığı beğeni
1,868
Excel Versiyonu
Office 2019 TR
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

Destek Ekibi
Kullanıcı Bilgileri
Katılım
29 Ağu 2021
Mesajlar
1,908
Çözümler
258
Aldığı beğeni
1,868
Excel Versiyonu
Office 2019 TR
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

Yeni Üye
Kullanıcı Bilgileri
Katılım
13 Nis 2021
Mesajlar
235
Aldığı beğeni
21
Excel Versiyonu
Office 2019 EN
Konuyu Başlatan
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?
 

Ekli dosyalar

  • 0.TOTAL - NOVXANI - F2.xlsm
    29.8 KB · Gösterim: 1
  • Emin.xlsx
    147.3 KB · Gösterim: 2
  • Huseyn.xlsx
    64.7 KB · Gösterim: 2
  • İlqar.xlsx
    406.1 KB · Gösterim: 2

halily

Destek Ekibi
Kullanıcı Bilgileri
Katılım
29 Ağu 2021
Mesajlar
1,908
Çözümler
258
Aldığı beğeni
1,868
Excel Versiyonu
Office 2019 TR
bende sorun çıkarmadı aşağıdaki dosyayı dener misiniz?
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 

Ekli dosyalar

  • ADO_Kapali_hy5.zip
    1.4 MB · Gösterim: 10
Son düzenleme:
Çözüm

halily

Destek Ekibi
Kullanıcı Bilgileri
Katılım
29 Ağu 2021
Mesajlar
1,908
Çözümler
258
Aldığı beğeni
1,868
Excel Versiyonu
Office 2019 TR
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

Destek Ekibi
Kullanıcı Bilgileri
Katılım
29 Ağu 2021
Mesajlar
1,908
Çözümler
258
Aldığı beğeni
1,868
Excel Versiyonu
Office 2019 TR
Dir() fonksiyonuyla dosya isimleri alınırken yerel karakterleri -ə gibi- almadığı için dosya adı alma döngüsü değiştirildi
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
nu fonksiyonda UTF-8 olmasa bile
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

Üst