Sayfadaki HTMLSelect1 nesnesindeki veri excele yazdirma

[ASMET67]

Selamlar sayfada bulunan 12 adet herbiri 1000 satirdan oluşan verileri excel sayfasına nasıl aktarabilirim.

 

[veyselemre]

Sub dene()
  a = Split(Sheets("Sheet2").HTMLSelect1.DisplayValues, ";")
 Cells(1, 1).Resize(UBound(a), 1).Value = WorksheetFunction.Transpose(a)
End Sub