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

Creación , el acceso y la adición o eliminación de datos en Excel es posible a través de Visual Basic 6. Algunas breves líneas de código en Visual Basic lograrán las dos primeras acciones . Sin embargo, cambiar los datos de Excel es más complicado y requiere mucho más que una explicación posible en este artículo. Creación de programas para hacer esto puede ser útil si el desarrollador tiene que simplificar el uso de Excel para los usuarios inexpertos . Uso de formularios de Visual Basic permiten más modificaciones e instrucción de lo que sería posible en Excel. Instrucciones
1

Abra el programa Microsoft Visual Basic 6 , . " Nuevo proyecto ", haga clic en "Archivo " y seleccione " Standard.exe " de la lista de plantillas . Un nuevo formulario se abrirá en la pantalla , denominado " Proyecto 1 - Form1 (formulario ) ". Haga doble clic tres veces sobre el icono del botón de comando en el panel izquierdo para agregar tres botones al formulario . Guarde el formulario con un nombre de archivo de su elección .

2 Haga clic en "Ver" y "Propiedades Pages " ( este ya puede mostrar en el panel de la derecha ) y haga clic en la primera 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 del botón de "Crear Nueva hoja de cálculo . " Repetir para el tercer botón , sino que cambian este título a " Exit ". Arrastre los dos primeros botones por lo que son opuestas entre sí. Coloque el tercero a continuación los otros dos.

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

Opción ExplicitDim MyExcel As New Excel.ApplicationDim MyWorkbook Como Excel. WorkbookDim MyWorksheet Como Excel.WorksheetDim nombre de archivo como StringFileName = InputBox ( " Escriba el nombre completo y la ubicación del archivo de Excel ") Set MyWorkbook = MyExcel.Workbooks.Open ( nombre de archivo) Set MyWorksheet = MyExcel.ActiveSheetMyExcel.Visible = True

4

Haga doble clic en "Crear Nueva hoja de cálculo " y escriba estas líneas de código .

Set MyWorkbook = MyExcel.Workbooks.AddSet MyWorksheet = MyWorkbook.Worksheets Set ( "Sheet1 ") MyWorksheet = MyExcel.ActiveSheetMyExcel.Visible = True
5

Finalizar el código , haga doble clic en el botón " Exit" en el formulario y escribir estas líneas.

MyExcel.QuitEnd
Página 6

probar el programa con la tecla " F5 ". Si esto no funciona , vuelva atrás y compruebe el código. Debe ser exacta . Si obtiene un error diciendo que el archivo existente no se encuentra , compruebe la ubicación y asegurarse de que ha introducido con exactitud. Cuando todo funciona , haga clic en " Archivo", luego " Marca" y siga por el nombre que ha asignado al proyecto desde el principio. Esto creará una versión ejecutable que se puede ejecutar directamente .