Autor Tema: Ayuda Para Trasferir Datso De Un Xls A Un Mdb (Leído 1887 veces)

seba_m · « **en:** Domingo 29 de Mayo de 2005, 21:36 »

Hola,

NEcesito que alguién me ayude, necesito pasar todos los datos que hayn en un archivo .xls a access, es decir tranferir toda la informacion de un excel a access

Gracias

cpmario · « **Respuesta #1 en:** Lunes 30 de Mayo de 2005, 05:29 »

Usa copiar y pegar. Asegurate que la línea superior tenga los nombres de los campos. Abre una base de datos nueva en Access. Luego pega en Access la información que copiaste desde Excel.
Esto funciona en Office 2000, y debe funcionar en Office 2003

seba_m · « **Respuesta #2 en:** Lunes 30 de Mayo de 2005, 05:38 »

Hay alguna otra manera, ya que ne la facu lo que me piden es que desarrolle en VB 6.0 una aplicación que de manera automatica haga esto.

Se puede ?

Gracias

cpmario · « **Respuesta #3 en:** Lunes 30 de Mayo de 2005, 20:08 »

Busca en
http://www.planet-source-code.com/vb/default.asp?lngWId=1

Excel To Access

Te doy el enlace directo:

http://www.planet-source-code.com/vb/scrip...=34110&lngWId=1

seba_m · « **Respuesta #4 en:** Martes 31 de Mayo de 2005, 05:43 »

Mil gracias esta de diez, una consultita más y te aprobecho, como puedo hacer para que al salir de una aplicacion en vb, el sistema se cierre completo,
Por ejemplo yo en cmdSalir tengo esta sentencia
unload me
pero no sale todo
como puedo hacer para matarla totalmente.

Gracias

cpmario · « **Respuesta #5 en:** Martes 31 de Mayo de 2005, 07:48 »

En el evento Unload de la forma coloca las llamadas a subrutinas

Código: Text

Private Sub Form_Unload(Cancel As Integer)
    Call CloseAllDatabases
    Call UnloadAllForms
    End
End Sub
 
 

Lo siguiente lo colocas en un módulo BAS. Esta rutina CloseAllDatabases es para DAO

Código: Text

Sub CloseAllDatabases()
    ' Close out db objects
    ' and release all memory    '
    On Error Resume Next
    Dim wsObject As Workspace
    Dim dbObject As Database
    Dim rsObject As Recordset
    
    For Each wsObject In Workspaces
        For Each dbObject In wsObject.Databases
            For Each rsObject In dbObject.Recordsets
                rsObject.Close
                Set rsObject = Nothing
            Next
            dbObject.Close
            Set dbObject = Nothing
        Next
        wsObject.Close
        Set wsObject = Nothing
    Next
End Sub
 
Sub UnloadAllForms()
   Dim frm As Integer
   frm = Forms.Count
 
   Do While frm &#62; 0
      Unload Forms(frm - 1)
      If frm = Forms.Count Then Exit Do
      frm = frm - 1
   Loop
End Sub
 
 

Makko · « **Respuesta #6 en:** Martes 31 de Mayo de 2005, 20:10 »

Gracias... lo de cerrar todo... me sirvio a mi tb.
Saludos amigo.

SoloCodigo

Autor Tema: Ayuda Para Trasferir Datso De Un Xls A Un Mdb (Leído 1887 veces)

seba_m

Ayuda Para Trasferir Datso De Un Xls A Un Mdb

cpmario

Re: Ayuda Para Trasferir Datso De Un Xls A Un Mdb

seba_m

Re: Ayuda Para Trasferir Datso De Un Xls A Un Mdb

cpmario

Re: Ayuda Para Trasferir Datso De Un Xls A Un Mdb

seba_m

Re: Ayuda Para Trasferir Datso De Un Xls A Un Mdb

cpmario

Re: Ayuda Para Trasferir Datso De Un Xls A Un Mdb

Makko

Re: Ayuda Para Trasferir Datso De Un Xls A Un Mdb