Çö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
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
Tarihe göre sırala Oylara göre sırala
nunu446

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
Dosyalarım şunlar ve 2-ci sayfadan veriyi almalı
 

Ekli dosyalar

  • 18.2.ASƏF - MAŞTAĞA - F2 - 2021.08.20.xlsx
    116.7 KB · Gösterim: 3
  • 33.1.FUAD - MAŞTAĞA - F2 - 2021.06.11.xlsx
    58.2 KB · Gösterim: 2
  • 33.2.QAFQAZ - MAŞTAĞA - F2 - 2021.04.16.xlsx
    106 KB · Gösterim: 2
Olumlu oy 0 Negatif oyla
halily

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
sorun çözüldü gibi ama orijinal dosya isimlerinde kullanılan karakterle sorun çıkarıyordu o nedenle dosya isimlerini değiştirmek zorunda kaldım
 
Olumlu oy 0 Negatif oyla
halily

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
dilerim işinize yarar
B sütunundaki veriler sorun çıkarttığı için verileri önce geçici TmpTotal sayfasına aktarıp son işlemi onun üzerinden yaptım.
Not: belirttiğim gibi bilgisayarım Ə gibi harfleri desteklemediğinde dosya isimlerini tanımıyordu o nedenle dosya isimlerini değiştirdim
ama dosya adlarında illaki o karakterler kullanılacaksa isimden o karakteri çıkarıp ChrW$(karakter kodu) araya eklemelisiniz
mesela 18.2.ASəF - MAŞTAĞA - F2 - 2021.08.20 için bu kod 601
ə yerine " & ChrW$(601) & " yazmalısınız
Adres1 = AnaKlsr & "\18.2.AS" & ChrW$(601) & "F - MAŞTAĞA - F2 - 2021.08.20.xlsx"
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 

Ekli dosyalar

  • ADO_Kapali_Excel_Veri_Alma_hy2.zip
    269.8 KB · Gösterim: 7
Son düzenleme:
Olumlu oy 0 Negatif oyla
halily

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
Dikkatimden kaçmış 2 defa connection kullanmisim kapatıp yeniden açmışım
yukardaki dosya güncellenmiştir
 
Son düzenleme:
Olumlu oy 0 Negatif oyla
halily

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
karaktere karşılık gelen sayıyı aşağıdaki fonksiyonu kullanarak bulabilirsiniz
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
nunu446

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
halily' Alıntı:
karaktere karşılık gelen sayıyı aşağıdaki fonksiyonu kullanarak bulabilirsiniz
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Genişletmek için tıkla...
halily' Alıntı:
dilerim işinize yarar
B sütunundaki veriler sorun çıkarttığı için verileri önce geçici TmpTotal sayfasına aktarıp son işlemi onun üzerinden yaptım.
Not: belirttiğim gibi bilgisayarım Ə gibi harfleri desteklemediğinde dosya isimlerini tanımıyordu o nedenle dosya isimlerini değiştirdim
ama dosya adlarında illaki o karakterler kullanılacaksa isimden o karakteri çıkarıp ChrW$(karakter kodu) araya eklemelisiniz
mesela 18.2.ASəF - MAŞTAĞA - F2 - 2021.08.20 için bu kod 601
ə yerine " & ChrW$(601) & " yazmalısınız
Adres1 = AnaKlsr & "\18.2.AS" & ChrW$(601) & "F - MAŞTAĞA - F2 - 2021.08.20.xlsx"
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Genişletmek için tıkla...
Selam. sizin dosyanızda yeniden butona bastığımda bu hata geliyor
 

Ekli dosyalar

  • Screenshot.jpg
    Screenshot.jpg
    169.4 KB · Gösterim: 5
Olumlu oy 0 Negatif oyla
halily

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
23. mesajdaki dosyayı indirip denedim
defalarca ekleye bastım kapatıp açtım yeniden bastım sorun çıkmadı
 
Olumlu oy 0 Negatif oyla
nunu446

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
halily' Alıntı:
dilerim işinize yarar
B sütunundaki veriler sorun çıkarttığı için verileri önce geçici TmpTotal sayfasına aktarıp son işlemi onun üzerinden yaptım.
Not: belirttiğim gibi bilgisayarım Ə gibi harfleri desteklemediğinde dosya isimlerini tanımıyordu o nedenle dosya isimlerini değiştirdim
ama dosya adlarında illaki o karakterler kullanılacaksa isimden o karakteri çıkarıp ChrW$(karakter kodu) araya eklemelisiniz
mesela 18.2.ASəF - MAŞTAĞA - F2 - 2021.08.20 için bu kod 601
ə yerine " & ChrW$(601) & " yazmalısınız
Adres1 = AnaKlsr & "\18.2.AS" & ChrW$(601) & "F - MAŞTAĞA - F2 - 2021.08.20.xlsx"
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Genişletmek için tıkla...
Şimdi bir daha deneyip, cevap vereceğim.
 
Olumlu oy 0 Negatif oyla
halily

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
doğrudan 23. mesajdaki dosyayı indirip o dosyadaki çalışma kitaplarında bu sorunu verdi;
"ilk basışta verileri alıyor 2. basışta hata veriyor", öyle mi?
 
Olumlu oy 0 Negatif oyla
nunu446

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
halily' Alıntı:
doğrudan 23. mesajdaki dosyayı indirip o dosyadaki çalışma kitaplarında bu sorunu verdi;
"ilk basışta verileri alıyor 2. basışta hata veriyor", öyle mi?
Genişletmek için tıkla...
İndirip, dosyanı açtığımda veriler vardı, sildim yeniden butona bastığımda hata verdi, yanı ilk bastığımda da sonra da hata veriyor
 
Olumlu oy 0 Negatif oyla
halily

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
o uyarıyı vermesi için hesabat sayfasının olmaması gerek, kodda o sayfayı silecek bir şey de yok
EĞER bu 4 excel dosyası da aynı klasördeyse ve diğer 3 dosyada hesabat sayfası varsa vermemesi gereka.gif
 
Olumlu oy 0 Negatif oyla
nunu446

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
Olumlu oy 0 Negatif oyla
halily

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
diğer 3 dosyayı kontrol ettiniz mi hesabat sayfaları var mı?
 
Olumlu oy 0 Negatif oyla
nunu446

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
Olumlu oy 0 Negatif oyla
halily

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
bölgesel ayarlardan kaynaklı bir şey olabilir UTF-8 özelliğini kontrol edebilir misiniz
bir de hesabat sayfalarının adını A1 olarak değiştirip kodda da o adları A1 olarak değiştirip dener misiniz?
 
Olumlu oy 0 Negatif oyla
halily

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
bir de aşağıdaki gibi dener misiniz?
 

Ekli dosyalar

  • ADO_Kapali_Excel_Veri_Alma_hy3.zip
    267 KB · Gösterim: 3
Olumlu oy 1 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

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