Ver Mensaje Individual
  #1 (permalink)  
Antiguo 31/03/2011, 11:48
harryems
 
Fecha de Ingreso: septiembre-2010
Mensajes: 113
Antigüedad: 13 años, 8 meses
Puntos: 4
Tabla por odbc Mysql

Que tal foreros??

aun no soy un master en excel, y como muchos el mismo excel es el que me ha ido enseñando, grabo una macro y despues modifico el codigo.

lo que estoy haciendo es mostrar una consulta a una base de datos Mysql, pero cuando grabo la macro con Datos->De otras fuentes->Asistente de conexion me genera un archivo odc. No habia problema asi funcionaba, pero si lo intento executar desde otra maquina, me marca error porque ese archivo no existe.

este es el codigo que me genera:



With ActiveSheet.ListObjects.Add(SourceType:=0, SOURCE:= _
"ODBC;DSN=niveles_servicio;OPTION=0;;PORT=0;SERVER =sbd;UID=nivel_servicio", _
Destination:=Range("$A$6")).QueryTable
.CommandText = Array( _
"SELECT * FROM `NIVEL`.`NIVEL2011`")
.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\...\Mis documentos\Mis archivos de origen de datos\NIVEL.odc"
.ListObject.DisplayName = "Tabla_NIVEL"
.Refresh BackgroundQuery:=False
End With




como podria hacer para poner ahi la cadena de conexion y no en un archivo??

mil gracias