Cargar y calcular hojas exel desde Visual basic 6
Buenos días.
Soy ingeniero civil cuyo hobby es la programación en Visual basic 6.
Resulevo muchos problemas en el día a día usando exel debido a que este programa esta instalado en cualquier empresa, sea grande o pequeña.
Actualmente deseo integrar todas esas hojas de calculo por medio de un pequeño programa que cargue una hoja especifica, me permita introducir datos en algunas celdas especificas y hacer los cálculos. En el fondo lo que deseo es tener una presentación aceptable mientras tengo tiempo para programarlo en VBacic.
¿Me podrían ayudar a inciar esta aplicación?
Saludos y gracias de antemano.
Soy ingeniero civil cuyo hobby es la programación en Visual basic 6.
Resulevo muchos problemas en el día a día usando exel debido a que este programa esta instalado en cualquier empresa, sea grande o pequeña.
Actualmente deseo integrar todas esas hojas de calculo por medio de un pequeño programa que cargue una hoja especifica, me permita introducir datos en algunas celdas especificas y hacer los cálculos. En el fondo lo que deseo es tener una presentación aceptable mientras tengo tiempo para programarlo en VBacic.
¿Me podrían ayudar a inciar esta aplicación?
Saludos y gracias de antemano.
Respuesta de juanpabl0
1
Te recomiendo que utilices la opción "Grabar macro" en Excel para que veas entonces el código generado y lo puedas utilizar en VB.
Pero por si acaso, te mando algunas instrucciones básicas:
Abrir un libro existente:
Workbooks.Open ("C:\Ejemplo.xls")
________________________________________________________
Activar una hoja:
Sheets("Hoja2"). Activate
________________________________________________________
Seleccionar un rango:
Range("A1:A10").Select
________________________________________________________
Establecer negritas a un rango seleccionado:
Selection.Font.Bold = True
________________________________________________________
Establecer bordes sencillos a un rango seleccionado:
Selection.Borders.LineStyle = xlContinuous
________________________________________________________
Combinar celdas:
Range("A1:A10").Merge
________________________________________________________
Escribir algo en alguna celda [o varias utilizando "range"]
Range("A1") = "Ya soy todo un experto manipulando Excel desde Visual Basic"
________________________________________________________
Utilizar una fórmula:
Range("B1")="10"
Range("B2")="20"
Range("B3")="=B1+B2"
________________________________________________________
Utilizar una función: [Si no mal recuerdo, éstas se deben escribir en inglés]
Range("B1")="10"
Range("B2")="20"
Range("B3")="=SUM(B1:B2)"
________________________________________________________
Seleccionar toda una columna y autoajustarla:
Range("A:A"). Columns. AutoFit
________________________________________________________
... ¿Más? No dudes en consultarme :)
Saludos desde México, Juan Pablo E.P.
Pero por si acaso, te mando algunas instrucciones básicas:
Abrir un libro existente:
Workbooks.Open ("C:\Ejemplo.xls")
________________________________________________________
Activar una hoja:
Sheets("Hoja2"). Activate
________________________________________________________
Seleccionar un rango:
Range("A1:A10").Select
________________________________________________________
Establecer negritas a un rango seleccionado:
Selection.Font.Bold = True
________________________________________________________
Establecer bordes sencillos a un rango seleccionado:
Selection.Borders.LineStyle = xlContinuous
________________________________________________________
Combinar celdas:
Range("A1:A10").Merge
________________________________________________________
Escribir algo en alguna celda [o varias utilizando "range"]
Range("A1") = "Ya soy todo un experto manipulando Excel desde Visual Basic"
________________________________________________________
Utilizar una fórmula:
Range("B1")="10"
Range("B2")="20"
Range("B3")="=B1+B2"
________________________________________________________
Utilizar una función: [Si no mal recuerdo, éstas se deben escribir en inglés]
Range("B1")="10"
Range("B2")="20"
Range("B3")="=SUM(B1:B2)"
________________________________________________________
Seleccionar toda una columna y autoajustarla:
Range("A:A"). Columns. AutoFit
________________________________________________________
... ¿Más? No dudes en consultarme :)
Saludos desde México, Juan Pablo E.P.
No olvides finalizar la pregunta si ya has terminado de consultarme.
Saludos desde México. Juan Pablo E.P.
Saludos desde México. Juan Pablo E.P.
Gracias Juan Pablo, por tu ayuda.
En realidad, soy experto, pero en todo lo relacionado en vialidad, movimientos de tierras y drenajes.
Si te puedo ayudar, no dudes en preguntarme.
Saludos
En realidad, soy experto, pero en todo lo relacionado en vialidad, movimientos de tierras y drenajes.
Si te puedo ayudar, no dudes en preguntarme.
Saludos
