En este grupo En todos

Grupo de Programación e Informática



traspasar datos que estan en excel a tabla access con vb6.0

alicia
Santiago, Chile
Escrito por Alicia Riquelme Torres
el 24/02/2009 | Nivel Medio

Me gustaría que me pudieran indicar como abrir una tabla excel,en VB 6. 0, necesito incluir alguna referencia en especial? , ojalá puedan ayudarme. Saludos Ali.

Willy Cotrina
Perú, Perú
Escrito por Willy Cotrina
el 26/02/2009 | Nivel Medio

Pues usa OLEDB u ODBCy es solo hacer Queries

Alicia Riquelme Torres
Santiago, Chile
Escrito por Alicia Riquelme Torres
el 27/02/2009 | Nivel Medio

Mira lo que hice y me dió resultados , solamente agregando la referencia de excel, gracias por responder ,Saludos



Private Sub cmdTraspasodatos_Click()
Dim objExcel As Excel. Application 'Variable de tipo Aplicación de Excel
Dim xLibro As Excel. Workbook 'Una variable de tipo Libro de Excel
Dim Col As Integer, Fila As Integer 'creamos un nuevo objeto excel.
Dim MyDB As Database
Dim MySet As Recordset
Dim strSQL As String
Dim xRegistro As Excel. Worksheet

Set objExcel = New Excel. Application 'Usamos el método open para abrir el archivo que está _
en el directorio del programa llamado prueba1. Xls

Set xLibro = objExcel.Workbooks.Open("C:\Documents and Settings\Yngrid\Escritorio\excel-access\prueba1. Xls")

Set xRegistro = xLibro. Worksheets("Ferreteria")

objExcel. Visible = True 'Hacemos el Excel Visible

With xLibro

With xLibro. Sheets(1) ' Hacemos referencia a la Hoja


For Fila = 2 To 15 'Recorremos la fila desde la 4 hasta la 13

'Combo1. AddItem. Cells(Fila, 2)'Agregamos el valor de la fila que _
corresponde a la columna 2

Set MyDB = Workspaces(0). OpenDatabase("C:\Documents and Settings\Yngrid\Escritorio\excel-access\PRUEBA. Mdb", False, False)
Set MySet = MyDB. OpenRecordset("TablaDos")
MySet. AddNew

MySet! Dos_Codigo = xRegistro. Cells(Fila, 1)
MySet! Dos_Descripcion = xRegistro. Cells(Fila, 2)
MySet! Dos_UnidadMedida = xRegistro. Cells(Fila, 3)
MySet. Update


Next
End With

MsgBox " Se han traspasado Datos a Tabla de nuestra Base de Datos PRUEBA", vbOKOnly + vbCritical, "INFORMACION"
End With


Set objExcel = Nothing 'Eliminamos los objetos si ya no los usamos
Set xLibr