Leo datos de Excel en lenguaje sencillo como un conjunto de bytes
Versión 2
Soporte para biblioteca eExcel2000
. Admite biblioteca iext
. Admite biblioteca eAPI
Subrutina Importar datos 1, , Importar nuevos datos
Variable local local_count1, entero
<. p>.Variable local local_count, entero. Variable local local_export_header, tipo de texto, "0"
. Variable local local_flag, tipo de texto
. Variable local local_index, tipo entero
Botón 1. visible = false
2.
_StartupWindow.ExcelProgram1.Create()
_StartupWindow .ExcelWorkbook1.Program (_StartupWindow.ExcelProgram1)
_StartupWindow.ExcelWorkbook1.ActivateWorkbook ()
_StartupWindow.ExcelWorkbook1.Open (_StartupWindow.ExcelWorkbook1)
_StartupWindow.ExcelWorkbook1 .Abrir(_StartupWindow.ExcelWorkbook1).
ExcelWorkbook1.Open (_StartupWindow.General Dialog 1.Nombre de archivo)
_StartupWindow.ExcelWorkbook1.FormNumber = 1
SuperListBox1.ReportColumns = { }
.Count Loop Primero (25, local_count) 'Obtener miembros de la matriz (local_export_head)
SuperListBox1.InsertColumn (-1, "", 80, , , ) ' local_export_head [local_count]
.Bucle de conteo tail ()
Local_flag = "1"
Local_count = 1
Determine el encabezado del bucle (elimine todos los valores nulos (local_flag) ≠"")
Manejo de eventos ()
Local_flag = ""
.Count Loop First (25, Local_Count1) ' Obtener miembros de la matriz (Local_Export_Header)
_StartupWindow .ExcelWorkbook1.FirstCell = Caracteres (97 Local_Count1 - 1) ToText (Local_Count 1)
_StartupWindow.ExcelWorkbook1.LastCell = Caracteres (97 Local_Count1 - 1)
_StartupWindow.ExcelWorkbook1.LastCell = Caracteres (97 Local_Count1 - 1)
_StartupWindow.ExcelWorkbook1.LastCell = Caracteres (97 Local_Count1 - 1)