Makro Spletna poizvedba in php strani
Makro Spletna poizvedba in php strani
Pozdravljen Matjaž,
V Excelu sem do sedaj na strani EEX uporabljal spletno poizvedbo in podatke v excelu z makrojem razvrstil po lastnih potrebah…pred nekaj dnevi pa so stran spremenili iz ASP platforme in PHP, medtem ko je oblika ostala enaka.
Pojavil se je problem in sicer ko hočem uvoziti katerokoli tabelo iz spodnje strani mi Excel javi napako ("A semi colon character was expected") in mi uvozi samo Html kodo…v čem je problem oz. kako je ta problem rešljiv da bi prišel v Excelu do podatkov iz te strani. Spodaj prilagam še link do strani.
http://www.eex.de/index.php?session=3c9 ... 0xNiI7fQ==
Hvala za pomoč
BoSko
V Excelu sem do sedaj na strani EEX uporabljal spletno poizvedbo in podatke v excelu z makrojem razvrstil po lastnih potrebah…pred nekaj dnevi pa so stran spremenili iz ASP platforme in PHP, medtem ko je oblika ostala enaka.
Pojavil se je problem in sicer ko hočem uvoziti katerokoli tabelo iz spodnje strani mi Excel javi napako ("A semi colon character was expected") in mi uvozi samo Html kodo…v čem je problem oz. kako je ta problem rešljiv da bi prišel v Excelu do podatkov iz te strani. Spodaj prilagam še link do strani.
http://www.eex.de/index.php?session=3c9 ... 0xNiI7fQ==
Hvala za pomoč
BoSko
Re: Makro Spletna poizvedba in php strani
Pozdravljeni,
Na kakšen način pa uvažate tabele? Kaj točno naredite v Excelu?boskomajc napisal/-a:Pojavil se je problem in sicer ko hočem uvoziti katerokoli tabelo iz spodnje strani mi Excel...
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Pozdravljeni,
grem (oz. makro zažene) Podatki/UvoziZunanjePodatke/NovaSpletnaPoizvedba ..... odkljukam katere tabele iz te strani naj bi mi ovozilo....in to je to, kar je prej delovalo..zdaj pa ne...ali je še kaki drugi način, naprimer da bi jemal podatke direktno iz internetne stran?
Hvala za odgovor
grem (oz. makro zažene) Podatki/UvoziZunanjePodatke/NovaSpletnaPoizvedba ..... odkljukam katere tabele iz te strani naj bi mi ovozilo....in to je to, kar je prej delovalo..zdaj pa ne...ali je še kaki drugi način, naprimer da bi jemal podatke direktno iz internetne stran?
Hvala za odgovor
Makro ne deluje
Lep pozdrav Matjaz,
hvala za odgovor...našel sem problem pri meni in sicer, problem je tičal v verziji Excela, jaz sem imel 2002 in ko sem naložil 2003 pa je poizvodba špilala brez problema...no skoraj brez...lahko naredim poizvedbo in medtem tudi snemam makro...posname mi spodnji makro...ampak problem je ko hočem zagnat ta makro ponovno, mi javi napako kao "neveljavna spletna poizvedba" in zdaj vprašanje: Kako je lahko norobna poizvedba če pa je Excel sam napisal makro zanjo? Nič mi ni jasno....
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.eex.de/index.php?session=c86 ... 0yMSI7fQ==" _
, Destination:=ActiveSheet.Range("A1"))
.Name = _
"poizvedba"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "10,13,15"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
hvala za odgovor...našel sem problem pri meni in sicer, problem je tičal v verziji Excela, jaz sem imel 2002 in ko sem naložil 2003 pa je poizvodba špilala brez problema...no skoraj brez...lahko naredim poizvedbo in medtem tudi snemam makro...posname mi spodnji makro...ampak problem je ko hočem zagnat ta makro ponovno, mi javi napako kao "neveljavna spletna poizvedba" in zdaj vprašanje: Kako je lahko norobna poizvedba če pa je Excel sam napisal makro zanjo? Nič mi ni jasno....
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.eex.de/index.php?session=c86 ... 0yMSI7fQ==" _
, Destination:=ActiveSheet.Range("A1"))
.Name = _
"poizvedba"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "10,13,15"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Pozdravljeni,
Očitno VBA zmede URL, saj sicer vse deluje OK. Zmede ga niz znakov "params[5][1]", tako da bi bilo moje priporočilo, da poskusite ali lahko URL kako preoblikujete. Odgovora, zakaj ga to zmede pa vam ne znam dati.
Samo tolikor da se razumeva, kaj vam želim reči. Če namreč namesto celotnega URL-ja zapišete "URL;http://www.eex.de/index.php" bo vse delovalo OK. Tudi če zapišete še vse ostalo bo delovalao OK, vsedokler v url ne daste "[5][1]". A kot rečeno, ne vem zakaj je temu tako. Verjetno gre za kakšnega hrošča v Excelu.
Očitno VBA zmede URL, saj sicer vse deluje OK. Zmede ga niz znakov "params[5][1]", tako da bi bilo moje priporočilo, da poskusite ali lahko URL kako preoblikujete. Odgovora, zakaj ga to zmede pa vam ne znam dati.
Samo tolikor da se razumeva, kaj vam želim reči. Če namreč namesto celotnega URL-ja zapišete "URL;http://www.eex.de/index.php" bo vse delovalo OK. Tudi če zapišete še vse ostalo bo delovalao OK, vsedokler v url ne daste "[5][1]". A kot rečeno, ne vem zakaj je temu tako. Verjetno gre za kakšnega hrošča v Excelu.
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Pozdravljen Matjaž,
hvala za odgovor, tudi meni je bilo čudno da popizvedbe te povezave nisem mogel klicati iz makroja medtem ko pa je ročno šla brez problema...
...ker bi te podatke jaz rad dobival v Excel bolj kot ne avtomatično, imam vprašanje če bi lahko kakorkoli z makrojem iz VBA - Excela, naredil da bi odprl ta naslov in skopiral to stran v Excel (s pomočjo "OLE" mogoče, ne vem?) ?...oz. če imate kako drugo idejo kako dobiti to stan v Excel, ker je problem ,da bi se ta naslov dnevno spreminjal in vsak dan ni smotrno delati nove poizvedbe z slano drugim naslovom v Excelu....
Hvala
hvala za odgovor, tudi meni je bilo čudno da popizvedbe te povezave nisem mogel klicati iz makroja medtem ko pa je ročno šla brez problema...
...ker bi te podatke jaz rad dobival v Excel bolj kot ne avtomatično, imam vprašanje če bi lahko kakorkoli z makrojem iz VBA - Excela, naredil da bi odprl ta naslov in skopiral to stran v Excel (s pomočjo "OLE" mogoče, ne vem?) ?...oz. če imate kako drugo idejo kako dobiti to stan v Excel, ker je problem ,da bi se ta naslov dnevno spreminjal in vsak dan ni smotrno delati nove poizvedbe z slano drugim naslovom v Excelu....
Hvala
Pozdravljeni,
Ma ne smete obupati takoj ko nekaj ne gre. Če Excel ne pogoltne URL-ja v tekstu je potrebno poskusiti drugače .
V neko celico (npr. Aa1) vstavite hiperpovezavo (Vstavljanje/hiperpovezava) z vašo potjo (v najinem primeru tista celotna "klobasa"). Tako, sedaj imate v celici A1 povezavo do želene strani. To poveste še excelu in voila, stvar deluje!
Aha, kot rečeno, morate še to povedati Excelu, kar pomeni, da popravite makro:
' namesto tega
' napišete to
Ma ne smete obupati takoj ko nekaj ne gre. Če Excel ne pogoltne URL-ja v tekstu je potrebno poskusiti drugače .
V neko celico (npr. Aa1) vstavite hiperpovezavo (Vstavljanje/hiperpovezava) z vašo potjo (v najinem primeru tista celotna "klobasa"). Tako, sedaj imate v celici A1 povezavo do želene strani. To poveste še excelu in voila, stvar deluje!
Aha, kot rečeno, morate še to povedati Excelu, kar pomeni, da popravite makro:
' namesto tega
Koda: Izberi vse
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.eex.de/index.php?....", Destination:=ActiveSheet.Range("A1"))
Koda: Izberi vse
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & Range("aa1").Hyperlinks(1).Address, Destination:=ActiveSheet.Range("A1"))
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator