Mikä vika on oheisen makron (tehty makron tallennuksella) ensimmäisessä rivissä ? (Lihavoitu)

Question

Macro is made by Excel when I tryed to take data from Internet with Office  2024 Pro Plus Excel.

-            new empty  Worksheet

-            record macro on

-            Macro 1 ok

-            Data from Internet

-            Url Address=[Moderator note: personal info removed]

-            OK

-            select Taulukko1 – looks OK

-            Load

-            record macro off

-            view macro

-            now the first row is red and it is not possible to execute the macro

It looks that there is error in Excel because it records macro that is not possible to execute.

I have tryed this with 2 PC’s, both with Windows 11 Home 25 H2.

Excel version is:

Microsoft® Excel® LTSC MSO (version 2408 Build 16.0.17932.20620) 64-bittinen

Tuotetunnus: [Moderator note: personal info removed]

Istunnon tunnus: 598460CA-A149-493C-88F1-23765950B2A0

I have done this before with Office 2019 Pro Plus and it worked. Idea of this is reading electricity prices from internet.

 

 

 

Sub Makro1()

'

' Makro1 Makro

'

'

    ActiveWorkbook.Queries.Add Name := "Taulukko 1", Formula := _

        "let"&chr(13)&""&chr(10)&"    Lähde = Web.BrowserContents(""[Moderator note: personal info removed]""),"&chr(13)&""&chr(10)&"    #""Poimittu taulukko HTML-koodista"" = Html.Table(Lähde, {{""Column1"", ""TABLE > * > TR > TH[colspan=""""2""""]:not([rowspan]):nth-child(1):nth-last-child(2), TABLE > * > TR > TD:not([colspan]):not([rowspan]):nth-child(1):nth-last-child(3)""}, {""Colu"& _

        "mn2"", ""TABLE > * > TR > TH[colspan=""""2""""]:not([rowspan]):nth-child(1):nth-last-child(2), TABLE > * > TR > TD:not([colspan]):not([rowspan]):nth-child(1):nth-last-child(3) + TD:not([colspan]):not([rowspan]):nth-child(2):nth-last-child(2)""}, {""Column3"", ""TABLE > * > TR > TH[colspan=""""2""""]:not([rowspan]):nth-child(1):nth-last-child(2) + TH[colspan=""""2""""& _

        ""]:not([rowspan]):nth-child(2):nth-last-child(1), TABLE > * > TR > TD:not([colspan]):not([rowspan]):nth-child(1):nth-last-child(3) + TD:not([colspan]):not([rowspan]):nth-child(2):nth-last-child(2) + TD[colspan=""""2""""]:not([rowspan]):nth-child(3):nth-last-child(1)""}, {""Column4"", ""TABLE > * > TR > TH[colspan=""""2""""]:not([rowspan]):nth-child(1):nth-last-child"& _

        "(2) + TH[colspan=""""2""""]:not([rowspan]):nth-child(2):nth-last-child(1), TABLE > * > TR > TD:not([colspan]):not([rowspan]):nth-child(1):nth-last-child(3) + TD:not([colspan]):not([rowspan]):nth-child(2):nth-last-child(2) + TD[colspan=""""2""""]:not([rowspan]):nth-child(3):nth-last-child(1)""}}, [RowSelector=""TABLE > * > TR""]),"&chr(13)&""&chr(10)&"    #""Ylennetyt otsikot"" = Table."& _

        "PromoteHeaders(#""Poimittu taulukko HTML-koodista"", [PromoteAllScalars=true]),"&chr(13)&""&chr(10)&"    #""Muutettu tyyppi"" = Table.TransformColumnTypes(#""Ylennetyt otsikot"",{{""Aika"", type date}, {""Aika_1"", type text}, {""Hinta c/kWh#(lf)            (sis. alv.)"", type number}, {""Hinta c/kWh#(lf)            (sis. alv.)_2"", type number}})"&chr(13)&""&chr(10)&"in"&chr(13)&""&chr(10)&"    #""Muutettu tyyppi"""

    ActiveWorkbook.Worksheets.Add

    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _

        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=""Taulukko 1"";Extended Properties=""""" _

        , Destination:=Range("$A$1")).QueryTable

        .CommandType = xlCmdSql

        .CommandText = Array("SELECT * FROM [Taulukko 1]")

        .RowNumbers = False

        .FillAdjacentFormulas = False

        .PreserveFormatting = True

        .RefreshOnFileOpen = False

        .BackgroundQuery = True

        .RefreshStyle = xlInsertDeleteCells

        .SavePassword = False

        .SaveData = True

        .AdjustColumnWidth = True

        .RefreshPeriod = 0

        .PreserveColumnInfo = True

        .ListObject.DisplayName = "Taulukko_1"

        .Refresh BackgroundQuery:=False

    End With

End Sub

Answer 1

Varoitus: Tämä viesti on käännetty automaattisesti, joten siinä saattaa olla pieniä sanamuotovirheitä. Tietojesi suojaamiseksi vältä henkilö- tai yritystietojen jakamista, sillä foorumi on julkinen. Lisäksi testausympäristömme käyttää englanninkielistä käyttöliittymää; kuvakaappaukset näytetään siis englanniksi. Kiitos ymmärryksestäsi!

Hyvä Eero Rasi,

Kiitos, että jaoit viestisi Microsoft Communityssä. Autamme sinua mielellämme.

Kuvauksen perusteella ongelmasi näyttää liittyvän virheelliseen VBA-syntaksiin, jonka Excelin makrotallennin on luonut Power Query -yhteyttä luotaessa.

Jos olen ymmärtänyt oikein, koska kategoriamme keskittyy Office 365 -tuotteisiin, huolenaiheesi liittyy enemmän Power Queryn makrotallenntimen luomaan mukautettuun VBA-koodiin kuin Microsoftin tarjoamaan Office 365 -toimintoon. Jotta saat ammattiapua ja vältät virheellisten tietojen antamisen meiltä, ​​suosittelemme, että jaat viestin Stack Overflow'ssa saadaksesi asiantuntija-apua. Tämä on erityinen kanava, joka liittyy enemmän VBA-kehitykseen ja Power Query -skriptaukseen.

Moderaattorina minulla on rajalliset resurssit ja huolenaiheet VBA-koodiongelmista, jotka ylittävät tämän yhteisön tarjoaman tuen. Stack Overflow -yhteisössä on pätevin vastaajaryhmä, ja muut kumppanit, jotka lukevat foorumeita säännöllisesti, voivat jakaa tietämystään tai oppia vuorovaikutuksestasi.

Huomautus: Microsoft tarjoaa nämä tiedot avuksesi. Microsoft ei hallinnoi näitä sivustoja. Microsoft ei voi antaa mitään takuita niillä olevien ohjelmistojen tai tietojen laadusta, turvallisuudesta tai sopivuudesta. Varmista, että ymmärrät täysin riskit, ennen kuin haet ehdotuksia yllä olevasta linkistä.

Pahoittelen, että ohjasin sinut toiseen yhteisöön. Lähettämäsi luokan jäsenet keskittyvät Microsoft 365 -käyttäjiin, joten saadakseni nopeampaa ja parempaa apua ohjasin sinut oikeaan paikkaan.

Arvostan kärsivällisyyttäsi ja ymmärrystäsi ja kiitos ajastasi ja yhteistyöstäsi.

---

Huomautus: Jos haluat vastaanottaa tähän keskusteluketjuun liittyviä sähköposti-ilmoituksia, ota sähköposti-ilmoitukset käyttöön noudattamalla dokumentaatiossamme olevia ohjeita.

Answer 2

Ongelma oli siinä, että kysely pitää tehdä Power-Query työkaluin eikä makroa talletamalla.

Answer 3

Alan pikku hiljaa ymmärtämään miten netin kanssa toimitaan ja mikä on Power-Query.
Yritys oli ensimmäinen Office 2024:n kanssa ja olin juuri saanut nettikyselyn toimimaan vastaavalla tavalla Office 2019:lla. Nyt olen jo paljon viisaampi.