Hola Sccann como andas tanto tiempo, perdon por leer tarde ya poco me conecto.
con respecto a tu pregunta es facil te dejo comentado cada line cualquier cosa preguntas.
Option Explicit
Private Sub Form_Load()
Dim oExcelApp As Object
Dim oLibro As Object
Dim oHoja As Object
Dim Fila As Long
Dim Columna As Long
Set oExcelApp = CreateObject("Excel.Application") 'Crea una aplicacion de Excel
Set oLibro = oExcelApp.Workbooks.Open("C:\Users\Windows\Desktop\Consulta.xlsm") 'Abre el Libro indicado
Set oHoja = oLibro.Worksheets("Hoja1") 'Seleciona la Hoja "Hoja1" aca podes cambiarlo por la hoja que tengas en el libro.
Columna = 1
Fila = 2
oHoja.Cells(Fila, Columna).Value = "Hola Mundo" 'Escrive en la celda A2
Fila = 3
oHoja.Cells(Fila, Columna).Value = "Hola ssccaann43" 'Escrive en la celda A3
oLibro.Close True 'Cierra el libro y guarda los cambios
' --
oExcelApp.Quit 'Cerrar Excel
'Libera todos los objetos creados.
Set oHoja = Nothing
Set oLibro = Nothing
Set oExcelApp = Nothing
End Sub
Después vos maneja los errores. (mas que nada si no esta excel instalado o el libro esta abierto te dara error.)
Querido hermano, espero te encuentres bien... Grande lea, después comparto lo que estoy desarrollando.
Para que tengas una idea, estoy haciendo algo así:
http://www.apesoft.es/caracteristicas-dcmv/https://www.youtube.com/watch?v=-Qbwkd5vUGIUna herramienta que puede conectarse a cualquier Base de Datos (Access, SQL Server y MySQL)
Con la cual podrás generar informes en plantillas prediseñadas con Macros para graficas, estadisticas, etc.
Una herramienta que va de la mano con el B.I. (Inteligencia de Negocio)
El detalle es que llegue a pensar que esas plantillas se armaban desde el VB6, pero no, ya vi y me di cuenta que las plantillas están listas esperando solo se escriban en hojas especificas y luego se ejecutan macros para actualizar la información y posteriormente se mandan por Mail.
Pero todo esto lo aprendí a las malas, después de tantos golpes.
Bueno gracias por el apoyo, un abrazo, bendiciones para tu baby, saludos.