-
Foruma hoş geldin 👋 Ziyaretçi
Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.
Giriş yap veya Şimdi kayıt ol
Çözüldü internet üzerinden excel dosyası hk
- Konuyu Başlatan MUSTAFAA
- Başlangıç tarihi
-
- Etiketler
- internet üzerinden excel dosyası
Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Çözüm
Ali ÖZ
Uzman
- Katılım
- 28 May 2021
- Mesajlar
- 404
- Çözümler
- 109
- Aldığı beğeni
- 594
- Excel V
- Office 365 TR
Merhaba,
ilgili ekranın url adresini paylaşabilirseniz inceleriz.
ilgili ekranın url adresini paylaşabilirseniz inceleriz.
EKRANA SİZ GİREMEMEKTESİNİZ. ŞİRKETE ÖZEL BİR EKRANDIR KODLARINI PATLAŞMAM GEREKİRSE SİTENİN PAYLAŞABİLİRİM.
sağ üsteki ezcele aktar kısmı vardır
sağ üsteki ezcele aktar kısmı vardır
Adnan
Destek Ekibi
- Katılım
- 10 Mar 2021
- Mesajlar
- 1,513
- Çözümler
- 285
- Aldığı beğeni
- 1,646
- Excel V
- Office 365 TR
excelden Al dediğinizde excel sayfasını açıyorsa farklı kaydedin. Açmıyorsa kopyala yapıştır işinizi görürse onu yapın
Basınca direk indirmektedir. bu butona basmasını istiyorum excelde makroda bunu yapabiliyormuyuz yani.
Adnan
Destek Ekibi
- Katılım
- 10 Mar 2021
- Mesajlar
- 1,513
- Çözümler
- 285
- Aldığı beğeni
- 1,646
- Excel V
- Office 365 TR
evet yapılabilir ancak sayfaya ulamamız gerekiyor. bunu ya selenium kütüphanesini kullanarak (önerim bu) yada internet explorer üzerinden yapılabilir. web kazıma yada vba scarping yazıp araştırın
mozuer
Destek Ekibi
- Katılım
- 7 Haz 2022
- Mesajlar
- 263
- Çözümler
- 87
- Aldığı beğeni
- 362
- Excel V
- Office 2019 TR
1.Yöntem Excel dosyasının url si belliyse direk indirilebilir
2. Yöntem İndirme butonunun ID biliniyorsa
2. Yöntem İndirme butonunun ID biliniyorsa
Kod:
Option Explicit
#If VBA7 Then
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
#Else
Private Declare 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
#End If
Sub GetEndxURL()
Dim strURL As String,excFile As String
Dim lngRetVal As Long
strURL = "https://..........." 'Excel dosyanızın URL si
excFile="C:/.....ExcelFileName.xls" 'Excel dosyanızın kaydedileceği yol ve yeni adı
lngRetVal = URLDownloadToFile(0, strURL, excFile, 0, 0)
End Sub
Sub ClickWebButton()
Dim oIE As InternetExplorer
Dim oHDoc As HTMLDocument
Dim Web_URL As String
Web_URL="....." 'Site url si
Set oIE = New InternetExplorer
With oIE
.Visible = False
.Navigate Web_URL
End With
Do While oIE.Busy = True Or oIE.ReadyState <> 4
DoEvents
Loop
Set oHDoc = oIE.Document
With oHDoc
.getElementById("Burada buton id yazılacak").Click 'İndirme butonunun id ini bulmanız lazım(web sayfayı incele ile)
End With
oIE.Quit
Set oIE = Nothing
Set oHDoc = Nothing
End Sub
Çözüm
Teşekkürler.
- Durum