Makro Kullanarak Sunucudan Dosya Okuma

Makro Kullanarak Sunucudan Dosya Okuma

  • Konuyu başlatan Konuyu başlatan ssavas
  • Başlangıç tarihi Başlangıç tarihi

ssavas

VIP Üye
Kullanıcı
Excel Versiyonu
Excel 2019
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhaba arkadaşla.
Örnek çalışmada textbox'lara gerekli parametreler girince oluşan url adresi çalışınca dönen veri, gene sunucuda bulunan (kps.bsm.gov.tr) json klasörüne sorgulanan kişinin (stc.txt) tc kimlik numarası ile isimlendirilerek json formatında kayıt oluyor.
Ben istiyorum ki; örnek çalışmada olduğu gibi değil de, yani dosya yöneticisi olmaksızın sunucudaki json klasöründe bulunan sorgulanan kişinin kimlik numarası ile adlandırılmış json dosyasının varlığı kontrol edilsin, varsa import olsun, yoksa bir mesaj versin. İmport sonrası json klasöründeki tüm json dosyaları silinsin.
Yardımcı olacak arkadaşlara teşekkür ederim.
json.webp

Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(41 satır)
 
Personel Yıllık İzin Hak Ettirme
Excel Çalışma Kitabına Açılışta Not Ekleme
Excel Çalışma Kitabına Açılışta Not Ekleme

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
Feyzullah hocam dosya adını bir değişkenden alınarak yapılamazmı? Form arayüzünde bulunan txt_kimlik_sorgu veya stc.txt'ye girilen kimlik numarasını bir değişkene atayıp sorgu yapılabilir diye düşünüyorum. Uzak sunucu https adresi veya 192.168.1.1/json, 10.16.16.21/json gibi iç ip de olabilir.
2.webp
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Sorgulanan kişinin kimlik numarasını değişkene alarak uzak sunucudan json dosyasını okutmayı başardım. Ancak gene Türkçe karakter sorununa takıldım.
Ömer hocanın da, feyzullah hocanın da çözüm yöntemlerini uygulamada başarılı olamadım.
Ekran görüntüsü 2023-08-01 142525.webp

Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(48 satır)
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Deneme şansım yok.
-- Dim product.... ve Set product..... satırlarını,
alttaki txtkimliksogu =.... dahil alttaki satırları pasif hale getirin.
-- Üstteki Set http diye başlayıp, content = .... diye biten satırları aktif hale getirin.
-- vba ekranında Görünüm menüsünden LOCALS kısmını aktif hale getirin ve kodun, XD_bozuk =.... satırında durmasını sağlayın.
-- LOCALS ekranında content değişkeninin nasıl bir değer aldığını ekran görüntüsü olarak buradan iletin bakalım.
 
Oyla 0 Olumsuz oyla
Üstadım geri dönüş için teşekkür ederim.
Hakkınızı helal edin. Sunucu lokalden çalıştığı için evden bende test edemedim. Ancak yarın test edip geri dönebilirim.
 
Oyla 0 Olumsuz oyla
Üstadım sorunu şu şekilde çözdüm.
kod'daki filename (Dosya İsmi) de hata verip kısır döngüue giriyordu.
filename yerine sorgu url adresini yazınca sorun çözüldü.
Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(4 satır)
Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(34 satır)

Şimdi başka bir ufak sorunum var. json klasöründe bulunmayan bir sorgu yapılınca sistemin hata vermemesi için bir kontrol yapmaya çalışıyorum.
Bunun için de kod bloğuna şu şekilde bir kontrol makrosu ilave ettim ancak netice alamadım.
Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(9 satır)
Bu noktada çözüm önerinizi rica ediyorum.
 
Oyla 0 Olumsuz oyla
Bilgisayarda değilim.
Şu konu sayfasındaki kodda
varmi = Dir(......)
If varmi = True Then
İŞLEMLER
End If

bölümü var.
Sanırım aradığınız böyle bir şey.

www.exceldepo.com

Çözüldü - Klasörden Boşlukları Atlayan Resim Çağırma

merhaba ekte gönderdiğim dosyada klasörden çağırdığım resimler bulunmakta resimleri c hücresine =birleştir formülüyle a hücresinde sabit olan stok kodlarını çağırıyorum. formülü aşağıya doğru çektiğimde bir satırdan sonrası gelmiyor. klasörde o stok koduna ait resim olmadığı için orada duruyor...
www.exceldepo.com www.exceldepo.com
 
Oyla 0 Olumsuz oyla
Üstat şu şekilde yaptım.
Masa üstündeki klasörde sorgulanan kişiye ait bir json dosyasının varlığını-yokluğunu kontrol ediyor. Sunucu için test edemedim. Ancak yarın kontrol edebilirim. :)
Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(11 satır)
 
Oyla 0 Olumsuz oyla
Çünkü, bilgisayarınızdaki bir dosyayı,
"file system object" i kontrol ediyorsunuz.

Daha evvel tarif ettiğim VBA tarafındaki LOCALS alanında vt tanımlamasından sonraki HTTP REQUEST ve RESPONSE TEXT sonucu kontrol edilmeli.
 
Oyla 0 Olumsuz oyla
Çözüm
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst