• 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.

    Giriş yap veya Şimdi kayıt ol

Çö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

nunu446

Yeni Üye
Kullanıcı Bilgileri
Katılım
13 Nis 2021
Mesajlar
239
Aldığı beğeni
22
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
Tarihe göre sırala Oylara göre sırala
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
 
Olumlu oy 0 Negatif oyla
halily' Alıntı:
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
Genişletmek için tıkla...
Ş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
Olumlu oy 0 Negatif oyla
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
 
Olumlu oy 0 Negatif oyla
Şu dosyalarda hata verdi, isimlerini değiştirdim, ama yine hata
 
Olumlu oy 0 Negatif oyla
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)) ;"
 
Olumlu oy 0 Negatif oyla
nunu446' Alıntı:
Tamam, ama dosya adlarını yazmalıyım dimi?
Genişletmek için tıkla...
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
 
Olumlu oy 0 Negatif oyla
halily' Alıntı:
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)) ;"
Genişletmek için tıkla...
Ş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
Olumlu oy 0 Negatif oyla
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:
Olumlu oy 1 Negatif oyla
Çözüm
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)
 
Olumlu oy 0 Negatif oyla
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.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

Toplam: 2 (Kullanıcı: 0, Ziyaretçi: 2)
Geri
Üst