............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Activar clave en MS Query. (macros)

Ver el tema anterior Ver el tema siguiente Ir abajo

Activar clave en MS Query. (macros)

Mensaje por dosmilx el Jue Mar 10, 2011 10:41 am

Estimados:

Agradecido eternamente de esta fuente de conocimiento... pero necesito de un dato en particular que busco y busco y nada..
no sé como formular la preguntar, pero acá voy..

Tengo una macros que actualiza unas consultas directas a unas tablas que se encuentra en SQL y las visualizo a través de Microsoft Query, la macro en general hace todo, pero me pide insertar la clave para ingresar a la base de datos en donde se encuentran las tablas a consultar y quisiera saber si existe algo o un conjunto de comandos el cual me pudiese ayudar a agregar la clave.

Esta es la macro utilizada:

Macro1 Macro
' Actualizar
'

'
Range("B6").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("APSE").Select
Range("AM6650").Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Range("B6650").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("Tablas").Select
Range("B8").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("G11").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("I11").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("M11").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("O11").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("T11").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("W11").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("Z11").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("AB11").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("AE11").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("AU11").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("AX11").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("BA11").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("BF11").Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Sheets("AP").Select
Calculate
Calculate.

Para poder entender un poco el tema, realice una macro desde el principio, la cual consiste básicamente en llamar los datos desde microsoft Query, en donde utilizo la contraseña y la ruta, pero al tratar de utilizarla despues no funciona.
Este es el codigo:


Sub Macro1()
'
' Macro1 Macro
'

'
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
"ODBC;DSN=Payroll;Description=B.D.PAYROLL;UID=payroll;;APP=2007 Microsoft Office system;WSID=CMUNOZ-2010;DATABASE=payroll" _
, Destination:=Range("$A$1")).QueryTable
.CommandText = Array( _
"SELECT REMPLAN.Codigo, REMPLAN.Nombre" & Chr(13) & "" & Chr(10) & "FROM Payroll.dbo.REMPLAN REMPLAN")
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = "Tabla_Consulta_desde_Payroll"
.Refresh BackgroundQuery:=False
End With
End Sub


Y eso... estoy complicadisimo con esto, y si ustedes me pueden dar una mano, se los agradeceria un monton...

Saludos y desde ya agradezco su ayuda..

Un Abrazo.

dosmilx

Masculino Cantidad de envíos : 3
Edad : 34
Ciudad - Pais : Santiago-Chile
Version de Excel : 2003-2007
Fecha de inscripción : 11/05/2009

Volver arriba Ir abajo

Re: Activar clave en MS Query. (macros)

Mensaje por GalileoGali el Jue Mar 10, 2011 8:44 pm

Prueba cambiando esto:
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells

.SavePassword = True

.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.