Instalar Visual Basic 6 Enterprise Edition en Windows 7 x64

He tenido que instalar, por mantenimiento de aplicaciones en vb6, Visual Basic 6 Enterprise Edition en Windows 7 x64. Después de varias pruebas y consultas voy a narrar lo que a mí me ha funcionado.

He usado el siguiente enlace para instalar la aplicación (http://magomez4269.wordpress.com/2012/01/14/como-instalar-visual-basic-6-en-un-so-de-64-bits-y-no-morir-en-el-intento/)

Una vez instalado, cada vez que intentaba abrir un proyecto existente obtenía el siguiente error “La biblioteca de objetos no está registrada.”. Para solucionar este problema he seguido las instrucciones de este enlace (http://www.gxopen.com/forumsr/servlet/viewthread?ARTECH,4,188460). Simplemente abrir una consola como administrador y ejecutar la siguiente instrucción:

C:\Windows\SysWOW64>regtlib msdatsrc.tlb

Excel 2010 y VB.Net 2010

Lo primero que hay que hacer para poder usar Excel 2010 con Microsoft Visual Studio 2010, es añadir la referencia COM Microsoft Excel 14.0 Object Library al proyecto que se esté desarrollando. Después hay que escribir Imports Microsoft.Office.Interop al comienzo del módulo que va a interactuar con Excel.

Ahora voy a añadir unos cuantos ejemplos de ciertas operaciones que realizo con frecuencia:

-Crear una nuevo libro Excel.

Dim xlsApp As Excel.Application
Dim xlsLibro As Excel.Workbook
Dim xlsHoja As Excel.Worksheet

xlsApp = New Excel.Application
xlsLibro = xlsApp.Workbooks.Add
xlsHoja = xlsLibro.Worksheets(1) ‘Para poder trabajar con la primera hoja Excel del libro
xlsHoja = xlsLibro.Worksheets.Add(, xlsLibro.Worksheets(intHoja – 1))’Añadir una nueva hoja Excel al final del libro

-Eliminar la hoja ii del libro Excel.

Call xlsLibro.Worksheets(ii).delete()

-Añadir una fórmula a una celda.

xlsHoja.Range(“C5”).Formula = “=SUM(C1:C4)”

-Cambiar el color de la fuente a azul de una celda o rango.

xlsHoja.Range(“A1”).Font.Color = RGB(0, 0, 255)

-Cambiar el tamaño de la letra de una celda o rango.

xlsHoja.Range(“A1:H10”).Font.Size = 13

-Cambiar el ancho de una columna.

xlsHoja.Columns(“A”).columnwidth = 8

-Guardar un libro en formato xls.

Call xlsLibro.SaveAs(“C:\ejemplo.xls”, FileFormat:=56)

-Guardar un libro y cerrar la aplicación.

Call xlsLibro.SaveAs(“c:\ejemplo.xlsx”)
xlsHoja = Nothing
xlsLibro.Close(False)
xlsLibro = Nothing
xlsApp.Quit()
xlsApp = Nothing