MS Excel

Téma: data z webu

Zaslal/a fenix.one 14.7.2011 12:25

Dobrý den,
Potřeboval bych makro na provedení exportu dat z webu.Není možné použít klasické propojení,protože v dotazu je informace o datumu daného dne.proto je snadnější každý den nechat vytvořit nové propojení.
Děkuji za nápovědy a rady.

Zaslat odpověď >

Poki(14.7.2011 13:38)#005505

Zdravim,
jednou jsem neco podobneho potreboval - do jedne bunky jsem si ulozil datum (ve formatu, jak bylo uvedene v adrese internetove stranky, odkud jsem chtel tahat data) - adresu dotazu jsem navazal na onu bunku a potom jsem vzdy jen (makrem) nechal dotaz aktualizovat...
Je jen potreba vysledovat, jak se meni adresa stranky s datem...citovat

RomanNTA(19.7.2011 7:11)#005534

Pokud můžeš data z webu ovlivnit (děláš si stranu servru sám) pak můžeš využít běžný QueryTablesPrivate Sub loc_data_b(mesic As String)
With Worksheets(cWorkDBSheet)
.Activate
Cells.Delete
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://mujweb.com/reporty/index.php?id=5&mesic=" & mesic, Destination:=Range("A1"))
.Name = "DispB"
.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
End With
End Sub

Postup je zcela jednoduchý. Do URL adresy vložíš co potřebuješ. Pokud zadáváš datum přes prvek <input type="text" name="txt_dest"> pak nevím, zda je to z Excelu možné. Pokud to napsal amatér, pak by bylo řešením možná zkusit hodnotu z name vložit do URL. R.citovat

Téma: data z webu

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje