• DİKKAT !

    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 Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü ADO excelden excele 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.
nunu446

nunu446

Yeni Üye
Katılım
13 Nis 2021
Mesajlar
247
Aldığı beğeni
23
Excel V
Office 2019 EN
Konu Sahibi
Merhaba. 00 ile 09.04.2021 isimli dosyalar 09.04.2021 isimli klasörde mevcut, 26.03.2021 isimli dosya ise 26.03.2021 isimli klasörde. 00 isimli dosyanı açtığınız zaman orda 26.03.2021 ve 09.04.2021 isimli sütunlar var ve ADO yöntemi ile 26.03.2021 isimli dosyanı açtığımızda TOTAL sayfasındakı TOTAL isimli hücrenin yanındaki rakamı 00 isimli dosyada bulunan 26.03.2021 sütununun altına getirmek, aynı işlemi 09.04.2021 isimli dosya için de geçerli. Şöyle bir şey yapmak mümkün mü?
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Tarihe göre sırala Oylara göre sırala
Konu Sahibi
Enes Recep BAĞ' Alıntı:
Hiç bir şeyi, sadece excellerinizin tamamını aynı klasör içine atın ve 00.xslm isimli dosyanızı çalıştırın.
Genişletmek için tıkla...
Ama tarihe göre klasörler farklı, yanı 26.03.2021 tarihdekiler aynı isimli klasörde, 09.04.2021 isimli dosyalar aynı isimli klasördeler, bunları karıştıramam.
 
Olumlu oy 0 Negatif oyla
Sayın @nunu446 istediğiniz böyle bir şey mi ?
HTML:
CSS:
İçeriği görebilmek için Giriş yap ya da Üye ol.
vaFiles = Array("C:\Users\adn\Downloads\09.04.2021.xlsx", "C:\Users\adn\Downloads\26.03.2021.xlsx") buradadi dosya yolllarını kendinize göre düzeltin
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Bence yanlış bir yapı kurduğun için verileri almada da zorluk yaşıyor yaşatıyorsun.
O tarihler sürekli değişecekse ve yeni tarihli dosyalar eklenecekse öncelikle veri tekrarı olmayan bir mimari oluşturmalısın.
Örneğin tüm bu bilgileri excel bir tabloda tutup sonra istediğin bilgilere göre bu firmalara ve tarihlere ait çıktılar üretecek formüller yazabilirsin.
Elbetteki yapmaya çalıştığın işin detayını bilmediğim için net bir yapı öneremiyorum
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Adnan' Alıntı:
Sayın @nunu446 istediğiniz böyle bir şey mi ?
HTML:
CSS:
İçeriği görebilmek için Giriş yap ya da Üye ol.
vaFiles = Array("C:\Users\adn\Downloads\09.04.2021.xlsx", "C:\Users\adn\Downloads\26.03.2021.xlsx") buradadi dosya yolllarını kendinize göre düzeltin
Genişletmek için tıkla...
Merhaba, cevabınız için teşekkür ederim, bunu yaptım ama aşağıdaki hatayı verdi.
 
Olumlu oy 0 Negatif oyla
Array("C:\Users\User\Desktop\2021.04.23\23.04.2021.xlsm", "C:\Users\User\Desktop\2021.04.09\09.04.2021.xlsm") "................................................."
arasını kendi sayfanızın adresi ile değiştiediniz mi? Bunu kendipcnizdeki sayfanın adresi ile değiştirmelisiniz
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Adnan' Alıntı:
Array("C:\Users\User\Desktop\2021.04.23\23.04.2021.xlsm", "C:\Users\User\Desktop\2021.04.09\09.04.2021.xlsm") "................................................."
arasını kendi sayfanızın adresi ile değiştiediniz mi? Bunu kendipcnizdeki sayfanın adresi ile değiştirmelisiniz
Genişletmek için tıkla...
Evet değiştirdim. Bu şekilde
 
Olumlu oy 0 Negatif oyla
tekrar denedim ve çalışıyor dosyanızın ismi 2021.04.09\09.04.2021.xlsm" şekildemi Baştaki 2021.04.09 klasör ismi mi.Eğer öyle ise Desktop\2021.04.23\23.04.2021.xlsm çalışması gerekir
 
Son düzenleme:
Olumlu oy 0 Negatif oyla
excel dosya isimlerini el ile yazmaktansa aşağıdaki örnekteki gibi Scripting.FileSystemObject objesi ile o dizinde bulunan istediğiniz uzantılı dosyaların isimlerini alarak işlem yaptırabilirsiniz.

yapacağınız şey aslında

List_Fichiers ThisWorkbook.Path & "\"

şeklinde çağırmak...


HTML:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Teşekkür ederim bilgilendirme için. İşin aslı bu kadar zorlamaya gerek yok.
HTML:
CSS:
İçeriği görebilmek için Giriş yap ya da Üye ol.
buda aynı işi rahatlıkla yapar. Peki neden böyle yaptın derseniz, burada bu şekilde kullanmamın kendimce sebepleri var.
 
Olumlu oy 0 Negatif oyla
Dosyanızı değiştirdim Ctrl Ye basılı tutarak birden fazla dosyayı seçin
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 1 Negatif oyla
Çözüm
Konu Sahibi
Adnan' Alıntı:
Dosyanızı değiştirdim Ctrl Ye basılı tutarak birden fazla dosyayı seçin
Genişletmek için tıkla...
@Adnan Hocam teşekkür ederim, çalışıyor fakat sıralaması düzgün gitmiyo, aşağıya ekran görüntüsü yükledim. Birde bunu yaptığımda 23.04.2021 tarihli dosyaların fiyatlarını getiriyor, peki 09.04.2021 tarihli dosyaların fiyatının nasıl getiricem?
 
Olumlu oy 0 Negatif oyla
Aynı anda iki dosyayı ctrl ye basarak seçin ikisinide aynı anda yapsın
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst