"Power Query" naudojimas "Excel for Mac"

"Excel", skirta "Mac", dabar palaiko "Power Query" naujinimą, skirtą vietiniams failams, taip pat užklausos kūrimą naudojant VBA. "Power Query" rengyklės kūrimo programa dar nepalaikoma.

"Power Query" užklausų atnaujinimas

Šiuo metu galite atnaujinti užklausas, kurios naudoja vietinius. TXT,. CSV,. XLSX,. XML arba. JSON failus kaip duomenų šaltinius. Tinklo šaltiniai, pvz., SQL serveris, dar nepalaikomi.

Nėra reikalingos specialios komandos – tiesiog spustelėkite duomenys > atnaujinti viskąarba naudoti bet kokį kitą norimą išorinį duomenų atnaujinimo būdą.

"Excel", skirtos "Mac", juostelės komanda resfresh All

VBA naudojimas kuriant "Power Query" užklausas

Nors "Power Query" rengyklėje kūrimo "Excel", skirtos "Mac", dar nėra, VBA palaiko "Power Query" kūrimą. Štai keli pagrindiniai kodai, kuriuos galite pritaikyti ir naudoti.

Užklausos kūrimas ir duomenų įkėlimas

Čia pateikiamas paprastas pavyzdys, kuris įtraukia užklausą, sukuriančią sąrašą su reikšmėmis nuo 1 iki 100.

Sub CreateSampleList()
    ActiveWorkbook.Queries.Add Name:="SampleList", Formula:= _
        "let" & vbCr & vbLf & _
            "Source = {1..100}," & vbCr & vbLf & _
            "ConvertedToTable = Table.FromList(Source, Splitter.SplitByNothing(), null, null, ExtraValues.Error)," & vbCr & vbLf & _
            "RenamedColumns = Table.RenameColumns(ConvertedToTable,{{""Column1"", ""ListValues""}})" & vbCr & vbLf & _
        "in" & vbCr & vbLf & _
            "RenamedColumns"
    ActiveWorkbook.Worksheets.Add
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=SampleList;Extended Properties=""""" _
        , Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdSql
        .CommandText = Array("SELECT * FROM [SampleList]")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "SampleList"
        .Refresh BackgroundQuery:=False
    End With
End Sub

Taip pat žr.

M užklausos kalba

Užklausos objektas

Objekto Workbook query

Pastaba:  Šis puslapis išverstas automatiškai, todėl gali būti gramatikos klaidų ar netikslumų. Mūsų tikslas – padaryti, kad šis turinys būtų jums naudingas. Prašome mus informuoti, ar radote reikiamos informacijos. Čia yra straipsnis anglų kalba, kuriuo galite pasinaudoti kaip nuoroda.

Tobulinkite savo „Office“ įgūdžius
Ieškoti mokymo
Pirmiausia gaukite naujų funkcijų
Prisijunkite prie „Office Insider“ dalyvių

Ar ši informacija buvo naudinga?

Dėkojame už jūsų atsiliepimus!

Dėkojame už jūsų atsiliepimą! Panašu, kad gali būti naudinga jus sujungti su vienu iš mūsų „Office“ palaikymo agentų.

×