El código fuente para importar Excel a la base de datos interna de pb cuando la aplicación se está ejecutando, quién sabe, por favor ayúdenme, ¡gracias!

Tenga en cuenta que idw_dw es el control de ventana de datos de destino

Ruta de cadena, nombre de archivo

valor entero, resultado

valor = GetFileOpenName(" Seleccione Archivo", ruta, nombre de archivo, "xls", "Archivos xls (*.xls), *.xls, Archivos de texto (*.TXT), *.TXT, archivos DBF (*.DBF), *.DBF")

si valuelt;gt;1 entonces regresa

si right(path, 3)='xls' o right(path, 3)='XLS' entonces

OLEObject ObjExcel

ObjExcel = CREAR OLEObject

resultado = ObjExcel.ConnectToNewObject( "excel.application")

Si el resultado es lt;gt; /p>

messagebox("Mensaje", "Error al conectarse a EXCEL. ¡Compruebe si EXCEL está instalado en su computadora!")

Volver

else

ObjExcel.Workbooks.Open(path) //ls_rj es la ruta del archivo

ObjExcel.ActiveSheet.Application.Visible = false

Si el resultado es lt;gt; 0 entonces

messagebox("Mensaje", "Error al conectarse a EXCEL. ¡Compruebe si EXCEL está instalado en su computadora! Application.Visible = false

idw_dw.SetTransObject(SQLCA )

idw_dw.ImportClipboard(2) //Pegue el contenido del portapapeles del sistema en la ventana de datos, donde 2 es el parámetro de la línea inicial

Portapapeles("") //Por favor borrar el contenido del portapapeles

ObjExcel.Quit()

ObjExcel.DisconnectObject()p>elseif right(path, 3)='txt' or right(path, 3) ='TXT' entonces

idw_dw.importfile(ruta, 2)

otra opción right(ruta, 3)='dbf' o derecha(ruta, 3)='DBF' entonces

idw_dw.importfile(ruta, 1)

end if

La ventana de importación de datos es muy fácil de manejar. ! ! ! ! ¡Solo ACTUALIZA!