ubiquitour.com

Cómo obtener acceso a hojas de cálculo de Excel con Visual Basic 6

Cómo obtener acceso a hojas de cálculo de Excel con Visual Basic 6

Crear, acceder y agregar o borrar datos en Excel es posible a través de Visual Basic 6. Algunas líneas de código en Visual Basic lograremos las dos primeras acciones. Sin embargo, cambio de datos de Excel es más complicado y requiere mucha más explicación que sea posible en este artículo. Escribir programas para hacer esto puede ser útil si el desarrollador necesita simplificar el uso de Excel para usuarios inexpertos. Usando Visual Basic los formularios permiten para más modificaciones y la instrucción que podría ser posible en Excel.

Instrucciones

1 Abrir el programa Microsoft Visual Basic 6; Haga clic en "Archivo" y "Nuevo proyecto". Elegir "Standard.EXE" en la lista de plantillas. Se abrirá un nuevo formulario en la pantalla, con la etiqueta "Proyecto 1 – Form1(Form)". Haga doble clic en tres veces en el icono botón de comando en el panel izquierdo para añadir tres botones al formulario. Guarde el formulario con un nombre de archivo de su elección.

2 Haga clic en "Vista" y "Las páginas de propiedades" (esto ya se puede mostrar en el panel derecho) y haga clic en el primer botón en el formulario. En la ventana Propiedades, haga doble clic en "Título" y cambiar el texto a la "Hoja de existente abierto." Cambiar el segundo título del botón "Crear nueva hoja de cálculo." Repita para el tercer botón, pero cambiar este título "Salida." Arrastre los dos primeros botones así que son opuesto uno al otro. Colocar la tercera parte por debajo de los otros dos.

3 Haga doble clic en el botón "Abrir hoja de cálculo existente". Esto cambia la vista del "Objeto" a "Código" e inserta un nuevo procedimiento. Escriba estas líneas exactamente como aparecen entre las "Privado Sub Command1_Click()" y "End Sub", que ya debe estar allí.

Opción explícitaDim MyExcel como New Excel.ApplicationMyWorkbook DIM como Excel.WorkbookDim MyWorksheet como Excel.WorksheetDim nombre de archivo como cadenaNombrearchivo = InputBox ("entrar nombre completo y ubicación del archivo de Excel)Establecer MyWorkbook = MyExcel.Workbooks.Open(FileName)Establecer MyWorksheet = MyExcel.ActiveSheetMyExcel.Visible = True

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

Establecer MyWorkbook = MyExcel.Workbooks.AddEstablecer MyWorksheet = MyWorkbook.Worksheets("Sheet1")Establecer MyWorksheet = MyExcel.ActiveSheetMyExcel.Visible = True

5 Acabado el código haciendo doble clic en el botón "Exit" en el formulario y escribir estas líneas.

MyExcel.QuitFinal

6 El programa de prueba presionando "F5". Si no funciona, volver atrás y comprobar el código. Debe ser exacta. Si obtienes un error que dice que no se puede encontrar el archivo existente, Compruebe la ubicación y asegurar que escribiste exactamente. Cuando todo está funcionando, haga clic en "Archivo", luego "Hacer" y seguir con el nombre asignado al proyecto al inicio. Esto creará una versión ejecutable que se puede ejecutar directamente.

Consejos y advertencias

  • Utilice las asas de arrastre en los botones de comando para ampliar a todo se muestra correctamente.
  • Mejorar el programa añadiendo algunas captura de error. Por ejemplo, una línea de código que lee de nuevo lo que el tipo de usuario en el indicador de archivo de existente abierto que dice "typed___. ¿Es esto correcto?"serán alertar al usuario de un error.
  • Asegúrese de cerrar, guardar y salir o bien la hoja de cálculo nueva o existente correctamente dentro de Excel, o pueden ser bloqueados para su edición la próxima vez.