[VBA] Scaricare un file di testo da un sito e leggerlo in Access

[LEENO]

ho usato questo e non funge

Private Sub Comando1_Click(URL As String, Txt As TextBox)
net1.OpenURL "http://www.sito.it./file.txt"
Txt = Inet1.OpenURL
txtbx.Value = Txt
End Sub

[oregon]

Ovvio che non funziona ... è sbagliato e non ha senso ...

Semmai

    Dim inet As Object
    Dim b() As Byte

    Const icByteArray = 1

    Set inet = CreateObject("InetCtls.Inet")
    b() = inet.OpenURL("http://www.sito.it./file.txt", icByteArray)
    Set inet = Nothing

    Text1.Text = StrConv(b, vbUnicode)

[LEENO]

mi da' errore su


Set inet = CreateObject("InetCtls.Inet")


il codice completo che ho usato è

Private Sub Comando145_Click()

Dim inet As Object
Dim b() As Byte

Const icByteArray = 1

Set inet = CreateObject("InetCtls.Inet")
b() = inet.OpenURL("http://www.sito.it/file.txt", icByteArray)
Set inet = Nothing

Text1.Text = StrConv(b, vbUnicode)
End Sub

[oregon]

Errore?

[LEENO]

[oregon]

Devi avere il componente

MSINET.OCX

in C:\windows\system32

correttamente registrato.

[LEENO]

ho scaricato MSINET.OCX

copiato in c:\windows\system32

eseguito regsvr32 MSINET.OCX

riavviato access

ma ho sempre lo stesso errore

[oregon]

Esiste nella stessa cartella la MSINET.DLL?

[LEENO]

non c'è MSINET.DLL e non riesco a trovarlo su internet.

In MSINET.cab di vb6sp6b c'è solo MSINET.ocx e MSINET.inf

Ho anche rieseguito l'installazione cliccando col tasto destro su MSINET.inf e selezionando installa

[oregon]

Lascia stare .... controlla se c'è WININET.DLL