Consulta sql oracle en excel

[robert0426]

Buenas Tardes Chicos,

Tengo el siguiente código el que ejecuta una consulta sql de una base de datos de oracle, esto lo realizo 5 veces al dias, es solo para ver los movimiento de algunas personas.

El problema es que cada ves que la ejecuto me pide la contraseña de la base de datos, lo que pasa que quiero que al momento de ejecutarla me arroje los datos enseguida al excel y no esperar que tenga que meter la contraseña cada ves que le haga una consulta............

y lo otro es que he trato que en esta parte específicamente : "Select pam_nfolio N_PAM,afil_Nrut RUT_AFILIADO from PAM Where afil_Nrut=8959637") , hace referencia que busque al codigo:8959637 , pero lo que he tratado de hacer es que me busque segun un el codigo que este en algun rago de una hoja del libro excel...... sera posible?????? es decir, si en la hoja2 en el rango A1 esta : 13133 , que la consulta SQL busque el codigo 13133

Es posible?

Sub SQL()


    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _

        "ODBC;DSN=Credito_RS;UID=mgomez;DBQ=GESTION_NT;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BNF=F;BAM=IfAllSuccessfu" _

        ), Array("l;NUM=NLS;DPM=F;MTS=T;MDI=F;CSR=F;FWC=F;FBS=64000;TLO=O;MLD=0;ODA=F;") _

        ), Destination:=Range("$A$1")).QueryTable

        .CommandText = Array( _

        "Select pam_nfolio N_PAM,afil_Nrut RUT_AFILIADO from PAM Where afil_Nrut=8959637")

        .RowNumbers = False

        .FillAdjacentFormulas = False

        .PreserveFormatting = True

        .RefreshOnFileOpen = False

        .BackgroundQuery = True

        .RefreshStyle = xlInsertDeleteCells

        .SavePassword = False

        .SaveData = True

        .AdjustColumnWidth = True

        .RefreshPeriod = 0

        .PreserveColumnInfo = True

        .SourceConnectionFile = _

        "C:\Documents and Settings\Administrador.MASTERXP\Escritorio\RSOTO_BAN\Consulta desde Credito_RS.dqy"

        .ListObject.DisplayName = "Tabla_Consulta_desde_Credito_RS"

        .Refresh BackgroundQuery:=False

    End With

    Sheets("Hoja1").Select

    Range("A2").Select

    ActiveSheet.ListObjects("Tabla_Consulta_desde_Credito_RS").Unlist

  Range("A1").Select

End Sub[/CODE]