Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

ubacivanje html dokumenta i snimanje svih otvorenih

[es] :: Office :: Excel :: ubacivanje html dokumenta i snimanje svih otvorenih

[ Pregleda: 1035 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 547
*.dynamic.isp.telekom.rs.



+2 Profil

icon ubacivanje html dokumenta i snimanje svih otvorenih19.01.2016. u 13:49 - pre 99 meseci
Do skora nisam znao da moze da se snimi neka html stranica tj da posle moze da se ubaci u excel. Skinu sam kao u prilogu stranicu desni klik open with exvel i on otvori sad da bi sacuvao taj dokument treba da se ude u save as i da se sacuva kao xls. Sad nasao sam neki kod koji snima htm u xls bez ovog postupka nego odmah nudi koju lokaciju gde da sacuva. Sad on jedino cuva fajl u koji je ubacen kod a ne ostale. Kako napraviti master workbook kpji ce snimiti sve otvorene html dokumente u xls format i u jedan folder Temp?
Prikačeni fajlovi
 
Odgovor na temu

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 547
95.180.13.*



+2 Profil

icon Re: ubacivanje html dokumenta i snimanje svih otvorenih19.01.2016. u 19:16 - pre 99 meseci
Sub AddAllHtms()
Const FileLocation As String = "C:\LocationofHtms\"
Dim filename As String

filename = Dir(FileLocation & "*.htm")

Do While Len(filename) <> 0
AddRow FileLocation & filename
filename = Dir
Loop

End Sub


Sub AddRow(filename As String)
Dim src As String
Dim data As Variant
Dim d1(1 To 7) As Variant

Open filename For Input As #1
src = Input(LOF(1), 1)
Close

data = Split(src, "class=agreeinfo>")
d1(1) = Split(data(1), "</")(0)
d1(2) = Split(data(5), "</")(0)
d1(3) = Application.Trim(Replace(d1(3) & " " & Replace(Split(Split(src, "id=agreementCity>")(2), "<o")(0), "</span>", ""), vbCrLf, ""))
d1(4) = Split(data(3), "</")(0)
d1(5) = Split(data(4), "</")(0)
data = Split(src, "<b>$")
d1(6) = Val(data(1))
d1(7) = Val(data(2))

With Sheets("sheet1").Cells(1, 1).CurrentRegion
.Offset(.Rows.Count).Resize(1).Value = d1
End With

End Sub

da li ovo moze da se iskoristi
 
Odgovor na temu

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 547
95.180.13.*



+2 Profil

icon Re: ubacivanje html dokumenta i snimanje svih otvorenih19.01.2016. u 19:33 - pre 99 meseci
mislim da je to to u prilogu
Prikačeni fajlovi
 
Odgovor na temu

[es] :: Office :: Excel :: ubacivanje html dokumenta i snimanje svih otvorenih

[ Pregleda: 1035 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.