¿Cómo importa la aplicación el código fuente?

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 archivos (*. Devuelve

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

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 es instalado en la computadora!" ")

Regresar

Otros

objexcel workbooks . .

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!