AccessTr.neT

Tam Versiyon: Web Sayfasındaki İndirme Linkleri İle Dosya İndirme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
FrmEndeks formundaki butona yazılacak kod ile ;
"https://data.tuik.gov.tr/Kategori/GetKategori?p=enflasyon-ve-fiyat-106" sayfasındaki indirme linklerinden
("Yurt İçi Üretici Fiyat Endeksi- Kısım, Bölüm ve Gruplar (2003=100) NACE Rev. 2"
"Tüketici Fiyat Endeksi (2003=100)")
excel dosyalarını web sayfasındaki linklere tıklamadan otomatik olarak aynı klasöre indirmek itiyorum
Daha sonra gerekli düzenlemelerle Tuik tablosuna aktarım yapacağım.
Arkadaşlar,
Fikrinize ihtiyacım var...
bu kitap adresleri sabit mi değişken mi?
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
Sn Berduş;
"https://data.tuik.gov.tr/Bulten/DownloadIstatistikselTablo?p=dZ1RvzeczpbEVV9lSc8AeqrQOSs/FkCyNHdHsdAbh1a4woU7q2biiN9FBs8c2APh"
Linki 'p=' kısmından sonra değişken (dinamik)
Bu nedenle bu kod ile sürekli indirme yapılamıyor
Netten yaptığım araştırmalarda link başlığı, href gibi kavramlarla çözüm önerileri var
ancak uyarlayamadım ve başaramadım.
(30/07/2021, 14:41)mozuer yazdı: [ -> ]("Yurt İçi Üretici Fiyat Endeksi- Kısım, Bölüm ve Gruplar (2003=100) NACE Rev. 2"
"Tüketici Fiyat Endeksi (2003=100)")
bu 2 dosyayı nasıl buluyoruz
Sayfalar: 1 2