estava testando uma função pega de um site ,
mas como minha macro não funcionou eu retirei
mas depois a macro não quis mais funcionar nessa planilha.
copiei e testei a macro em uma outra planilha e funcionou
a função é essa
'Function IsSiteOnline(pURL As String) As Boolean
'On Error GoTo TrataErro
' Dim resText As String
' Dim objHttp As Object
' Set objHttp = CreateObject("MSXML2.ServerXMLHTTP")
' objHttp.Open "GET", pURL, False
' objHttp.Send ""
' IsSiteOnline = objHttp.Status = 200
'
'TrataSaida:
' Exit Function
'TrataErro:
' IsSiteOnline = False
' GoTo TrataSaida
'End Function
'
'Sub kadf()
'MsgBox IsSiteOnline("www.google.com")
'End Sub
a macro é a mesma que está nessa planilha
download/file.php?id=16052
que pega dados da internet
*** Sub Atualiza_da_internet()
oq reparei é que o internet explore não abre mais na macro,
IE.Visible = True
se eu retirar a referencia microsoft internet control dá erro na macro,
o pior é que eu não tenho uma copia dessa versão da planilha que está cheia de modificações e adições
Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.
"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"
ignorem a duvida,
eu esqueci dos
On Error GoTo -1
On Error GoTo Saida3
enão não estava aparecendo onde tinha o erro
e era um ( ' ) na função antiga de teste de conexão
mais uma vez depois de um monte de tentativa eu consegui resolver assim que coloquei no forum "depois de um monte de M feita na planilha tentando resolver"
desculpa
Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.
"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"
como eu usei a colocação de ( ' ) automatica
Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" _
(ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, _
ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long
ficou assim
'Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" _ ' (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, _ ' ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long
depois de retirado no automático, no botão do editor
ficou assim
Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" _
() ' (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, _
ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long
Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.
"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"