Share via

How to insert web source into Excel?

Anonymous
2018-06-07T14:16:51+00:00

Referring to following link, I have tried to insert following link into Excel without luck, and would like to know on any other approach to do that.

Does anyone have any suggestions?

Thanks in advance for any suggestions

http://www.weather.gov.hk/cis/dailyElement\_e.htm?ele=MSLP&y=1935

Microsoft 365 and Office | Excel | For home | Windows

Locked Question. This question was migrated from the Microsoft Support Community. You can vote on whether it's helpful, but you can't add comments or replies or follow the question.

0 comments No comments

5 answers

Sort by: Most helpful
  1. Anonymous
    2018-06-07T16:50:50+00:00

    My suggestion in that case is to search the internet using the following search string

    "excel vba import content from web site"

    OR in Excel. . . .Data>From Web

    Gord

    Was this answer helpful?

    0 comments No comments
  2. Anonymous
    2018-06-07T16:19:36+00:00

    Sorry for the brief description, I need to reword my statement, I would like to use macro to load URL and insert content of web page into Excel, not clicking on link.

    Do you have any suggestions?

    Thank you very much for any suggestions (^v^)

    Was this answer helpful?

    0 comments No comments
  3. Anonymous
    2018-06-07T16:06:28+00:00

    Do not alter the macro

    Copy the url just as you show in your first post.

    Paste into B2. . . .select B2. . . . .run the macro then click on the newly created hyperlink and see Hong Kong 1935 weather stats

    Gord

    Was this answer helpful?

    0 comments No comments
  4. Anonymous
    2018-06-07T15:24:45+00:00

    If I place URL in Cell B2, could you please describe more on where to place URL within your coding?

    Do you have any suggestions?

    Thank you very much for any suggestions (^v^)

    Was this answer helpful?

    0 comments No comments
  5. Anonymous
    2018-06-07T14:45:28+00:00

    Copy the string you show then paste into a cell in Excel.

    Select that cell then run this macro.

    Sub MakeHyperlinks()

    'David McRitchie

    Dim Cell As Range

    On Error GoTo endit

        For Each Cell In Intersect(Selection, _

                Selection.SpecialCells(xlConstants, xlTextValues))

            With Worksheets(1)

                .Hyperlinks.Add Anchor:=Cell, _

                        Address:=Cell.Value, _

                        ScreenTip:=Cell.Value, _

                        TextToDisplay:=Cell.Value

            End With

        Next Cell

        Exit Sub

    endit:

        MsgBox "not text"

    End Sub

    Gord

    Was this answer helpful?

    0 comments No comments