Excel makro 2021_02

 WEB tartalom táblázatrész átvétele excel táblázattá

WEB táblázatok adatainak feldolgozása történhet excellel is. Ilyenkor általában a macro felvételt érdemes bekapcsolni, hogy a későbbi automatizmusokhoz legyen alapunk a finomításokhoz.

Adatok menű területről  WEBlapról műveletet kel elindítani. 

Meg kel adni a WEB címet:

https://www.erstemarket.hu/termekek

Táblázat megjelenítése WEB böngészőben:

Táblázat megjelenése excelben:

Beállítások excelben:

A felvett makró minta

Sub reszvenylista()
    ActiveWorkbook.Queries.Add Name:="Table 3", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Forrás = Web.Page(Web.Contents(""https://www.erstemarket.hu/termekek""))," & Chr(13) & "" & Chr(10) & "    Data2 = Forrás{2}[Data]," & Chr(13) & "" & Chr(10) & "    #""Típus módosítva"" = Table.TransformColumnTypes(Data2,{{""Megnevezés"", type text}, {""Deviza"", type text}, {""Utolsó ár"", type text}, {""Vált."", type text}, {""Vált.%"", type text}, {""Vételi ár"", type text}, {""Eladási ár"", type text}, {""Na" & _
        "pi min."", type text}, {""Napi max."", type text}, {""Forgalom"", type text}, {"""", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Típus módosítva"""
    ActiveWorkbook.Worksheets.Add
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=""Table 2"";Extended Properties=""""" _
        , Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdSql
        .CommandText = Array("SELECT * FROM [Table 2]")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "Table_2"
        .Refresh BackgroundQuery:=False
    End With
End Sub