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:
Mostrar la cita

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


Mostrar la cita

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

puede hacer, si
Mostrar la cita

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
Mostrar la cita

"Jorge Eugenio" escribió en el

mensaje
Mostrar la cita

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


Mostrar la cita

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

puedes vincular la
Mostrar la cita

hoja excel cual si fuera una tabla normal , tambien

podrías importarla y por
Mostrar la cita

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

Automatización (es decir
Mostrar la cita

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
Mostrar la cita

"Jorge Eugenio Mendoza" escribió

en el mensaje
Mostrar la cita

news:23dc01c4a706$e11fb350$
Mostrar la cita

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

una
Mostrar la cita

Mostrar la cita

Mostrar la cita

base de datos de excel a una tabla ya creada de

access..
Mostrar la cita

Mostrar la cita

Mostrar la cita

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!!


Mostrar la cita

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

as/CeldasExcel.zip
Mostrar la cita

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

sirva de algo
Mostrar la cita

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
Mostrar la cita

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

mensaje
Mostrar la cita

news:
Mostrar la cita

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

añadele este evento
Mostrar la cita

Mostrar la cita

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

hoja de calculo, la
Mostrar la cita

Mostrar la cita

celda de inicio, los nombres de la tabla y los

campos... y suerte
Mostrar la cita

Mostrar la cita

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
Mostrar la cita

Mostrar la cita

rst!Campo1 = xls.ActiveCell ' meto

en el campo1 la
Mostrar la cita

Mostrar la cita

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

en campo2 la celda
Mostrar la cita

Mostrar la cita

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

el registro
Mostrar la cita

Mostrar la cita

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
Mostrar la cita

Mostrar la cita

"Jorge Eugenio" escribió en el

mensaje
Mostrar la cita

Mostrar la cita

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


Mostrar la cita

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

se
Mostrar la cita

Mostrar la cita

puede hacer, si
Mostrar la cita

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
Mostrar la cita

"Jorge Eugenio" escribió en el

mensaje
Mostrar la cita

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
Mostrar la cita

Mostrar la cita

Mostrar la cita

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


Mostrar la cita

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

access
Mostrar la cita

Mostrar la cita

Mostrar la cita

puedes vincular la
Mostrar la cita

hoja excel cual si fuera una tabla normal , tambien

podrías importarla y por
Mostrar la cita

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

Automatización (es decir
Mostrar la cita

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
Mostrar la cita

"Jorge Eugenio Mendoza"

escribió
Mostrar la cita

Mostrar la cita

Mostrar la cita

en el mensaje
Mostrar la cita

news:23dc01c4a706$e11fb350$
Mostrar la cita

Como puede hacer una macro para actualizar una base

de
Mostrar la cita

Mostrar la cita

Mostrar la cita

Mostrar la cita

Mostrar la cita

datos de excel o como puedo importar automaticamente

una
Mostrar la cita

Mostrar la cita

Mostrar la cita

base de datos de excel a una tabla ya creada de

access..
Mostrar la cita

Mostrar la cita

Mostrar la cita

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
Mostrar la cita

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

as/CeldasExcel.zip
Mostrar la cita

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

sirva de algo
Mostrar la cita

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
Mostrar la cita

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

mensaje
Mostrar la cita

news:
Mostrar la cita

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

añadele este evento
Mostrar la cita

Mostrar la cita

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

hoja de calculo, la
Mostrar la cita

Mostrar la cita

celda de inicio, los nombres de la tabla y los

campos... y suerte
Mostrar la cita

Mostrar la cita

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
Mostrar la cita

Mostrar la cita

rst!Campo1 = xls.ActiveCell ' meto

en el campo1 la
Mostrar la cita

Mostrar la cita

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

en campo2 la celda
Mostrar la cita

Mostrar la cita

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

el registro
Mostrar la cita

Mostrar la cita

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
Mostrar la cita

Mostrar la cita

"Jorge Eugenio" escribió en el

mensaje
Mostrar la cita

Mostrar la cita

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


Mostrar la cita

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

se
Mostrar la cita

Mostrar la cita

puede hacer, si
Mostrar la cita

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
Mostrar la cita

"Jorge Eugenio" escribió en el

mensaje
Mostrar la cita

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
Mostrar la cita

Mostrar la cita

Mostrar la cita

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


Mostrar la cita

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

access
Mostrar la cita

Mostrar la cita

Mostrar la cita

puedes vincular la
Mostrar la cita

hoja excel cual si fuera una tabla normal , tambien

podrías importarla y por
Mostrar la cita

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

Automatización (es decir
Mostrar la cita

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
Mostrar la cita

"Jorge Eugenio Mendoza"

escribió
Mostrar la cita

Mostrar la cita

Mostrar la cita

en el mensaje
Mostrar la cita

news:23dc01c4a706$e11fb350$
Mostrar la cita

Como puede hacer una macro para actualizar una base

de
Mostrar la cita

Mostrar la cita

Mostrar la cita

Mostrar la cita

Mostrar la cita

datos de excel o como puedo importar automaticamente

una
Mostrar la cita

Mostrar la cita

Mostrar la cita

base de datos de excel a una tabla ya creada de

access..
Mostrar la cita

Mostrar la cita

Mostrar la cita

Gracias...

.

.

.