Visual Basic - INSERTAR EN ACCESS....urgente!!!

Life is soft - evento anual de software empresarial
 
Vista:

INSERTAR EN ACCESS....urgente!!!

Publicado por Guay (69 intervenciones) el 02/09/2002 12:52:38
Hola foro!

Estaba intentando exportar desde una hoja de Excel a una tabla de access automaticamente desde VB. Tengo este codigo que en principio era para pasar de access a excel y queria cambiarlo. Lo he intentado cambiar pero sin mucha fortuna y me ha quedado de esta forma pero me da un error en la clausula "FROM". Algun alma caritativa me podria decir donde fallo o alguna otra forma de hacerlo? El codigo es el siguiente:

Private Sub Command1_Click()
'Deberemos referenciar DAO
Dim strExcelFile As String
Dim strWorksheet As String
Dim strDB As String
Dim strTable As String
Dim objDB As Database

'Cambiaremos estos datos de acuerdo a nuestras necesidades
strExcelFile = "C:\TEMP.xls"
strWorksheet = "Hoja1"
strDB = "O:\camiones\Base Datos\Copia de bdtn.mdb"
strTable = "ExcelFinal"
Set objDB = OpenDatabase(strDB)

objDB.Execute " SELECT * INTO [" & strTable & "] FROM " & " [Excel 8.0; DATABASE=" & strExcelFile & "].[" & strWorksheet & "]"

objDB.Close
Set objDB = Nothing

End Sub

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