Easy Language lee la tabla de Excel y los elementos de la tabla están en el formato personalizado hh:mm:ss, que se convierte en 0,09636524 después de la lectura.

.Soporta biblioteca iext

.Soporta biblioteca de especificaciones

. Variable local local_count, número entero

. Variable local local_temporary_A, tipo texto

. Índice de variable local, tipo entero

SuperListBox1.DeleteAll ()

GeneralDialog1.Filter = "Archivo EExcel (*.xls)|*.xls"

GeneralDialog1 .InitialDirectory = Obtener el directorio en ejecución ()

Diálogo general 1.Nombre de archivo = ""

Diálogo general 1.Abrir ()

.If (Genérico Diálogo 1.nombre de archivo ≠ "")

Base de datos externa 1.Abrir ("ODBC;DBQ=" + Diálogo genérico 1.nombre de archivo + ";Driver={ Controlador de Microsoft Excel (*.xls)};DriverId = 790;FIL=excel 8.0;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;ReadOnly=0;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;",)

Declaración de consulta = "select * from [Sheet1$]"

Conjunto de registros = Consulta externa1 (declaración de consulta)

Salida de depuración (conjunto de registros)

Externa Base de datos1 .al primer registro (conjunto de registros)

Local_count = 1

determina el primer registro del bucle (base de datos externa 1. después del último registro (conjunto de registros) = falso. )

Local_TemporaryA = Base de datos externa 1.Leer (conjunto de registros, 1)

Index = SuperListBox1.insertar entrada de tabla (, , , , )

SuperListBox1. establecer título (index, 0, to text (local_total))

SuperListBox1.set title (index, 1, local_temporaryA)

Base de datos externa 1. Ir al siguiente registro (recordset )

local_count = local_count + 1

Aceptar fin del bucle ()

Base de datos externa 1. cerrar ()

Botón 2. desactivar = falso

.