Cuestión : ¿ServerXMLHTTP en Excel - cómo inhabilitar mensajes de error en la pantalla?

Hola, el

david251 fijó el código abajo - le agradece a propósito - y lo modifiqué. el
I quiere manejar los descansos mismo (revisando) pero desafortunadamente consigo este mensaje: nombre de fichero " vacío " >

(17 KB) Javascript del href= " de los " attachmentDetails del class= " de (tipo de archivo detalles) anchura style= del >the, no hago want

and del >

So me preguntaba si hay cualquier ocasión de inhabilitar errores lleva a un mensaje en la pantalla.

Thank usted mucho para cada tip.

Christine class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
objHTTP notpretty del >Dim " del class= " de " codeSnippet819435 del id= del
 0
        Fijar el objHTTP = nuevo ServerXMLHTTP
        objHTTP.Open “CONSIGUEN”, sURL
        “Usuario-Agente” de objHTTP.setRequestHeader, “Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)”
        objHTTP.send
        objHTTP.WaitForResponse 1
        GetHTMLServerXMLHTTP = objHTTP.responseText
        RetryCnt = RetryCnt - 1
        Si "" entonces RetryCnt del <> de GetHTMLServerXMLHTTP = -1
    Wend
    Si RetryCnt = 0 entonces GetHTMLServerXMLHTTP = “1 - descanso; no puede conectar con el servidor”
    Fijar el objHTTP = nada
class= del

Respuesta : ¿ServerXMLHTTP en Excel - cómo inhabilitar mensajes de error en la pantalla?

No estoy seguro cómo conseguir el funcionamiento antedicho del código. Éste es código que utilizo para tener acceso a Web pages. Es tercer o de cuarta generación y bastante robusto. Esto es un módulo completo del código.

'clsInternetConnection
'
La 'clase proporciona functionalty para leer Web pages.
'
'Ejecutado como un módulo de la clase para el uso con cualquie proyecto de VB o de VBA.
'
'© Kevin 2008-2010 M. Jones

Opción explícita

Const privado INTERNET_OPEN_TYPE_PRECONFIG = 0
Const privado INTERNET_FLAG_RELOAD = &H80000000
Const privado INTERNET_FLAG_PRAGMA_NOCACHE = &H100
Const privado INTERNET_OPTION_RECEIVE_TIMEOUT como de largo = 6

Const privado UserAgent = “VB”

mConnectionHandle privado como de largo
mTimeoutSeconds privados como de largo

Privado declarar la liberación “wininet” de InternetCloseHandle de la función (el _
     hInet de ByRef como largo _
  ) Como de largo

Privado declarar la liberación “wininet” alias “InternetOpenA” de InternetOpen de la función (el _
     ByVal sAgent como secuencia, _
     lAccessType de ByVal como de largo, _
     sProxyName de ByVal como secuencia, _
     sProxyBypass de ByVal como secuencia, _
     lFlags de ByVal como largo _
  ) Como de largo

Privado declarar la liberación “wininet” alias “InternetOpenUrlA” de InternetOpenUrl de la función (el _
     hInternetSession de ByVal como de largo, _
     lpszUrl de ByVal como secuencia, _
     lpszHeaders de ByVal como secuencia, _
     dwHeadersLength de ByVal como de largo, _
     dwFlags de ByVal como de largo, _
     dwContext de ByVal como largo _
) Como de largo

Privado declarar la liberación “wininet” de InternetReadFile de la función (el _
     ByVal hFile como de largo, _
     sBuffer de ByVal como secuencia, _
     lNumBytesToRead de ByVal como de largo, _
     lNumberOfBytesRead como largo _
  ) Como número entero
 
Privado declarar la liberación “wininet.dll” alias “InternetSetOptionA” de InternetSetOption de la función (el _
     hInternet de ByVal como de largo, _
     dwOption de ByVal como de largo, _
     lpBuffer de ByRef como cualesquiera, _
     dwBufferLength de ByVal como largo _
  ) Como de largo

Class_Initialize secundario privado ()

  mConnectionHandle = InternetOpen (UserAgent, INTERNET_OPEN_TYPE_PRECONFIG, el vbNullString, el vbNullString, 0)
  Si mConnectionHandle = 0 entonces
     MsgBox “incapaz de abrir una conexión a internet. Se ha creado la causa más probable es demasiadas manijas.”
  Terminar si
  mTimeoutSeconds = 30

Submarino del extremo

Class_Terminate secundario privado ()

  mConnectionHandle de InternetCloseHandle
     
Submarino del extremo

Función pública GetWebPage (_
     URL de ByVal como secuencia, _
     ByVal opcional ProxyUserID como secuencia, _
     ByVal opcional ProxyPassword como secuencia, _
     ByVal opcional TimeoutSeconds como largo _
  ) Como secuencia

'Conseguir un Web page.
'
'Sintaxis
'
'GetWebPage (URL, [ProxyUserID], [ProxyPassword])
'
'URL - Un URL completo a un Web page.
'
'ProxyUserID - la identificación del usuario para el proxy server, eventualmente. Opcional. Si está omitido
'entonces no se asume ningún proxy server.
'
'ProxyPassword - la contraseña para el proxy server. Opcional. No hecho caso si
Se omite 'ProxyUserID.
'
'TimeoutSeconds - el número de segundos a esperar hasta medir el tiempo hacia fuera. Opcional.
'Si entonces están omitidos se utilizan 30 segundos.

  ConnectionHandle dévil como de largo
  URLHandle dévil como de largo
  BytesRead dévil como de largo
  Resultado dévil como boleano
  InputBuffer dévil como secuencia * 10000
  PageContent dévil como secuencia
  SecurityData dévil como secuencia
 
   Si Len (ProxyUserID) > 0 entonces
     SecurityData = ProxyUserID
     Si Len (ProxyPassword) > 0 entonces
        SecurityData = SecurityData y “: ” Y ProxyPassword
     Terminar si
     SecurityData = SecurityData y “@”
     El URL = substituye (URL, “: /”, “: /” y SecurityData)
  Terminar si
 
   Si TimeoutSeconds = 0 entonces TimeoutSeconds = mTimeoutSeconds
 
   Si mConnectionHandle <> 0 entonces
     Resultado = InternetSetOption (mConnectionHandle, INTERNET_OPTION_RECEIVE_TIMEOUT, TimeoutSeconds * 1000, Len (TimeoutSeconds))
     URLHandle = InternetOpenUrl (mConnectionHandle, URL, el vbNullString, 0, INTERNET_FLAG_RELOAD o INTERNET_FLAG_PRAGMA_NOCACHE, 0)
     Si URLHandle <> 0 entonces
        Hacer
           InputBuffer = vbNullString
           Resultado = InternetReadFile (URLHandle, InputBuffer, Len (InputBuffer), BytesRead)
           PageContent = PageContent y se fueron (InputBuffer, BytesRead)
        Colocar mientras que BytesRead > 0
        InternetCloseHandle URLHandle
     Terminar si
  Terminar si
 
   GetWebPage = PageContent
 
Función del final

La característica pública consigue ValidInternetConnection () como boleana

  ValidInternetConnection = mConnectionHandle <> 0

Característica del extremo

La característica pública consigue TimeoutSeconds () como de largo

  TimeoutSeconds = mTimeoutSeconds

Característica del extremo

La característica pública dejó TimeoutSeconds (el _
     Valor de ByVal como largo _
  )

  mTimeoutSeconds = valor

Característica del extremo

Kevin
Otras soluciones  
 
programming4us programming4us