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