Tabla tras

[victor2012]

Buenas tardes

reciban cordial saludos amigos del foro.

recuro a sus conocimientos nuevamente, en mi tabla tras. Pues en estado intentando en colocarle unas modificaciones que me eviten gastarme mucho tiempo en la ejecución que realizo. lo busco en mi tabla tras es lo siguiente, seré breve:

En la tabla tras hay tres botones, el primero seria que al darle clic en actualizar me copiara la información que esta en el archivo llamado base ola y lo pegara en la pestaña que se llama ola en la tabla tras, pero si se pudiera hacer este paso sin abrir el archivo base ola.

[TABLE=width: 800]

[TR]

[TD=colspan: 10]lo segundo seria poder compartir este archivo con otros usuarios, que al darle clic en el botón guardar y refrescar los otros pudieran ver los cambios hechos. Pero si no se guardase y solo le diera refrescar los cambios hechos en la tabla tras no se guardase y por consiguiente si otro usuario estuviera el archivo abierto este no se vería los cambios hechos por otro usuario ya que no se le dio guardar antes de refrescar.[/TD]

[/TR]

[TR]

[/TR]

[TR]

[/TR]

[TR]

[/TR]

[TR]

[/TR]

[TR]

[/TR]

[/TABLE]

amigos del foro quedo a la espera de sus comentarios.

mil gracias por su amable atención

cordial saludo,

victor2012

- - - - - Mensaje combinado - - - - -

Buenas tardes Amigos del foro

Alguna persona que me ayude con sus conocimientos en e tema

Tabla Tras.zip

[victor2012]

hola amigos del foro

ya encontré como copiar una base de datos ami tabla tras si tener que abrir la BD. Con el siguiente codigo:

Private Sub CommandButton1_Click()

'importar datos sin abrir archivo

'dimensiones

Dim datConnection As ADODB.Connection

Dim recSet As ADODB.Recordset

Dim recCampo As ADODB.Field

Dim strDB, strSQL As String

'Dim i As Long

'ruta al archivo Excel (la base de datos). En este caso se llama fuente.xls

strDB = ThisWorkbook.Path & Application.PathSeparator & "fuente.xls" 'archivo donde estan los datos que se quieren copiar

'la ruta a la base de datos es la misma que este archivo

'donde esta este código,

'es decir que, para que este ejemplo funcione los dos

'archivos deben estar a la par

'por supuesto que pueden modificar esto si lo desean

'conectar

Set datConnection = New ADODB.Connection

Set recSet = New ADODB.Recordset

datConnection.Open "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & strDB

'consulta SQL

strSQL = "SELECT * FROM [Hoja1$A1:AM48]" 'nombre de la hoja y rango donde estan los datos que se quieren copiar

'abrimos el recordset

recSet.Open strSQL, datConnection, adOpenStatic

'copiar datos

ActiveSheet.Cells(2, 1).CopyFromRecordset recSet 'celda de este libro donde se empiezan a pegar los datos

'empieza en la fila 2 porque despuès en la fila 1 se copiaran los

'encabezados de cada columna.

'copiar encabezados de cada columna en la fila 1

i = 1

For Each recCampo In recSet.Fields

ActiveSheet.Cells(1, i) = recCampo.Name: i = i + 1

Next recCampo

'desconectar (¡importante!)

recSet.Close

datConnection.Close

'cerrar los objetos

Set recSet = Nothing

Set datConnection = Nothing

End Sub

Solo me falta el codigo para guardar y refrescar mi archivo si lo comparten varios usuarios.