Visual Basic - Problemas para crear una sentencia

Realmente no consigo aun la solucion para mi problema que es el siguiente:

* Las sucursales de la compañia para la cual trabajo me envian un archivo
excel y tengo que llevar la informacion de estos archivos a acces pero
directamente desde el programa que esta hecho en Visual Basic 6.0 ya
que este proceso lo ara el usuario pero no le consigo la vuelta al
problema.
Si me pueden ayudar se los agradesco mucho.
Gracias...


Gilberto Perez

Pretendes abrir desde VBasic un archivo en Excel y su contenido "pasarlo" a un archivo en Access..??

Si acaso es así pues si se puede, desde Visual Basic puedes abrir un archivo en Excel y luego vaciar el contenido de las celdas a un archivo en Access, pero ambos archivos deben guardar cierta similitud.

Necesitar ubicar bien qué celdas son las que quieres guardar en tu archivo en Access.

Si acaso eso es lo que buscas, dime para ponerte algo de código con el que te puedas basar para hacer tu sentencia...

Si compadre eso es lo que quiere hacer te lo agradecria bastante por prestrme tu ayuda bueno espero tu pront respuesta y bueno si eres de caracas te puedo hasta brindar unas cervecitas.

Listo... me di tiempo para hacer lo que necesitas... y hasta me sirvió para guardarlo por si acaso yo lo llego a necesitar algún día... ahí va...

Private Sub Pasa_Archivo()
Dim Archivo As ADODB.Connection
Dim Tabla As ADODB.Recordset
Dim objExcel As excel.Application
Dim xlSheet As excel.Worksheet
Dim Salir As Boolean
Dim Valor As String
' abres el archivo en access en donde agregarás el de excel
Set Archivo = New ADODB.Connection
Set Tabla = New ADODB.Recordset
Archivo.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ejemplo.mdb;Persist Security Info=False;"
Archivo.Open
Tabla.Open "SELECT * FROM ejemplo1", Archivo, adOpenKeyset, adLockOptimistic
'abres el archivo de excel
Set objExcel = Nothing
Set objExcel = New excel.Application
objExcel.Workbooks.Open FileName:="c:\ejemplo.xls"
objExcel.Visible = False ' para que no se vea la pantalla de excel
' tienes que establecer un renglón inicial en tu archivo en excel
' como mencioné antes, el archivo en excel tiene que tener alguna similitud
' o seguir un mismo formato
Renglon = 2
With objExcel
Do
' de alguna manera tienes que definir cuántos registros vas a agregar
If .Cells(Renglon, 1) = "" Then
Salir = True
Else
Salir = False
Tabla.AddNew
Tabla("nombre") = .Cells(Renglon, 1)
Tabla("domicilio") = .Cells(Renglon, 2)
Tabla("telefono") = .Cells(Renglon, 3)
Tabla.Update
Renglon = Renglon + 1
End If
Loop Until Salir
End With
' terminado... la tabla ya tiene agregados los
' registros que estaban en excel, ahora se cierran las tablas
' y se libera la aplicación del excel
Tabla.Close
Archivo.Close
objExcel.Workbooks.Close
Set objExcel = Nothing
End Sub

Partimos de la suposicion que el archivo "ejemplo.xls" está ubicado en "C:\", ese archivo tiene que existir y tiene que estar de la siguiente manera (en el ejemplo del código que puse...)

Nombre Domicilio Teléfono
JUAN PEREZ AV. DE LA AMISTAD Nº 465 5698-6985
JOSE LOPEZ BLVD. LIBERTADORES Nº 987-A 6598-7896

O sea, la celda A1 contiene el texto "Nombre"

Al igual debe de existir un archivo en Access llamado "ejemplo.mdb", igualmente ubicado en "C:\", el cual debe contener una tabla llamada "ejemplo1".

Ya de ti dependerá controlar los errores en caso de que el archivo "ejemplo.xls" no exista y otras cosillas más..

Espero te sea de utilidad y lástima de las cervecitas... estoy en México... pero tómate unas cuando hayas conseguido lo que buscabas... para celebrar...
SALUDOS

Compadre si le soy sincero tu no me lo podrias mostrar en un proyecto es que tengo tiempo sin programar y me sta dando una faya y no re cuerdo a que se motiva y discula el habuso

LO que pasa amigo nuevo es que mi fuerte es el soporte tecnico soy certificado CCNA en redes Cisco y voy por la certificacion CCNP entonces salio despedido una persona y por la emergencia me entregaron el proyecto a mi y realmente recuerdo muy poco la programacion ya que me he abocado a la parte de soporte en redes y equipos incluso voy a comenzar con el Curso de Windows 2003 Server y LINUX

Ivan amigo ehcame una manito ....

Es que ya no puedo ser más explícito, necesitaría saber exactamente qué es lo quieres hacer... cómo es tu archivo de excel y cómo es tu archivo de access.

O mejor... dime cuál es la falla que te está poniendo... a ver si acaso puedo saber como solucionarlo.

SALUDOS

Lo que dice es que no se a definido el tipo definido por el usuario