Çözüldü Özelgeleri Listelemek

[1903emre34]

GİB sitesi güncellediği için, ekteki dosya çalışmıyor, yardımcı olabilir misiniz

 

[Ali ÖZ]

denedim toplan 7450 listeleme yaptı Ekli dosyayı görüntüle 35261

7450 kayıt diğer kodda getiriyor onu müsait zamanda incelemem lazım.

 

[Ali ÖZ]

En son yüklediğim dosyada 2 adet buton var özelgeleri indir butonunu kullanın.

 

[1903emre34]

 

[1903emre34]

 

[Ali ÖZ]

Aynı dosya kayıt yolunda var yada yol geçersiz. Çakışmayı önleyecek bir kriter ekledim.Kayıt yerini siz belirlersiniz.
Kontrol edin.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[1903emre34]

yol = masaustu & "\Ozelge_" & tarih & ".xlsx" değiştirdim hata verdi

 

[1903emre34]

Aşağıdaki şekilde çözdüm
Private Sub CommandButton2_Click()

On Error GoTo Hata

Dim Http As Object
Dim dosya() As Byte
Dim tarih As String
Dim yol As String
Dim dosyano As Integer
Dim masaustu As String
Dim URL As String
Dim Body As String

tarih = Format(Now, "yyyymmdd_hhnnss")
masaustu = CreateObject("WScript.Shell").SpecialFolders("Desktop")
yol = masaustu & "\Ozelgeler_" & tarih & ".xlsx"


URL = "

Bu bağlantı ziyaretçiler için gizlenmiştir. Görmek için lütfen giriş yapın veya üye olun.

"


Body = "{""status"":2,""deleted"":false,""description"":"""",""kanunNo"":"""",""rkType"":99,""title"":"""",""mevzuatType"":""OZELGE""}"

Set Http = CreateObject("MSXML2.XMLHTTP.6.0")
Http.Open "POST", URL, False
Http.setRequestHeader "Content-Type", "application/json"
Http.Send Body


If Http.Status = 200 Then

dosya = Http.responseBody
dosyano = FreeFile


Do While Dir(yol) <> ""
yol = masaustu & "\Ozelgeler_" & tarih & "_" & Format(Timer * 100, "0") & ".xlsx"
Loop


Open yol For Binary Access Write As #dosyano
Put #dosyano, , dosya
Close #dosyano

Workbooks.Open Filename:=yol

MsgBox "Dosya başarıyla indirildi.", vbInformation

Else
MsgBox "Sunucu hatası: " & Http.Status & vbCrLf & Http.responseText
End If

Exit Sub

Hata:
MsgBox "VBA hata: " & Err.Number & vbCrLf & Err.Description

End Sub

 

[1903emre34]

Teşekkükler her bir tane bağlantı linki yapabilri ymizi

 

[Ali ÖZ]

Teşekkükler her bir tane bağlantı linki yapabilri ymizi Ekli dosyayı görüntüle 35268

Merhaba, Dosyadaki özelgeleri getir butonunun kodlarını revize ettim,link ekleme kısmını da ilave ettim.Özelgeleri indir butonu iste excel olarak indirdiğinden harici link ekleme yapılması gerekir.Siz özelgeleri getir butonunu kullanıp deneyin. Benim için de antreman oldu epey olmuştu bu tür işlemler ile uğraşmayalı
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[1903emre34]

ellerinize sağlık