Cómo acceder a las hojas de cálculo de Excel con Visual Basic 6

Creación, el acceso y la adición o supresión de datos en Excel es posible a través de Visual Basic 6. Algunas breves líneas de código en Visual Basic se logran las dos primeras acciones. Sin embargo, el cambio de datos de Excel es más complicado y requiere considerablemente más explicación que sea posible en este artículo. Escribir programas para hacer esto puede ser útil si el desarrollador tiene que simplificar el uso de Excel para los usuarios no entrenados. Uso de formularios de Visual Basic permiten una mayor modificación y la instrucción de lo que sería posible en Excel.

Instrucciones

1 Abra el programa de Microsoft Visual Basic 6; haga clic en "Archivo" y "Nuevo proyecto". Seleccione "standard.exe" de la lista de plantillas. Una nueva forma se abrirá en la pantalla, denominada "Proyecto 1 -. Form1 (Formulario)" Haga doble clic tres veces en el icono de botón de comando en el panel de la izquierda para agregar tres botones al formulario Guarde el formulario con el nombre de archivo. tu elección.

2 Haga clic en "Ver" y "Páginas Propiedades" (esto ya puede mostrar en el panel de la derecha), y haga clic en el primer botón en el formulario. En la ventana Propiedades, haga doble clic en "Leyenda" y cambiar el texto a "Abrir Hoja de cálculo existente." Cambiar el segundo título de botón de "Crear nueva hoja de trabajo." Repita para el tercer botón, pero cambiar este título a "Salir". Arrastre los dos primeros botones por lo que son opuestas entre sí. Coloque el tercero una debajo de los otros dos.

3 Haga doble clic en el botón "Abrir hoja de cálculo existente". Esto cambia el punto de vista de "objeto" a "Código" e inserta un nuevo procedimiento. Escribir estas líneas exactamente como aparecen entre el "Private Sub Command1_Click ()" y "End Sub", que ya debería estar ahí.

Option Explicit
Dim MyExcel Como Nueva Excel.Application
Dim MyWorkbook Como Excel.Workbook
Dim MyWorksheet Como Excel.Worksheet
Dim NombreArchivo As String
Filename = InputBox ( "Introducir nombre y ubicación del archivo de Excel")
Establecer MyWorkbook = MyExcel.Workbooks.Open (nombre del archivo)
Establecer MyWorksheet = MyExcel.ActiveSheet
MyExcel.Visible = True

4 Haga doble clic en "Crear nueva hoja de trabajo" y escriba estas líneas de código.

Establecer MyWorkbook = MyExcel.Workbooks.Add
Establecer MyWorksheet = MyWorkbook.Worksheets ( "Sheet1")
Establecer MyWorksheet = MyExcel.ActiveSheet
MyExcel.Visible = True

5 Termina el código haciendo doble clic en el botón "Salir" en la forma y escribir estas líneas.

MyExcel.Quit
Fin

6 Pruebe el programa pulsando la tecla "F5". Si esto no funciona, volver atrás y vuelva a comprobar el código. Debe ser exacta. Si obtiene un error diciendo que el archivo existente no puede ser encontrado, comprobar la situación y asegurarse de que ha introducido exactamente. Cuando todo está funcionando, haga clic en "Archivo", luego "Marca" y seguirlo por el nombre que ha asignado al proyecto desde el principio. Esto creará una versión ejecutable que puede ejecutar directamente.

Consejos y advertencias

• Utilice los controles de arrastre sobre los botones de comando para ampliarlos para mostrar todo correctamente.
• Mejorar el programa mediante la adición de un poco de la captura de errores. Por ejemplo, una línea de código que vuelve a leer lo que el usuario escriba en el símbolo del archivo existente abierto que dice "Usted typed____. ¿Es eso correcto? "Alertará al usuario un error.
• Asegúrese de cerrar, guardar y salir de la hoja de cálculo, ya sea nueva o existente adecuadamente dentro de Excel, o puede ser bloqueado para corregir la próxima vez.