|   
			 
			
			
			
			
			
			
		     
			
				23/06/2006, 15:52
			
			
			     |  
      |    |    |    Fecha de Ingreso: junio-2006  
						Mensajes: 2
					  Antigüedad: 19 años, 4 meses Puntos: 0     |        |  
  |      Importar hoja de excel a access con visual basic 6.0        hola y gracias de antemano  
Tengo unas tablas en Excel y deseo pasarlas a tablas en Access por medio de visual basic 6.0   
Encontré un código y lo estoy empleando que hace la importación pero no se bien como funciona por que me sale el siguiente error.    
Error: -2147217865 (80040e37)    
El motor de base de datos Microsoft jet no pudo encontrar el objeto ‘Worksheet1$A1:M50’ Asegúrese  que el objeto existe…..   
El código que estoy usando es el siguiente: 
Dim sTablaOrigen As String, sTablaDestino As String 
Dim sConnect As String, sSQL As String 
Dim cnnActiva As ADODB.Connection   
' Establezco la conexión con la base de datos de Access, 
' la cual será la base de datos "Activa" 
Set cnnActiva = New ADODB.Connection 
cnnActiva.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ 
                         "Data Source=C:\IEEA\BASEDATOS.mdb;"   
sTablaDestino = "[NUEVO]" 
sTablaOrigen = "[WorkSheet1$A1:M50]"   
' Importo la tabla a la base de datos "Activa" 
sConnect = "'C:\IEEA\book.xls' 'Excel 8.0;HDR=Yes;'"   
sSQL = "SELECT * INTO " & sTablaDestino & " FROM " & sTablaOrigen & " IN " & sConnect 
cnnActiva.Execute sSQL   
' Cierro la conexión 
cnnActiva.Close 
''''''''''''''''''''''''''''''''''''''''''''''''''  ''''''''''''''''''''''''''''''       
Tal vez estoy asignando mal las tablas ademas no se si la tabla de access  (sTablaDestino) ya debe estar hecha en Access o este código la crea.  
No se si se requiere de alguna referencia que estoy pasando por alto o que pasa.           |