CODIGO PARALISADO SEM CAUSA APARENTE

USUARIO.EXCLUIDOS 19/04/2007 16:14:51
#212812
Prezados,
Estou desenvolvendo uma macro em Excel 2007, e me deparei com um problema bem estranho.
Meu código estabelece uma conexão via ODBC e cria na planilha um QueryTable, como a seguir:

Sub GetViewOur(pPlan As Worksheet, pTabela As String, pSQL As String, pPosicao As Range)

    Application.DisplayAlerts = False

    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
        "ODBC;DSN=MICROSIGA;UID=SIGA;PWD=MSIGA;DBQ=ORACLE.PBK;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=F;BAM=IfAllSu" _
        ), Array("ccessful;MTS=F;MDI=F;CSR=F;FWC=F;PFC=10;TLO=0;")), Destination:= _
        pPosicao).QueryTable
        .CommandText = Array(pSQL)
        .ListObject.DisplayName = pTabela
        .Refresh BackgroundQuery:=False            
    End With
        
    Application.DisplayAlerts = True
        
End Sub


O problema é que, se eu incluo o método .Refresh dentro do With, o código para na linha do End With, com aquela janelinha perguntando se eu quero Continuar, Fim ou Depurar.

Como vcs podem ver, já tentei o método .DisplayAlerts mas nada feito...

Alguém sabe como resolver isso?

Grato,

Leandro
DANIELCPAETE 19/04/2007 17:48:45
#212840
bom uma solução um pouco torta seria você usar o On Error Resume Next mas claro que essa não seia a melhor maneira mas como provisório
USUARIO.EXCLUIDOS 20/04/2007 08:13:52
#212878
Po cara, não adiantou, continua parando no mesmo local....
Não sei mais o que tentar...
Tópico encerrado , respostas não são mais permitidas
Voltar