Html kodu satır satır almak

[sadece_erhan]

Merhaba,
uyumluluk görünümünde İnternet Explorer 8 ile aşağıdaki kodu kullanarak Html kodu satır satır alabiliyordum ama artık bazı siteler ie8 ile görüntülenemiyor dolayısıya ie 11 kurmak durumunda kaldım. ie 11 kurunca da kod çalışmadı, sadece ilk hücreye tüm html kodu yazıyor satır satır hücrelere yazmıyor. Kod aşağıda

Dim html As htmldocument
Set html = ie.document
Dim veri As String
veri = html.DocumentElement.innerHTML
Dim satirim As Variant
satirim = Split(veri, vbCrLf)
For k = 0 To UBound(satirim)
Cells(k + 1, 1) = satirim(k)
Next

yukarıdaki kodda sanırım ie11 ile problem vbCrLf karakterlerini algılamıyor,

satirim = Split(veri, Environment.NewLine)

kullandım o da tek satıra yazdırdı

satirim = Split(veri, "/r/n")

kullandım o da tek satıra yazdırdı


sadece VbLf kullandığımda satır satır yazdırıyor ama onda da satır başlarında çok boşluk oluyor.




ie11 ile çalışan HTML kodu a1 den başlayarak satır satır hücrelere yazdıracak bir kod gerekli, yardımcı olabilir misiniz?

 

[askm]

Referancelerden MicrosoftHTML Object Library işaretleyip deneyin.