to vazne chcete txt source stranky?? a nie len niektore udaje z tej stranky? .... lebo take tu uz bolo asi 5x riesenecitovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Uložení souboru z webu (IE do TXT).
MS Excel
Téma: Uložení souboru z webu (IE do TXT). 
Zaslal/a Martin K. 13.3.2014 8:19
Zdravím pánové,
mohu jen poprosit o menčí pomoc. Chtěl bych uložit otevřenou stránku z IE do souboru TXT. Vše šlape, až na to uložení. Zkouošel jsem všechno možné co jsem na netu našel a stále dokola mi to píše chybu:
Object doesn´t support this property of method.
Sub soubor()
Rem Reference to "Microsoft Internet Controls" is being used.
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.Visible = True
.navigate "odkaz"
Do Until .readyState = 4
DoEvents
Loop
.SaveAs ("D:\test.txt")
objIE.Quit
End With
Set objIE = Nothing
End Sub
Můžete poradit co dělám špatně nebo kde je chyba ?
No je to blbé, ale je to tak.
Jsou to firemní stránky, ze speciálního programu, který se generují na intranetu. Výsledek je txt soubor a ten si pak jednoduše převedu do excelu.
Jen jsem do teď musel generovat ten soubor ručně, teď jsem přišel na toto, ale nemohu přijít na to zatracení uložení souboru.
Jinak to vše funguje perfektně.citovat
Jsou to firemní stránky, ze speciálního programu, který se generují na intranetu. Výsledek je txt soubor a ten si pak jednoduše převedu do excelu.
Jen jsem do teď musel generovat ten soubor ručně, teď jsem přišel na toto, ale nemohu přijít na to zatracení uložení souboru.
Jinak to vše funguje perfektně.citovat
Sub Open_Webpage()
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate "www.google.com"
Do While ie.busy
DoEvents
Loop
MsgBox CStr(ie.Document.Body.innerhtml)
ie.Quit
End Subcitovat
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate "www.google.com"
Do While ie.busy
DoEvents
Loop
MsgBox CStr(ie.Document.Body.innerhtml)
ie.Quit
End Subcitovat
Tak teď nechápu, zkoušel jsem to, ale to nic neuloží ? Zobrazíš jen zprávu s tím textem, to mi nepomůže.
Já potřebuji ten web uložit, v IE stačí dát ulož jako a ono to hned nabídne uložení jako něco.txt soubor. Jenže nejde mi to udělat automaticky přes makro
.citovat
Já potřebuji ten web uložit, v IE stačí dát ulož jako a ono to hned nabídne uložení jako něco.txt soubor. Jenže nejde mi to udělat automaticky přes makro
.citovatzamiesto:
.SaveAs ("D:\test.txt")
napiste:
.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DONTPROMPTUSER, "test.txt"citovat
.SaveAs ("D:\test.txt")
napiste:
.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DONTPROMPTUSER, "test.txt"citovat
Taky nejde, i když tohle je aspoň něco co jsem určitě nezkoušel, tak možná se aspoň blížím k cíli.
Píše to chybu viz. obrázek.citovat
Píše to chybu viz. obrázek.citovat
18283_hlaska.jpg
som si myslel ze nebude treba referenciu ale trebaju tam prikladam subor
dal som tam dva sposoby
dal som tam dva sposoby
Příloha: 
18285_ie.zip (13kB, staženo 30x)
citovat18285_ie.zip (13kB, staženo 30x)A MÁŠ MÉ VELIKÉ DÍKY.
Tak ten druhý příklad bylo přesně to co jsem potřeboval. Funguje 100 procentně. Sice jsem tam pozměnil pár věcí, ale to je možná tím jak to mám já psané. Nejsem moc profesionál, ale vzhledem k tomu jaký sem amatér, to asi nebude tak zlé na mě. Ovšem občas jsem v koncích a pak díky bohu za tohle fórum.
Přesně jak to mám psané a proč:
Sub test ()
Dim Shell, DesktopPath
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
ChDir DesktopPath
Tohle tam je kvůli správné cestě.
Dim objIE As Object
Set fs = CreateObject("Scripting.FileSystemObject")
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.Visible = True
.navigate "vlastní odkaz"
Do Until .readyState = 4
DoEvents
Loop
Set a = fs.CreateTextFile("\soubor.txt", True)- uloží se na plochu
a.WriteLine (.Document.Body.innerhtml)
a.Close
objIE.Quit
End With
Respektivě to je jen část kódu, ono to samozřejmě pokračuje...
Každopádně ještě jednou moc děkuji za pomoc.citovat
Tak ten druhý příklad bylo přesně to co jsem potřeboval. Funguje 100 procentně. Sice jsem tam pozměnil pár věcí, ale to je možná tím jak to mám já psané. Nejsem moc profesionál, ale vzhledem k tomu jaký sem amatér, to asi nebude tak zlé na mě. Ovšem občas jsem v koncích a pak díky bohu za tohle fórum.
Přesně jak to mám psané a proč:
Sub test ()
Dim Shell, DesktopPath
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
ChDir DesktopPath
Tohle tam je kvůli správné cestě.
Dim objIE As Object
Set fs = CreateObject("Scripting.FileSystemObject")
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.Visible = True
.navigate "vlastní odkaz"
Do Until .readyState = 4
DoEvents
Loop
Set a = fs.CreateTextFile("\soubor.txt", True)- uloží se na plochu
a.WriteLine (.Document.Body.innerhtml)
a.Close
objIE.Quit
End With
Respektivě to je jen část kódu, ono to samozřejmě pokračuje...
Každopádně ještě jednou moc děkuji za pomoc.citovat
Zdravím,
tak jsem zjistil, že to na mém PC funguje, ale nikomu jinému na PC to nejde. A vůbec nechápu proč. Viditelně je problém tady: (obr.-3)
Do Until .readyState = 4
DoEvents
Loop
-> změněno na tohle, u mě šlape, na jíném PC jde, ale divně. Při krokování to hodí hlášku, jinak se to tváří, jako že to jde a chybu to hodí dál. Ovšem v druhé tabulce to chybu hodí rovnou... (obr.-4)
Do While objIE.busy
DoEvents
Loop
Druhý problém je v tomto, pokud se mi povede to změnou vyřešit to nad tím, tak skončím hned na dalším :
Set a = fs.CreateTextFile("\soubor.txt", True)
a.WriteLine (.Document.Body.innerhtml)
a.Close
A tohle taky, u mě normálně šlape. Na jiném to píše chybu hned na prvním řádku (obr.-1). Tu jde opravit, pokud změním na ..\Desktom\soubor.txt. Ovšem pak to hodí chybu (obr.-2) hned na dalším řádku a tady jsem v koncích.
No katastrofa a vůbec si s tím nevím rady a ani kolegové. Je to možná v nastavení, ale jak přijít na to kde ? Přikládám ještě obrázek všech hlášek.citovat
tak jsem zjistil, že to na mém PC funguje, ale nikomu jinému na PC to nejde. A vůbec nechápu proč. Viditelně je problém tady: (obr.-3)
Do Until .readyState = 4
DoEvents
Loop
-> změněno na tohle, u mě šlape, na jíném PC jde, ale divně. Při krokování to hodí hlášku, jinak se to tváří, jako že to jde a chybu to hodí dál. Ovšem v druhé tabulce to chybu hodí rovnou... (obr.-4)
Do While objIE.busy
DoEvents
Loop
Druhý problém je v tomto, pokud se mi povede to změnou vyřešit to nad tím, tak skončím hned na dalším :
Set a = fs.CreateTextFile("\soubor.txt", True)
a.WriteLine (.Document.Body.innerhtml)
a.Close
A tohle taky, u mě normálně šlape. Na jiném to píše chybu hned na prvním řádku (obr.-1). Tu jde opravit, pokud změním na ..\Desktom\soubor.txt. Ovšem pak to hodí chybu (obr.-2) hned na dalším řádku a tady jsem v koncích.
No katastrofa a vůbec si s tím nevím rady a ani kolegové. Je to možná v nastavení, ale jak přijít na to kde ? Přikládám ještě obrázek všech hlášek.citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články