Importar código fuente de resumen 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!