Ben şifreyle girilen bir internet sitesinden excelle veri almak istiyorum. Şifreyle girdiğim bir web sayfası var. Oradaki listeleri bir excel sayfasına otomatik aktarma ve otomatik güncelleme yapmak istiyorum. Bunu nasıl yapabilirim.
hocam elinize sağlık, ben aynısını yaptım sadece 1-Sayfa2 L1 deki eposta verisini sayfa3'e kaydetmiyor ve her sorguda bir ileri sütuna atıyor (Z1 gibi) bunları nasıl çözebilirim ?
hocam benim bir konuda yardımınıza ihtiyacım vardır.. Market sektöründeyim.. Hal kayıt sitesinden günlük haftalık neyse Künye yolluyoruz manavlar için... Pdf formatında gelen künyeyi excelde şablon yapılıp ismi bul aynısı ise kare kod ve diğer bilgileri şablona otomaatik veri aktarımı yapabilirmiyiz.
Hocam elinize dilinize sağlık. Hocam bir sorun var. Webden veri al bölümünde bazı siteler engel koyuyor. Yani veri al dediğimizde "Access denied Error code 1020 You do not have access to " şeklinde bir uyarı çıkıyor. Bu durumda ne yapmamız gerekiyor bilgi verebilir misiniz?
iyi günler. Komut dizisi hatasını nasıl devre dışı bırakabiliriz. 10 dan fazla hata veririyordu. İE ayarlarını yaptıktan sonra 1 adet kaldı onu geçmenin bir yolu var mı ?
elimde 5bin adet ürün ismi var bu ürün isimlerinin görsel url lerini teker teker eklemem gerekiyor bunun kolay bir yolu var mı ? yani isimleri kullanarak görsellerin url lerini toplu olarak toplayabilir miyim
hocam elinize sağlık çok güzel olmuş, sizi yeni keşfettim daha çok dersinizi izleyeceğim sanırsam :) bu programı da yaptım çalışıyor ancak 183 siteden mail aldıktan sonra excel donuyor ve çalışmıyor sebebi nedir sizce
merhaba veri alacagım veb sitesinin adresini girdiğimde aldıgı veri üye girişi yap olan anasayfa olarak geliyor böyle bir durumda nasıl veri aktarımı yapabiliriz
online borsa takibi web sayfası varmı ve excele ordan alış satış vebenzeri uygulamaları nasıl çekiyoruz. excel sayfası açıkken onlaine veri çekimi yapabiliyormuyuz.yaptığınız excel çalışması çok güzel elinize sağlık. böle çalışmaların devaını temenni ediyorum
elinize yüreğinize sağlık, bilginiz dışında güzel anlatımınız güzel Türkçeniz içinde canı gönülden nerdeyse nefes almadan sizi izledim hocam çok teşekkür ederim . peki internet adresi belli olmayan bir firma ismini aratıp firmayı buldurup onun mail adresini alabilirmiyiz
@@Excel_Puf_Noktalari hocam ben video yardımıyla yaptım. Ancak excel makroyu çalıştırıp mail adreslerini seçme aşamasında "yanıt vermiyor" uyarısıyla kapanıyor. nedeni ve çözümü ne olabilir? aynı şekilde mali tabloları almak için bir video hazırlamayı düşünür müsünüz ? ;)
Merhabalar, Kullanıcı adı ve Şifre ile giriş yaptığımız "yds.csb.gov.tr/pages/login" sayfasındaki tabloları da veri olarak alabilir miyiz? Yöntemi nedir?
Aşagidaki gibi yaptım ama mail adresi bulamıyor yardımcı olurmusunuz. teşekkürler Sub web_mail_alma() On Error Resume Next Dim adresler As String For i = 1 To 300 adresler = Sheets("Sayfa1").Range("A" & İ).Value Sheets("Sayfa2").Select Range("Al").Select With Selection.QueryTable
merhaba trendyol ve n11 çalışmıyor nerede hatavar yardımcı olursanız sevinirim teşekkür ederim Sub Web_Veri_Çekme() For i = 3 To 10500 Dim request As Object Dim response As String Dim html As New HTMLDocument Dim website As String Dim tutar As Variant Dim Line, N11 As String Dim ie As Object, meta As Object, k As Integer, basla As Single website = Sheets("veri").Range("E" & i) Set request = CreateObject("MSXML2.XMLHTTP") request.Open "GET", website, False request.setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GTM" request.send response = StrConv(request.responseBody, vbUnicode) html.body.innerHTML = response 'hepsiburada için çalışıyor If Sheets("veri").Range("E" & i).Value Like "*hepsiburada*" Then tutar = html.getElementsByClassName("price")(0).innerText Sheets("veri").Range("F" & i).Value = Trim(Replace(Replace(tutar, " (Adet )", ""), "TL", "")) Sleep 300 'amazon için çalışıyor ElseIf Sheets("veri").Range("E" & i).Value Like "*amazon*" Then tutar = html.getElementsByClassName("a-offscreen").Item(0).innerText Sheets("veri").Range("F" & i).Value = Trim(Replace(Replace(tutar, " (Adet )", ""), "TL", "")) Sleep 300 'n11 için çalışıyor ElseIf Sheets("veri").Range("E" & i).Value Like "*n11*" Then Shell "taskkill /f /im iexplore.exe" basla = Timer: While (Timer - basla) < 4: Wend Line = "Madeleb 40 " N11 = Sheets("veri").Range("E" & i) With CreateObject("InternetExplorer.Application") .Visible = False .navigate N11 While .Busy Or .readyState < 1: DoEvents: Wend Set meta = .document.getElementsByClassName("content ")(0) Sleep 300 Sheets("veri").Range("F" & i).Value = Trim(Replace(meta.getElementsByTagName("ins")(0).innerText, "TL", "")) End With 'trendyol için çalışıyor ElseIf Sheets("veri").Range("E" & i).Value Like "*trendyol*" Then Shell "taskkill /f /im iexplore.exe" basla = Timer: While (Timer - basla) < 4: Wend Line = "Madeleb 40 " N11 = Sheets("veri").Range("E" & i) With CreateObject("InternetExplorer.Application") .Visible = False .navigate N11 While .Busy Or .readyState < 1: DoEvents: Wend Set meta = .document.getElementsByClassName("product-detail-container")(0) Sleep 300 Sheets("veri").Range("F" & i).Value = Trim(Replace(meta.getElementsByClassName("prc-dsc")(0).innerText, "TL", "")) End With End If On Error Resume Next Next End Sub
Hocam excel ile tanışalı çok uzun zaman olmadı ama, her geçen gün hayranlığım artıyor...Çalışmanızda gayet güzel olmuş, elinize sağlık.
Paylaşım için teşekkür ederim. İlan sitelerinden veri toplayıp bölgesel olarak değerlendirmek müthiş bir iş olur.
Ben şifreyle girilen bir internet sitesinden excelle veri almak istiyorum. Şifreyle girdiğim bir web sayfası var. Oradaki listeleri bir excel sayfasına otomatik aktarma ve otomatik güncelleme yapmak istiyorum.
Bunu nasıl yapabilirim.
eline sağlık kardeş ...Örnek de uygulama da mükemmel olmuş... Eline sağlık...
hocam elinize sağlık, ben aynısını yaptım sadece
1-Sayfa2 L1 deki eposta verisini sayfa3'e kaydetmiyor ve her sorguda bir ileri sütuna atıyor (Z1 gibi) bunları nasıl çözebilirim ?
valla helal olsun şapka çıkarıyorum
Merhabalar MacBook Air M1 Chip kullanıcısıyım Excel tam sürüm mevcut İnternetten veri alma işlemini bu cihazdan da yapabilir miyim ?
hocam benim bir konuda yardımınıza ihtiyacım vardır.. Market sektöründeyim.. Hal kayıt sitesinden günlük haftalık neyse Künye yolluyoruz manavlar için... Pdf formatında gelen künyeyi excelde şablon yapılıp ismi bul aynısı ise kare kod ve diğer bilgileri şablona otomaatik veri aktarımı yapabilirmiyiz.
Hocam elinize dilinize sağlık. Hocam bir sorun var. Webden veri al bölümünde bazı siteler engel koyuyor. Yani veri al dediğimizde "Access denied Error code 1020 You do not have access to " şeklinde bir uyarı çıkıyor. Bu durumda ne yapmamız gerekiyor bilgi verebilir misiniz?
Muazzam bir anlatım elinize sağlık hocam
iyi günler. Komut dizisi hatasını nasıl devre dışı bırakabiliriz. 10 dan fazla hata veririyordu. İE ayarlarını yaptıktan sonra 1 adet kaldı onu geçmenin bir yolu var mı ?
elimde 5bin adet ürün ismi var
bu ürün isimlerinin görsel url lerini teker teker eklemem gerekiyor
bunun kolay bir yolu var mı ?
yani isimleri kullanarak görsellerin url lerini toplu olarak toplayabilir miyim
Dosyayı kenan633@yahoo.com adresine yollayın. Bakıp size dönerim.
Merhaba, bilgi için teşekkürler. bu hazırladığınız excel dosyasını alma imkanım varmı? bir yere yüklerseniz indirebilirim. şimdiden teşekkür ederim.
Hocam tüm borsalardan excele ayni anda veri ceksek bununla ilgili bideo duzenleyebilirmisiniz ?
hocam elinize sağlık çok güzel olmuş, sizi yeni keşfettim daha çok dersinizi izleyeceğim sanırsam :) bu programı da yaptım çalışıyor ancak 183 siteden mail aldıktan sonra excel donuyor ve çalışmıyor sebebi nedir sizce
Soldan dizili sayilari yukardan asagiya nasil sıralariz
merhaba veri alacagım veb sitesinin adresini girdiğimde aldıgı veri üye girişi yap olan anasayfa olarak geliyor böyle bir durumda nasıl veri aktarımı yapabiliriz
python ile bu işlemleri daha kolay yapabilirsiniz.
online borsa takibi web sayfası varmı ve excele ordan alış satış vebenzeri uygulamaları nasıl çekiyoruz. excel sayfası açıkken onlaine veri çekimi yapabiliyormuyuz.yaptığınız excel çalışması çok güzel elinize sağlık. böle çalışmaların devaını temenni ediyorum
Bende merak ediyorum
elinize yüreğinize sağlık, bilginiz dışında güzel anlatımınız güzel Türkçeniz içinde canı gönülden nerdeyse nefes almadan sizi izledim hocam çok teşekkür ederim
.
peki internet adresi belli olmayan bir firma ismini aratıp firmayı buldurup onun mail adresini alabilirmiyiz
resimleride çekebiliyormuyuz excele
Harikasınız üstad
SİTEDEN VERİ ALMAK İSTİYORUM YARDIMCI OLUR MUSUN ÜCRETLİ DE OLABİLİR
Kullanıcı adı, Şifre ve güvenlik kodu (harf-rakam) ile girilen bir sayfa olması halinde nasıl bir yöntem belirlenecek?
Mali tablolara aynı şekilde ulaşabilmemiz mümkün mü ? Çok teşekkürler paylaşımınız için 👏🏻👏🏻
Mümkündür. Tr.investing sitesinden bu şekilde veri çekiyorum.
Kenan Çılman Excel Eğitimleri teşekkür ederim deneycğim ;) 👏🏻
@@Excel_Puf_Noktalari hocam ben video yardımıyla yaptım. Ancak excel makroyu çalıştırıp mail adreslerini seçme aşamasında "yanıt vermiyor" uyarısıyla kapanıyor. nedeni ve çözümü ne olabilir? aynı şekilde mali tabloları almak için bir video hazırlamayı düşünür müsünüz ? ;)
hocam sitedeki id veya class olmayan sadece tag olan(tr,td vb.)nasıl alabiliriz.
Merhabalar, Kullanıcı adı ve Şifre ile giriş yaptığımız "yds.csb.gov.tr/pages/login" sayfasındaki tabloları da veri olarak alabilir miyiz? Yöntemi nedir?
Aşagidaki gibi yaptım ama mail adresi bulamıyor yardımcı olurmusunuz. teşekkürler
Sub web_mail_alma()
On Error Resume Next
Dim adresler As String
For i = 1 To 300
adresler = Sheets("Sayfa1").Range("A" & İ).Value
Sheets("Sayfa2").Select
Range("Al").Select
With Selection.QueryTable
.Connection = "URL;" & adresler
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Range("L1").Copy
Sheets("Sayfa3").Select
Range("5000").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.StatusBar = i & " - " & adresler
ThisWorkbook.Save
Next i
End Sub
merhaba trendyol ve n11 çalışmıyor nerede hatavar yardımcı olursanız sevinirim teşekkür ederim
Sub Web_Veri_Çekme()
For i = 3 To 10500
Dim request As Object
Dim response As String
Dim html As New HTMLDocument
Dim website As String
Dim tutar As Variant
Dim Line, N11 As String
Dim ie As Object, meta As Object, k As Integer, basla As Single
website = Sheets("veri").Range("E" & i)
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GTM"
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
'hepsiburada için çalışıyor
If Sheets("veri").Range("E" & i).Value Like "*hepsiburada*" Then
tutar = html.getElementsByClassName("price")(0).innerText
Sheets("veri").Range("F" & i).Value = Trim(Replace(Replace(tutar, " (Adet )", ""), "TL", ""))
Sleep 300
'amazon için çalışıyor
ElseIf Sheets("veri").Range("E" & i).Value Like "*amazon*" Then
tutar = html.getElementsByClassName("a-offscreen").Item(0).innerText
Sheets("veri").Range("F" & i).Value = Trim(Replace(Replace(tutar, " (Adet )", ""), "TL", ""))
Sleep 300
'n11 için çalışıyor
ElseIf Sheets("veri").Range("E" & i).Value Like "*n11*" Then
Shell "taskkill /f /im iexplore.exe"
basla = Timer: While (Timer - basla) < 4: Wend
Line = "Madeleb 40 "
N11 = Sheets("veri").Range("E" & i)
With CreateObject("InternetExplorer.Application")
.Visible = False
.navigate N11
While .Busy Or .readyState < 1: DoEvents: Wend
Set meta = .document.getElementsByClassName("content ")(0)
Sleep 300
Sheets("veri").Range("F" & i).Value = Trim(Replace(meta.getElementsByTagName("ins")(0).innerText, "TL", ""))
End With
'trendyol için çalışıyor
ElseIf Sheets("veri").Range("E" & i).Value Like "*trendyol*" Then
Shell "taskkill /f /im iexplore.exe"
basla = Timer: While (Timer - basla) < 4: Wend
Line = "Madeleb 40 "
N11 = Sheets("veri").Range("E" & i)
With CreateObject("InternetExplorer.Application")
.Visible = False
.navigate N11
While .Busy Or .readyState < 1: DoEvents: Wend
Set meta = .document.getElementsByClassName("product-detail-container")(0)
Sleep 300
Sheets("veri").Range("F" & i).Value = Trim(Replace(meta.getElementsByClassName("prc-dsc")(0).innerText, "TL", ""))
End With
End If
On Error Resume Next
Next
End Sub