Eduardo importar datos a Access
Como te va.. Un placer mi nombre es Eduardo y tengo una duda con respecto a access, te comento que estoy haciendo una aplicación que requiere descargar datos desde una hoja de excel a una tabla de access.. Tengo el siguiente código que solo me permiete importar una columna de excel a la vez y me gustaría poder importar varias al mismo tiempo:
Private Sub Comando31_Click()
'Inicializamos las Variables Objeto Aplicacion
Dim appExcel As Object
Dim rango1, rengo2
Set appExcel = CreateObject("Excel.Application")
'Abrimos el fichero de Excel donde tengamos los datos
appExcel.Workbooks.Open FileName:="c:\Fichero.Xls"
'Ponemos la aplicacion Excel Visible
appExcel.Visible = True
'Recojemos los datos de la hoja excel que nos interese
Dim IndicePrueba As Long
IndicePrueba = 1
appExcel.Range("A" & IndicePrueba, "B" & IndicePrueba).Select
With appExcel
Do While .ActiveCell.FormulaR1C1 <> ""
DoCmd.SetWarnings False
DoCmd.RunSQL ("INSERT INTO prueba ([Campo1],[Campo2]) VALUES(" & .ActiveCell.FormulaR1C1 & " , " & .ActiveCell.FormulaR1C1 & ")")
DoCmd.SetWarnings True
IndicePrueba = IndicePrueba + 1
.Range("A" & IndicePrueba, "B" & IndicePrueba).Select
Loop
End With
End Sub
Private Sub Comando31_Click()
'Inicializamos las Variables Objeto Aplicacion
Dim appExcel As Object
Dim rango1, rengo2
Set appExcel = CreateObject("Excel.Application")
'Abrimos el fichero de Excel donde tengamos los datos
appExcel.Workbooks.Open FileName:="c:\Fichero.Xls"
'Ponemos la aplicacion Excel Visible
appExcel.Visible = True
'Recojemos los datos de la hoja excel que nos interese
Dim IndicePrueba As Long
IndicePrueba = 1
appExcel.Range("A" & IndicePrueba, "B" & IndicePrueba).Select
With appExcel
Do While .ActiveCell.FormulaR1C1 <> ""
DoCmd.SetWarnings False
DoCmd.RunSQL ("INSERT INTO prueba ([Campo1],[Campo2]) VALUES(" & .ActiveCell.FormulaR1C1 & " , " & .ActiveCell.FormulaR1C1 & ")")
DoCmd.SetWarnings True
IndicePrueba = IndicePrueba + 1
.Range("A" & IndicePrueba, "B" & IndicePrueba).Select
Loop
End With
End Sub
1 Respuesta
Respuesta de denciso
1