Skip to main content

AccessTr.neT


Web Sayfasındaki İndirme Linkleri İle Dosya İndirme

mozuer
mozuer
8
1156

Web Sayfasındaki İndirme Linkleri İle Dosya İndirme

#1
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.
.rar FTuik.rar (Dosya Boyutu: 19,99 KB | İndirme Sayısı: 8)
Son Düzenleme: 30/07/2021, 14:46, Düzenleyen: mozuer.
Cevapla
#2
Arkadaşlar,
Fikrinize ihtiyacım var...
Cevapla
#3
bu kitap adresleri sabit mi değişken mi?
Cevapla
#4
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
Cevapla
#5
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.
Son Düzenleme: 11/09/2021, 16:23, Düzenleyen: mozuer.
Cevapla
#6
(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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task