Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _

    Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _

    ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

"Yurt İçi Üretici Fiyat Endeksi- Kısım, Bölüm ve Gruplar (2003=100) NACE Rev. 2" dosyası için aşağıdaki kod kullanılabilir
DsyIndr bu kısım indirilecek dosyanın adresidir

Sub download_Dosya(DsyIndr As String)

'DsyIndr = "https://data.tuik.gov.tr/Bulten/DownloadIstatistikselTablo?p=dZ1RvzeczpbEVV9lSc8AeqrQOSs/FkCyNHdHsdAbh1a4woU7q2biiN9FBs8c2APh"

dlpath = "D:\Desktop\SATIŞLAR_hy\"

URLDownloadToFile 0, DsyIndr, dlpath & "deneme.xls", 0, 0

End Sub