[Yardım]  Fonksiyonla Çekilen Sayfa Kodunu Sütuna Yapıştırma

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Fonksiyonla Çekilen Sayfa Kodunu Sütuna Yapıştırma

İleti#1)  emreyigit » 06 Kas 2019 15:20

Merhabalar. Sayfanın kaynak kodlarını alan şöyle bir fonksiyon var.
Kod: Tümünü seç
Function GetSource(sURL As String) As String

Dim oXHTTP As Object

Set oXHTTP = CreateObject("MSXML2.XMLHTTP")
oXHTTP.Open "GET", sURL, False
oXHTTP.send
GetSource = oXHTTP.responsetext
Set oXHTTP = Nothing

End Function


Aşağıdaki şekilde alınan kodu tek bir hücreye yapıştırabiliyorum ancak, tek hücreye değil de satır satır "C" kolonuna yapıştırmak istiyorum. Bunu sağlamak mümkün müdür? Yardımlarınızı rica ediyorum.
Kod: Tümünü seç
Sub Tester()
Range("c1").Value = GetSource("https://www.yahoo.com/")
End Sub


Bu şekilde olmasını istiyorum.
wanted.png


Bu şekilde değil
unwanted.png
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
emreyigit
Yeni Başlamış
 
Kayıt: 12 Şub 2018 14:44
Meslek: Öğrenci
Yaş: 29
İleti: 40
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Avcılar

Cevap: Fonksiyonla Çekilen Sayfa Kodunu Sütuna Yapıştırma

İleti#2)  emreyigit » 06 Kas 2019 22:44

Yardım talebim günceldir.
Kullanıcı avatarı
emreyigit
Yeni Başlamış
 
Kayıt: 12 Şub 2018 14:44
Meslek: Öğrenci
Yaş: 29
İleti: 40
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Avcılar

Cevap: Fonksiyonla Çekilen Sayfa Kodunu Sütuna Yapıştırma

İleti#3)  Bülent » 07 Kas 2019 11:37

Merhaba,

Şu şekilde dener misiniz?

Kod: Tümünü seç
Function GetSource(sURL As String) As String

Dim oXHTTP As Object

Set oXHTTP = CreateObject("MSXML2.XMLHTTP")
oXHTTP.Open "GET", sURL, False
oXHTTP.send
GetSource = oXHTTP.responsetext
Set oXHTTP = Nothing

End Function

Sub verial()
Range("C1") = GetSource("https://www.yahoo.com/")
satir = Split(Range("C1").Value, vbLf)
For evn = LBound(satir) To UBound(satir)
        Range("C" & evn + 1).Value = satir(evn)
Next evn
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@ gmail.com)
Kullanıcı avatarı
Bülent
Yönetim Kurulu
 
Adı Soyadı:Bülent ÖZTÜRK
Kayıt: 15 Haz 2008 00:08
Meslek: Bilgi Sistemleri
Yaş: 43
İleti: 3650
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İst/Çekmeköy

Cevap: Fonksiyonla Çekilen Sayfa Kodunu Sütuna Yapıştırma

İleti#4)  emreyigit » 09 Kas 2019 13:05

Çok teşekkür ederim Bülent Bey, elinize sağlık.
Kullanıcı avatarı
emreyigit
Yeni Başlamış
 
Kayıt: 12 Şub 2018 14:44
Meslek: Öğrenci
Yaş: 29
İleti: 40
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Avcılar

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Yandex[Bot] ve 1 misafir

Bumerang - Yazarkafe