VBA Code to Import Data from a Web Page into Excel

by

VBA Code:

' VBA Code to Import Data from a Web Page into Excel

Sub ImportDataFromWeb()
    Dim ws As Worksheet
    Dim url As String
    
    ' Set the worksheet to import the data
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' Replace with the name of your worksheet
    
    ' Specify the URL of the web page to import data from
    url = "https://www.example.com" ' Replace with the URL of your web page
    
    ' Clear the existing data in the worksheet
    ws.Cells.Clear
    
    ' Import the data from the web page
    With ws.QueryTables.Add(Connection:="URL;" & url, Destination:=ws.Range("A1"))
        .Name = "WebData"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    
    ' Format the imported data if needed
    
    ' Display a message
    MsgBox "Data has been imported from the web page."
End Sub

Check All VBA Codes

Join Our Telegram Group techguruplus telegram group Join Our WhatsApp Group techguruplus whatsapp group
Nazim Khan - Author Image

Nazim Khan (Author) 📞 +91 9536250020
[MBA in Finance]

Nazim Khan is an expert in Microsoft Excel. He teaches people how to use it better. He has been doing this for more than ten years. He is running this website (TechGuruPlus.com) and a YouTube channel called "Business Excel" since 2016. He shares useful tips from his own experiences to help others improve their Excel skills and careers.

Leave a Comment