• 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ü ADO ile TC Kimlik Numaralarını gizleme

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

ERDAL

Bronz Üye
Katılım
3 Nis 2021
Mesajlar
292
Çözümler
1
Aldığı beğeni
47
Excel V
Office 2013 TR
Konu Sahibi
Merhaba Arkadaşalar,

Klasör ve alt klasörler altındaki Excel dosyalarındaki TC Kimlik Numaralarını ADO kullanarak gizlemek istiyorum.
Excel dosyalarındaki TC Kimlik Numaraları bütün tablolarda aynı sütunda bulunuyor.

Yardımlarınız için şimdiden teşekkür ederim.
 

Ekli dosyalar

Çözüm
halily
Yeni bir modül oluşturup aşağıdaki kodları oraya yapıştırarak dener misiniz?
Not: Önce yedek almanız yerinde olur
Not2: verilerinizin excelle aynı klasördeki Raporlar (Asıl) dizini altında yer aldığı varsayılmıştır. dolayısıyla VeriGuncelle fonksiyonunda yer alan AnaKlsr = ThisWorkbook.Path & "\Raporlar (Asıl)\" adres satırı verilerinizin olduğu ana dizine göre düzenlenmeli.
Ana Fonksiyon
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da üye ol.
Klasörleri tarayıp excel dosyalarını listeleyen kod:
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da üye ol.
Tarihe göre sırala Oylara göre sırala
Rica ederim.
İyi çalışmalar.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Halil hocam merhaba, tekrar dönüş yaptığım için kusura bakmayın.
Bu kısmı analayamadım. Sayfa ismini mi değiştiriyor.
Hocam mümkünse açıklayabilir misiniz

For Each tbl In objCat.Tables
Sheet = tbl.Name
Sheet = Replace(Sheet, "'", "")
f InStr(1, Sheet, "$_", 1) = 0 Then
 
Olumlu oy 0 Negatif oyla
Merhabalar,

Buradaki işlem aslında tabloyu döngüye alır, sayfa değişkenindeki tüm tek tırnak karakterleri boş bir string ile değiştirilir. Yani, tablo adında varsa tek tırnak karakteri kaldırılır. Sonrasında Sayfa içindeki ilk karakterden başlamayı sağlar. Son olarak da büyük küçük harf duyarlılığına göre arama işlemi yapar sonuç bulunamazsa sıfır döndürür.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst