Avaleht
uus teema   vasta Tarkvara »  Programmeerimine »  Kõik avatud internet exploreri tabi urlid excelisse märgi kõik teemad loetuks
märgi mitteloetuks
vaata eelmist teemat :: vaata järgmist teemat
Hinnavaatlus :: Foorum :: Uudised :: Ärifoorumid :: HV F1 ennustusvõistlus :: Pangalink :: Telekavad :: HV toote otsing
autor
sõnum Saada viide sõbrale.  :: Teata moderaatorile teata moderaatorile
otsing:  
tattoomees
HV kasutaja

liitunud: 27.09.2004
sõnum 07.02.2013 14:54:20 Kõik avatud internet exploreri tabi urlid excelisse vasta tsitaadiga
Otsin abi nimelt sellise asjaga et soovin salvestada macroga kõik avatud internet explorery URL id
Siiani sain sellega hakkama et saan pealkirja mis on ka abiks aga kuidas ma selle saan salvestada exceli cellidesse
kood ise selline
Public Sub test()
Dim GetOpenIE As SHDocVw.InternetExplorer
Dim objShellWindows As New SHDocVw.ShellWindows

On Error Resume Next

For Each GetOpenIE In objShellWindows
If TypeName(GetOpenIEByURL.document) = "HTMLDocument" Then
Debug.Print GetOpenIE.document.Title


End If
Next
End Sub

Ettet2nades
TM
Kommentaarid: 6 loe/lisa Kasutajad arvavad:  :: 0 :: 0 :: 6
tagasi üles
vaata kasutaja infot saada privaatsõnum
infidel
HV kasutaja
infidel

liitunud: 31.01.2004
sõnum 07.02.2013 15:43:29 vasta tsitaadiga
Üks variant on teha nii:
vb:
  1. Public Sub test()
  2. Dim GetOpenIE As SHDocVw.InternetExplorer
  3. Dim objShellWindows As New SHDocVw.ShellWindows
  4.  
  5. On Error Resume Next
  6. i = 1
  7. Cells(i, 1) = "Pealkiri"
  8. Cells(i, 2) = "URL"
  9.  
  10. For Each GetOpenIE In objShellWindows
  11.  
  12. If TypeName(GetOpenIEByURL.document) = "HTMLDocument" Then
  13. i = i + 1
  14. Cells(i, 1).Value = GetOpenIE.document.Title
  15. Cells(i, 2).Value = GetOpenIE.document.URL
  16. End If
  17. Next
  18. End Sub
Kommentaarid: 36 loe/lisa Kasutajad arvavad:  :: 0 :: 0 :: 35
tagasi üles
vaata kasutaja infot saada privaatsõnum
näita postitusi alates eelmisest:   
uus teema   vasta Tarkvara »  Programmeerimine »  Kõik avatud internet exploreri tabi urlid excelisse
[vaata eelmist teemat] [vaata järgmist teemat]
 lisa lemmikuks
näita foorumit:  
 ignoreeri teemat 
sa ei või postitada uusi teemasid siia foorumisse
sa ei või vastata selle foorumi teemadele
sa ei või muuta oma postitusi selles foorumis
sa ei või kustutada oma postitusi selles foorumis
sa ei või vastata küsitlustele selles foorumis
sa ei saa lisada manuseid selles foorumis
sa võid manuseid alla laadida selles foorumis



Hinnavaatlus ei vastuta foorumis tehtud postituste eest.