Red de conocimiento informático - Material del sitio web - Cómo utilizar un lenguaje sencillo para manipular datos dentro de Excel

Cómo utilizar un lenguaje sencillo para manipular datos dentro de Excel

Cree "Programas de Windows" utilizando un entorno de programación de lenguaje simple. Haga clic en el elemento del menú "Herramientas" -> "Configuración de la biblioteca de soporte".

En la ventana que se abre, busque y seleccione "Biblioteca de soporte de objetos genéricos

Versión 2.0" y luego haga clic en "Aceptar" para agregar el componente "Super List Box".

Se muestra la siguiente pantalla de la ventana de inicio e incluye los componentes Base de datos externa y Super List Box (disponibles en el panel de extensión).

Luego usa Excel para crear un archivo Excel llamado "jiance.xls". El contenido del archivo se ve así:

Nota: coloque este archivo en el mismo directorio que el programa.

5. Asegúrese de que "Iniciar ventana" esté seleccionado y luego agregue un evento "Crear completo". Luego ingrese el siguiente código:

.Version

2

.Bibliotecas soportadas

iext

. Si es verdadero

(Base de datos externa 1.Abrir

("ODBC; DBQ="

Obtener el directorio actual

()

"\jiance.xls; Controlador={Microsoft

Excel

Controlador

(*.xls)}; DriverId=790; FIL=excel

8.0; MaxScanRows=8; =admin;UserCommitSync=Sí;",

,

)

=

Falso)

Mensaje box

("¡Error en la conexión de la base de datos!" ,

Icono #Error,

)

Volver

()

.Si es verdadero fin

Declaración de consulta

=

"select

*

de

[Sheet1$]"

RecordSet

=

Base de datos externa 1. Consulta

(declaración de consulta)

.

Si es verdadero

(recordset

=

0)

Cuadro de mensaje

("¡La consulta falló!" ,

#Icono de error,

)

Regresar

()

Si es verdadero, entonces Finalizar.

Base de datos externa 1. Ir al primer registro

(conjunto de registros)

Local_count

=

1

Super cuadro de lista 1. Insertar columna

(,

"Número de serie",

80,

,

,

)

SuperListBox1.InsertColumnSuperListBox1.InsertColumn

(,

"Género",

80,

,

,

)

SuperListBox1.InsertColumn

( ,

"Edad",

80,

,

,

,

)

.read

(conjunto de registros,

2)

local_temporaryC

=

A Texto

(Base de datos externa 1.PutTitle

(Index,

0,

ToText

(Local_Count))

SuperListBox1 Establecer título

(index,

1,

local_temporaryA)

Super cuadro de lista 1. Establecer título

(índice,

3,

Local_TemporaryC)

Base de datos externa 1. Ir al siguiente registro

(conjunto de registros)

Local_Count

=

Local_Count

1

Determinar el final del bucle

()

Base de datos externa 1. Cerrar el conjunto de registros

().

p>