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

Çö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
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
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
sorun çözüldü gibi ama orijinal dosya isimlerinde kullanılan karakterle sorun çıkarıyordu o nedenle dosya isimlerini değiştirmek zorunda kaldım
 
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:
Dikkatimden kaçmış 2 defa connection kullanmisim kapatıp yeniden açmışım
yukardaki dosya güncellenmiştir
 
Son düzenleme:
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.
 
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.
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.
Selam. sizin dosyanızda yeniden butona bastığımda bu hata geliyor
 

Ekli dosyalar

  • Screenshot.jpg
    Screenshot.jpg
    169.4 KB · Gösterim: 5
23. mesajdaki dosyayı indirip denedim
defalarca ekleye bastım kapatıp açtım yeniden bastım sorun çıkmadı
 
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.
Şimdi bir daha deneyip, cevap vereceğim.
 
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?
 
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?
İndirip, dosyanı açtığımda veriler vardı, sildim yeniden butona bastığımda hata verdi, yanı ilk bastığımda da sonra da hata veriyor
 
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
 
diğer 3 dosyayı kontrol ettiniz mi hesabat sayfaları var mı?
 
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?
 
bir de aşağıdaki gibi dener misiniz?
 

Ekli dosyalar

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

Konuyu okuyanlar

Geri
Üst