Código fuente de la aplicación

Proporcione un método para importar Excel a la ventana de datos.

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("Seleccionar archivo", ruta, nombre de archivo, " xls ", " xls file(*.xls),*.xls,*.txt,*.dbf(*.dbf),*.dbf")

Si el valor lt es

Si es correcto (path,3)='xls' o right(path,3)='XLS', luego

Elemento de objeto OLEObject

ObjExcel = Crear OLEObject

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

Si el resultado es lt gt entonces 0

Messagebox("Mensaje de información", "Error al conectarse a EXCEL, verifique si EXCEL está instalado en la computadora!" )

Regresar

Otros

objexcel . workbooks . open(path)//ls _ rj es la ruta del archivo.

ObjExcel. ActiveSheet.Cells.Copy

ObjExcel. Aplicación.Visible = false

idw_dw. SetTransObject(SQLCA)

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

Clipboard(" "//Déjelo en blanco para recortar el contenido en el tablero.

ObjExcel.Exit()

ObjExcel.DisconnectObject() / / Desconectarse de OLE

Destruir destino

Finalizar si...

De lo contrario, si right(path, 3) = 'txt ' o right(path, 3) ='TXT' entonces

idw_dw.importfile(ruta, 2)

elseif right(ruta, 3)='dbf' o derecha(ruta, 3)= 'DBF '

idw_dw.importfile(ruta, 1)

Terminará si...

Después de importar a la ventana de datos, ¡es muy sencillo de procesar! ¡Solo actualízalo!