Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Url in einem Excel sheet
Autor: ACE-Drink
Datum: 09.04.08 10:18
Jetzt bin ich mittlerweile soweit. Funzt aber immernoch nicht richtig. kann mir da jemand weiterhelfen? Sub StartIT() Dim lResCode As Long Dim sResInfo As String Dim sHeader As String CheckURL "", lResCode, sResInfo, sHeader 'evaluate here lResCode, sResInfo and sHeader (ex: check for Instr(404)) End Sub Private Sub CheckURL(ByVal sURL As String, ByRef lResCode As Long, ByRef sResInfo As String, ByRef sHeader As String) Dim oIE As New Inet Dim bItem() As Byte Dim sRS As String Dim iRS 'As Integer On Error Resume Next With oIE .Protocol = icHTTP .URL = sURL End With bItem = oIE.OpenURL(oIE.URL, icByteArray) lResCode = oIE.ResponseCode sResInfo = oIE.ResponseInfo '!! must be last - otherwise ResponseCode and -Info will be reset sHeader = oIE.GetHeader End Sub Signatur??? Kann man das essen???

Url in einem Excel sheet	1.094	ACE-Drink	31.03.08 14:51
Re: Url in einem Excel sheet	679	ACE-Drink	03.04.08 09:12
Re: Url in einem Excel sheet	681	ACE-Drink	07.04.08 09:35
Re: Url in einem Excel sheet	650	wb-soft	07.04.08 11:40
Re: Url in einem Excel sheet	657	ACE-Drink	07.04.08 16:09
Re: Url in einem Excel sheet	698	wb-soft	07.04.08 16:41
Re: Url in einem Excel sheet	675	ACE-Drink	08.04.08 08:05
Re: Url in einem Excel sheet	650	ACE-Drink	09.04.08 10:18

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen