Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
macro deixou de fun...
 
Notifications
Clear all

macro deixou de funcionar depois de teste de função

 
2024 - VBA & Macros
Post Recente por Edcronos 10 anos atrás
3 Posts
1 Usuários
0 Reactions
729 Visualizações
RSS
 Edcronos
(@edcronos)
Posts: 1006
Noble Member
Topic starter
 

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"

 
Postado : 03/04/2015 7:48 am
 Edcronos
(@edcronos)
Posts: 1006
Noble Member
Topic starter
 

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"

 
Postado : 03/04/2015 8:22 am
 Edcronos
(@edcronos)
Posts: 1006
Noble Member
Topic starter
 

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"

 
Postado : 03/04/2015 8:32 am
Forum Jump:
  Tópico Anterior
Próximo Tópico