Visual Basic - Urgente: Importar de Excel a Access

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Urgente: Importar de Excel a Access

Publicado por Vero (104 intervenciones) el 03/10/2005 13:12:04
Hola, a ver si me podeis ayudar, por favor.
Necesito importar una hoja de cálculo Excel a Access, a través de Visual Basic, claro. ¿Me podeis decir cómo se hace, por favor?

Un saludo y gracias por adelantado.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Urgente: Importar de Excel a Access

Publicado por Ricardo (19 intervenciones) el 03/10/2005 16:25:35
Mira yo utilizo esto para pasar de excel a access, espero te sirva, lo unico que tienes que tener en cuenta en que fila y columna empiezan los datos.

Nota: lo que yo hago es elegir el excel mediante un common dialog, pero si tu siempre vas a tener la misma ruta colocas esa.

On Error GoTo errores
Dim ApExcel As Variant
Dim xlApp As Excel.Application
Dim mySheet As Excel.Worksheet
Dim vlRuta As String
Dim ValorBus As Single
Dim i As Integer

Base.Execute ("delete from hojaprod")

Set ApExcel = CreateObject("Excel.Application")
ApExcel.Workbooks.Open RutaEx 'Ruta de donde se encuentra el archivo excel
Set mySheet = ApExcel.Worksheets(1)
i = 1
With mySheet
i = i + 1
Do While .Cells(i, 1) <> "" 'Empieza el Ciclo de la Columna A hacia abajo
Set REG = Base.OpenRecordset("select * from hojaprod")
REG.AddNew
REG!Planta = .Cells(i, 1)
REG!guia = .Cells(i, 2)
REG!letra = Trim(.Cells(i, 3))
REG.Update
i = i + 1
Loop
End With
ApExcel.Quit
Set ApExcel = Nothing

errores:
If Err.Number <> 0 Then
Set ApExcel = Nothing
MsgBox Err.Description, vbCritical, CStr(Err.Number)
Err.Clear
End If

Espero te sirva.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar