Vba -web

[19davifumi89]

Ho da realizzare un programma che inserisca in una cella di Excel un'informazione che risiede sul web.

In pratica devo collegarmi alla pagina di configurazione della stampante di rete HP ed "estrapolare" il numero di pagine che ha stampato.


-------------------------
Dim ip As String

ip = CStr(txt1.Text)

webb.Navigate2 ip & "/hp/device/this.LCDispatcher?nav=hp.Supplies"

---------------------------

Così facendo quindi raggiungo la pagina di configurazione della stampante di rete.

Ora come faccio a prendere il dato che mi serve?

Se guardo il sorgente della pagina web trovo questo:

---------------
<span class="hpPageText" >18240</span>
---------------

Cosa significa? come arrivo a quel 18240???

grazie mille

[wallrider]

webb dovrebbe avere una proprietà innerhtml o simili

[19davifumi89]

ovvero? mi potresti dare una mano un po' più dettagliatamente? mi ritrovo la prima volta a gestire web e vb insieme quindi conosco poco del campo...come lo devo utilizzare nel mio caso??

PS: cmq nn ha innerhtml

[gibra]

Sarebbe più semplice accedere al file direttamente senza il browser.
Se puoi farlo diventa semplice:

1. Scarichi il file in locale, con la funzione URLDownloadToFile()
http://msdn.microsoft.com/en-us/library/ms775123(VS.85).aspx

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
    Dim lngRetVal As Long
    lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
    If lngRetVal = 0 Then DownloadFile = True
End Function

DownloadFile ip & "/hp/device/this.LCDispatcher?nav=hp.Supplies", "c:\hp.Supplies"

2. lo apri come un normale file di testo
3. usi le solite funzioni stringa per recuperare il numero

[wallrider]

oppure il mitico XMLHTTP

[19davifumi89]

grazie per l'aiuto, ho copiato e incollato il tuo codice, non da errori ma non scarica nulla....


[CODE]
Private Sub CommandButton1_Click()

Dim ip As String

ip = CStr(txt1.Text)

webb.Navigate2 ip & "/hp/device/this.LCDispatcher?nav=hp.Supplies"

DownloadFile ip & "/hp/device/this.LCDispatcher?nav=hp.Supplies", "c:\hp.Supplies"
End Sub

Private Function URLDownloadToFile(ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

End Function
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
[CODE]

ho dovuto togliere il Declare e l'ALIAS perchè mi dava errore....ma dubito sia quello il problema...

ho aperto anke il link ke mi hai mandato parla di urlmon.dll ma non ho capito se è una DLL ke devo scaricare io o cosa...

[gibra]

Non posso sapere se all'indirizzo

ip & "/hp/device/this.LCDispatcher?nav=hp.Supplies

riesci a scaricare il file, io l'ho messo solo come esempio.
Sinceramente dubito che quello sia un'indirizzo 'diretto'

E' chiaro che devi avere il link diretto, per poter scaricare il file.
Se non puoi accedere direttamente al file, allora il discorso cambia completamente.

[19davifumi89]

capisco....quindi hai altre idee?

se ci fosse stato un form con delle text ecc... avrei utilizzato webbrowser.document ecc....

ma in questo caso non so davvero che fare.... non sapete se c'è un modo per reperire quelle informazioni???

[gibra]

Non puoi salvarti la pagina web in locale?
Poi potresti aprirla come un normale file di testo ed estrarre il valore diventa banale, giocando con le funzioni stringa.

[19davifumi89]

come si salva una pagina web in locale? ovvero come si salva con il vba...perchè quel numero è il numero di pagine ke la mia stampante di rete ha stampato...quindi è un numero dinamico che cambia dopo ogni stampa...dovrei ogni volta salvare il file, leggerne il contenuto ed eliminarlo, ma è cmq meglio di niente....anke qui ti devo chiedere una mano però...come si fa?