Red de conocimiento informático - Espacio del host - Leo datos de Excel en lenguaje sencillo como un conjunto de bytes

Leo datos de Excel en lenguaje sencillo como un conjunto de bytes

Importación de programas Excel y libros de Excel

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)