GoogleDrive 'a yüklenen resimlerin linklerini alma işlemi

[Tevfik_Kursun]

Sayın Haluk Hocam,
Sizi çok yordum, ilginize çok teşekkür ederim. Bu defa hata mesajı yok, ancak data da yok.
Saygılarımla

 

[Haluk]

Vallahi anlamadım muhterem..... acaba sizin internet hızınızda mı problem var ?

Aşağıdaki kırmızı satırı ilave edip, biraz bekleme süresi koyalım.... başka birşey de gelmiyor aklıma

    If objHTTP.ReadyState = 4 And objHTTP.Status = 200 Then
        Application.Wait Now + TimeSerial(0, 0, 3)

.

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
İlginize çok teşekkür ederim. Beklemeyi ekleyip, daha hızlı internet hattına da geçtiğim halde yine data gelmedi, maalesef. Bir de başka bilgisayarda deneyeceğim. Bilgilendiririm.
Saygılarımla

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
Son halini başka bilgisayarda ve farklı internet hattında da denedim. Yine olumsuz. Zarar yok, yormayın kendinizi lütfen.
Saygılarımla

 

[Haluk]

Anlıyorum, bir sıkıntı var ama ne olduğunu anlamadım..... Yoksa, hem "ScriptControl" hem de "RegExp" metoduyla yapılan her 2 VBA kodu da çalışıyor bende.

Neyse, sağlık olsun.....

.

 

[Tevfik_Kursun]

Kısmet eksikliği ...

 

[Haluk]

Peki, Tevfik Bey aşağıda kırmızıyla belirttiğim ilaveyi yapınca MsgBox sizde boş mu geliyor, yoksa JSon verileri mi geliyor?

    If objHTTP.ReadyState = 4 And objHTTP.Status = 200 Then
        JSonResponse = objHTTP.responseText
        
        MsgBox JSonResponse

Boş geliyorsa, daha önce verdiğim bekleme süresini içeren kodu da ilave edip deneyebilirsiniz....

.

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
Ekran çıktısı, ilk makroyu da bekleme ekleyerek hemen deneyeceğim.
Saygılarımla

 

[Haluk]

47 No'lu mesajda kırmızıyla belirttiğim ilaveyi yapmadınız galiba....

.

 

[Tevfik_Kursun]

Sayın Hocam,
Dikkatimden kaçmış.
Saygılarımla

 

[Tevfik_Kursun]

Sayın Hocam,
Sonuçların illa excele gelme şartı yok. Data.json formatında da gelse ben onu excele alırım.
Saygılarımla

 

[Haluk]

Sözkonusu MsgBox fonksiyonu ekli resimdeki gibi JSon verilerini getirmesi gerekiyordu.... Sizde, hata vermeyip de ekrana o geliyorsa durum cidden ilginç..... Üstelik, strURL değişkenin içindeki adresi tarayıcınıza yapıştırdığınızda bir sorun yok.

Tuhaf doğrusu....





.

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
GetData makrosuna benim ve sizin URL leri ayrı ayrı koyduğumda elde ettiklerimin ekran görüntüleri aşağıda. Bu daha da garip.
Saygılarımla

 

[Haluk]

1. Resim, benim Drive'ımdaki "folderPDF" isimli klasörün içindeki PDF dosyalarına ait.... Zaten Google Script'de bu şekildeydi.

O zaman, sorun sizin Google Drive'daki klasörde mi acaba ...... diye düşünmeden edemedim.

Bir de "Test" isimli makroda benim strURL değişkenini kullanın, orda da çalışacak mı bakalım?

.

 

[Tevfik_Kursun]

Sayın Hocam,
Ben de böyle düşündüm. Bilemiyorum, klasörü denemek için dün açtım ve 20 resim koydum. Denemeye başladım.
Olabilir belki bir sorun olmuş olabilir. Bilemiyorum. Tekrar deneyeceğim.
Oluşan dosyayı Data.json gibi alma şansım var mı, acaba?
Saygılarımla

 

[Haluk]

Oluşan dosyayı Data.json gibi alma şansım var mı, acaba?
Saygılarımla

Tevfik Bey, Google Script tarafında JSon nesnesi oluşturmuyoruz, "Text" olarak içeriğini yayınlayan bir "App" hazırlıyoruz.

Sizin dediğiniz gibi de yapılabilir ama yukarıdaki mesajlara bakınca, sizin bilgisayarda yine sorun çıkacağı kesin gibi....

Siz kendi kişisel hesabınızla Google Drive içinde bir klasör oluşturmuştunuz, değil mi?

.

 

[Haluk]

Bu arada.... sizin 27 No'lu mesajda verdiğiniz ve aşağıda belirttiğim URL'i ben tarayıcıda denediğimde açılmıyor.....

h ttps://script.google.com/macros/s/AKfycbwU7yhGoRj5CeSBS_Zs5Eah-_Sf5FwhaZedGIUlI5otzVm9Jf3YvN5cRg-lEqfl3rU0QA/exec

Sizdeki sıkıntının kaynağı sanırım bu...

Google Script'e gidip yeni bir "Deploy" yaptıktan sonra URL'i alıp buraya yazar mısınız?

.

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
Sevmediği başka bir şey var gibi. İlginize çok teşekkür ederim. (resimler yeni aldığım URL iledir)
Saygılarımla

 

[Haluk]

Tevfik Bey, URL'i buraya yazarsanız deneme şansımız olur...

.

 

[Haluk]

Bu arada, "Deploy" yaparken 1 ve 2 ile işaretlediğim yerleri resimde belirtildiği şekilde yapıyorsunuz, değil mi?

.