Actualizar Base de datos de Access desde Excel

No me acordaba, en
http://emiliosancha.iespana.es/emil...sExcel.zip

tienes un ejemplo un poco más complicado pero quizas te sirva de algo
Saludos a desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/defaul...newsreglas

"Emilio" <miliuco56 ARROBA Hotmail.com> escribió en el mensaje
news:

Vamos a ver
crea un formulario, ponle un botón llamalo Comando0 y añadele este evento
al hacer click, modifica, el nombre del libro, de la hoja de calculo, la
celda de inicio, los nombres de la tabla y los campos... y suerte

Private Sub Comando0_Click()
Dim xls As Object, _
strLibro As String, _
rst As DAO.Recordset

' ruta de la hoja de calculo
strLibro = "C:\Libro1.xls"

' abro Excel
Set xls = CreateObject("Excel.Application")
' abro el libro
xls.Workbooks.Open strLibro
' activo la hoja 1 o la que quieras
xls.Worksheets("Hoja1").Activate

xls.Visible = True ' o false si prefieres

' abro un recordset de la tabla 1 o la que quieras
Set rst = CurrentDb.OpenRecordset("Tabla1")

' me situo en la celda A1 o en la que quieras
xls.ActiveSheet.Range("A1").Select

' leo celdas hasta que encuentre una vacía
Do While Not IsEmpty(xls.ActiveCell)
rst.AddNew ' añado un registro vacio
rst!Campo1 = xls.ActiveCell ' meto en el campo1 la
celda activa
rst!Campo2 = xls.ActiveCell.Offset(0, 1) ' meto en campo2 la celda
de una columna a la derecha de la activa
rst.Update ' guardo el registro
xls.ActiveCell.Offset(1, 0).Select
Loop

' al acabar cierro el recordset
If Not rst Is Nothing Then
rst.Close
Set rst = Nothing
End If
' cierro Excel
Set xls = Nothing
End Sub

Saludos a desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/defaul...newsreglas

"Jorge Eugenio" escribió en el mensaje
news:0eb401c4a71c$0645d820$
Ok te lo agradecria... Saludos

Hola de nuevo
programaticamente, con unas pocas lineas de código si, se

puede hacer, si

quieres miro de prepararte un ejemplo.

Saludos a desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/defaul...cid=fh;ES-

ES;newsreglas

"Jorge Eugenio" escribió en el

mensaje

news:0d7501c4a70d$0e3eb2e0$
Hola Emilio, Gracias por las recomendaciones de hecho lo
que hago es me meto a access y de ahí importo los archivos
que hasta el momento es lo mas rapido que he encontrado
pero lo que me interesa es saber si exite alguna
instrucción en VBExcel que puede hacer lo que hago
manuelmente ya sea en excel o en access.

Saludos

Hola Jorge Eugenio
tienes varia maneras de hacerlo, por ejemplo desde access

puedes vincular la

hoja excel cual si fuera una tabla normal , tambien

podrías importarla y por

ultimo, podrías ya desde Excel o desde Access, via

Automatización (es decir

programación) tomar los datos y meterlos en la tabla.

Saludos a desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/defaul...cid=fh;ES-

ES;newsreglas

"Jorge Eugenio Mendoza" escribió

en el mensaje

news:23dc01c4a706$e11fb350$

Como puede hacer una macro para actualizar una base de
datos de excel o como puedo importar automaticamente

una

base de datos de excel a una tabla ya creada de

access..

Gracias...

.

.

Ok Mil Gracias y el ejemplo ya no lo pude bajar porque
me manda un mensaje de que ya caduco... pero bueno no
importa con esto me doy una idea. ahora si no crees que
pese mucho mandame tu ejemplo a mi correo u lo estudio
graciaaaaassss!!

No me acordaba, en
http://emiliosancha.iespana.es/emil...ss/Descarg

as/CeldasExcel.zip

tienes un ejemplo un poco más complicado pero quizas te

sirva de algo

Saludos a desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/defaul...cid=fh;ES-

ES;newsreglas

"Emilio" <miliuco56 ARROBA Hotmail.com> escribió en el

mensaje

news:

Vamos a ver
crea un formulario, ponle un botón llamalo Comando0 y

añadele este evento

al hacer click, modifica, el nombre del libro, de la

hoja de calculo, la

celda de inicio, los nombres de la tabla y los

campos... y suerte

Private Sub Comando0_Click()
Dim xls As Object, _
strLibro As String, _
rst As DAO.Recordset

' ruta de la hoja de calculo
strLibro = "C:\Libro1.xls"

' abro Excel
Set xls = CreateObject("Excel.Application")
' abro el libro
xls.Workbooks.Open strLibro
' activo la hoja 1 o la que quieras
xls.Worksheets("Hoja1").Activate

xls.Visible = True ' o false si prefieres

' abro un recordset de la tabla 1 o la que quieras
Set rst = CurrentDb.OpenRecordset("Tabla1")

' me situo en la celda A1 o en la que quieras
xls.ActiveSheet.Range("A1").Select

' leo celdas hasta que encuentre una vacía
Do While Not IsEmpty(xls.ActiveCell)
rst.AddNew ' añado

un registro vacio

rst!Campo1 = xls.ActiveCell ' meto

en el campo1 la

celda activa
rst!Campo2 = xls.ActiveCell.Offset(0, 1) ' meto

en campo2 la celda

de una columna a la derecha de la activa
rst.Update ' guardo

el registro

xls.ActiveCell.Offset(1, 0).Select
Loop

' al acabar cierro el recordset
If Not rst Is Nothing Then
rst.Close
Set rst = Nothing
End If
' cierro Excel
Set xls = Nothing
End Sub

Saludos a desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/defaul...cid=fh;ES-

ES;newsreglas

"Jorge Eugenio" escribió en el

mensaje

news:0eb401c4a71c$0645d820$
Ok te lo agradecria... Saludos

Hola de nuevo
programaticamente, con unas pocas lineas de código si,

se

puede hacer, si

quieres miro de prepararte un ejemplo.

Saludos a desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/defaul...cid=fh;ES-

ES;newsreglas

"Jorge Eugenio" escribió en el

mensaje

news:0d7501c4a70d$0e3eb2e0$
Hola Emilio, Gracias por las recomendaciones de hecho lo
que hago es me meto a access y de ahí importo los

archivos

que hasta el momento es lo mas rapido que he encontrado
pero lo que me interesa es saber si exite alguna
instrucción en VBExcel que puede hacer lo que hago
manuelmente ya sea en excel o en access.

Saludos

Hola Jorge Eugenio
tienes varia maneras de hacerlo, por ejemplo desde

access

puedes vincular la

hoja excel cual si fuera una tabla normal , tambien

podrías importarla y por

ultimo, podrías ya desde Excel o desde Access, via

Automatización (es decir

programación) tomar los datos y meterlos en la tabla.

Saludos a desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/defaul...cid=fh;ES-

ES;newsreglas

"Jorge Eugenio Mendoza"

escribió

en el mensaje

news:23dc01c4a706$e11fb350$

Como puede hacer una macro para actualizar una base

de

datos de excel o como puedo importar automaticamente

una

base de datos de excel a una tabla ya creada de

access..

Gracias...

.

.

.

Saludos a desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/defaul...newsreglas

"Jorge Eugenio" escribió en el mensaje
news:270801c4a72c$6d87ea40$
Ok Mil Gracias y el ejemplo ya no lo pude bajar porque
me manda un mensaje de que ya caduco... pero bueno no
importa con esto me doy una idea. ahora si no crees que
pese mucho mandame tu ejemplo a mi correo u lo estudio
graciaaaaassss!!

Perdona es en
http://emiliosancha.iespana.es/emil...sExcel.zip

No me acordaba, en
http://emiliosancha.iespana.es/emil...ss/Descarg

as/CeldasExcel.zip

tienes un ejemplo un poco más complicado pero quizas te

sirva de algo

Saludos a desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/defaul...cid=fh;ES-

ES;newsreglas

"Emilio" <miliuco56 ARROBA Hotmail.com> escribió en el

mensaje

news:

Vamos a ver
crea un formulario, ponle un botón llamalo Comando0 y

añadele este evento

al hacer click, modifica, el nombre del libro, de la

hoja de calculo, la

celda de inicio, los nombres de la tabla y los

campos... y suerte

Private Sub Comando0_Click()
Dim xls As Object, _
strLibro As String, _
rst As DAO.Recordset

' ruta de la hoja de calculo
strLibro = "C:\Libro1.xls"

' abro Excel
Set xls = CreateObject("Excel.Application")
' abro el libro
xls.Workbooks.Open strLibro
' activo la hoja 1 o la que quieras
xls.Worksheets("Hoja1").Activate

xls.Visible = True ' o false si prefieres

' abro un recordset de la tabla 1 o la que quieras
Set rst = CurrentDb.OpenRecordset("Tabla1")

' me situo en la celda A1 o en la que quieras
xls.ActiveSheet.Range("A1").Select

' leo celdas hasta que encuentre una vacía
Do While Not IsEmpty(xls.ActiveCell)
rst.AddNew ' añado

un registro vacio

rst!Campo1 = xls.ActiveCell ' meto

en el campo1 la

celda activa
rst!Campo2 = xls.ActiveCell.Offset(0, 1) ' meto

en campo2 la celda

de una columna a la derecha de la activa
rst.Update ' guardo

el registro

xls.ActiveCell.Offset(1, 0).Select
Loop

' al acabar cierro el recordset
If Not rst Is Nothing Then
rst.Close
Set rst = Nothing
End If
' cierro Excel
Set xls = Nothing
End Sub

Saludos a desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/defaul...cid=fh;ES-

ES;newsreglas

"Jorge Eugenio" escribió en el

mensaje

news:0eb401c4a71c$0645d820$
Ok te lo agradecria... Saludos

Hola de nuevo
programaticamente, con unas pocas lineas de código si,

se

puede hacer, si

quieres miro de prepararte un ejemplo.

Saludos a desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/defaul...cid=fh;ES-

ES;newsreglas

"Jorge Eugenio" escribió en el

mensaje

news:0d7501c4a70d$0e3eb2e0$
Hola Emilio, Gracias por las recomendaciones de hecho lo
que hago es me meto a access y de ahí importo los

archivos

que hasta el momento es lo mas rapido que he encontrado
pero lo que me interesa es saber si exite alguna
instrucción en VBExcel que puede hacer lo que hago
manuelmente ya sea en excel o en access.

Saludos

Hola Jorge Eugenio
tienes varia maneras de hacerlo, por ejemplo desde

access

puedes vincular la

hoja excel cual si fuera una tabla normal , tambien

podrías importarla y por

ultimo, podrías ya desde Excel o desde Access, via

Automatización (es decir

programación) tomar los datos y meterlos en la tabla.

Saludos a desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/defaul...cid=fh;ES-

ES;newsreglas

"Jorge Eugenio Mendoza"

escribió

en el mensaje

news:23dc01c4a706$e11fb350$

Como puede hacer una macro para actualizar una base

de

datos de excel o como puedo importar automaticamente

una

base de datos de excel a una tabla ya creada de

access..

Gracias...

.

.

.