İnternette yer alan pdf dosyasının dosya adını excele kaydetme hk

[nusret3434]

Merhaba,
internette yer alan pdf dosyasının adını excel dosyasına yazdırmak istiyorum,

örneğin Gelir İdaresi Başkanlığında yer alan bir özelgenin linki aşağıdaki gibi olsun,

Gelir İdaresi Başkanlığı

Gelir İdaresi Başkanlığı (GİB) tarafından hazırlanan hizmetlere açılan pencere: Dijital Vergi Dairesi, Hazır Beyan Sistemi, İnternet Vergi Dairesi, İnteraktif Vergi Dairesi, E-Beyan Sistemi, Defter Beyan Sistemi

www.gib.gov.tr

özelgeyi açıp içindeki tüm verileri excelde farklı sütunlara çekiyorum, ancak özelgenin sisteme eklenme tarihini excele yazdıramıyorum,

sisteme ekleme tarihi,"https://www.gib.gov.tr/node/178643/pdf" linkine tıklanıp farklı kaydet seçeneğinin seçilmesi sırasında dosya adının içerisinde yer alıyor, yardımcı olabilirseniz çok müteşekkir olurum

 

[nusret3434]

merhaba Ömer Bey,
İlginiz için çok teşekkür ederim, özelgenin içeriğindeki tarihi çekiyorum orada problem yaşamıyorum, ancak pdf dosyasını kaydetmek istediğimizde kaydedilecek dosyanın adı "Gelir İdaresi Başkanlığı - Serbest bölgelerde kurumlar vergisi ve ücretliler için gelir vergisi stopaj teşviki uygulaması - 2024-11-04" şeklinde geliyor, bu ismin son kısmındaki "2024-11-04" tarihi maliye bakanlığının ilgili özelgeyi siteye ekleme tarihini temsil ediyor, o yüzden siteye eklenme tarihini excele yazdırmak istiyorum, siteye eklenme tarihi web sitesindeki kodların hiçbir yerinde yazmıyor

 

[ÖmerBey]

Tekrar merhaba,
Sorunuzu yanlış anladığımı fark edip mesajımı silmiştim fakat siz daha hızlı davranmışsınız.
Aşağıdaki şekilde sanırım istediğiniz bilgi alınıyor.
Deneyiniz...

Sub kod()
    Set X = CreateObject("MSXML2.XMLHTTP")
    Link = "https://www.gib.gov.tr/node/178623/pdf"
    With X
        .Open "GET", Link, False
        .Send
        met = X.getResponseHeader("Content-Disposition")
        trh = Mid(met, InStr(1, met, ".pdf") - 10, 10)
        MsgBox trh
    End With
End Sub

 

[nusret3434]

Çok teşekkür ediyorum Ömer Bey, çok uğraşmış, yapamamıştım, emeklerinize sağlık

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...