¿Cómo importar datos de Excel en Access en vb6.0? ¿Puedes darme un código fuente? Gracias

Subcomando privado 1_Click()

Marcar cn como conexión

Poner rs como Dim el conjunto de registros

Mostrar sql como una cadena

Dim n tiene la misma longitud, m tiene la misma longitud

Establecer cn = nueva conexión

cn. Abra "Provider=Microsoft.Jet.OLEDB.4.0"&_

"DataSource="&App. Caminos y caminos. "\test.mdb"

SQL = "SELECCIONAR * De[hoja 1 $]IN" &Chr(34)&App. Caminos y caminos. "\test.xls"&Chr(34)&Chr(32)&Chr(34)&"EXCEL 8.0"&HRC(34)

Depurar. print sql

Establecer rs = cn. ejecutar(sql)

en lugar de rs. Fin del archivo

sql = "insert into tb(id,num,dt)value(""&rs.field(0)&,"&val(rs.field(1))& amp;, # "&rs.Field(2)&#)"

cn. Ejecute sql, n

m = m + n

rs. Siguiente

Fila

Establecer rs=None

Establecer cn=None

MsgBox" Datos escritos correctamente: "&m

Conector final

Requisitos:

1. Hay una base de datos test.mdb en la carpeta actual, que contiene una tabla llamada tb y sus campos id, num, dt. , el primero es de tipo carácter, el segundo es de tipo numérico y el tercero es de tipo de fecha.

2. Los títulos y tipos de datos de la tabla EXCEL deben corresponder preferentemente a los campos del tb.