Trying to paste data from a website into excel into correct format

[Sundance_Kid]

Hi there,

I am trying to copy and paste the data from the below link into excel, in the same format as in the website.

I want to capture the Result Date and the Draw Result. I would like it in the same format, with each number under Draw Result being in a stand alone cell.

However, the numbers appear vertically and I want them to appear horizontally. I want to capture the full years details in one copy and paste motion.

Any ideas how I can do this?

Archived Results from the Daily Million Draws 2020

Archive of historical Daily Million Results for 2020

www.irishlottery.com

Thanks

 

[KOKOSEK]

I understand that you've got already some code which extract it. Issue is that it shows these numbers incorrectly. If you show your code it can be easier to fix it instead of writing full web scraping code.

 

[KOKOSEK]

Meantime...
This code:

Public Sub GetTable()
    Dim html As MSHTML.HTMLDocument, hTable As Object, ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set html = New MSHTML.HTMLDocument  
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", "https://www.irishlottery.com/daily-million-archive-2020", False
        .send
        html.body.innerHTML = .responseText
    End With
    Set hTable = html.getElementsByClassName("table lotto archiveTable")(0)
    Dim td As Object, tr As Object, th As Object, r As Long, c As Long, li As Object
    For Each tr In hTable.getElementsByTagName("tr")
        r = r + 1: c = 1
        For Each th In tr.getElementsByTagName("th")
            ws.Cells(r, c) = th.innerText
            c = c + 1
        Next
        For Each td In tr.getElementsByTagName("td")
            ball = 0
            For Each li In td.getElementsByTagName("li")
                ws.Cells(r, c + ball) = li.innerText
                ball = ball + 1
            Next
            c = c + 1
        Next
    Next
End Sub

gives this:

Book1
	A	B	C	D	E	F	G	H
1	Result Date:	Draw Result:
2
3	December 31st 2020 - 9:00pm	2	6	9	25	26	38	30
4	December 31st 2020 - 2:00pm	1	10	22	27	32	37	17
5	December 30th 2020 - 9:00pm	1	8	9	20	37	38	12
Sheet1

 

[Sundance_Kid]

I understand that you've got already some code which extract it. Issue is that it shows these numbers incorrectly. If you show your code it can be easier to fix it instead of writing full web scraping code.

Hey, many thanks for your reply.

I actually do not have any code I am using (well not intentionally). All I was literraly doing was highlighting the data in the website, right clicking, selecting copy and going into excel and basically right clicking and I am presented with two paste options - 1) Keep Source Formatting or 2) Match Destination Formatting.

There is also a paste special option but that just gives the option to paste as HTML, Unicode Text or Text.

So, I am trying to figure out is there a way to paste it in like you have in your second message and like I showed in my original message.

Thanks