Necesito guardar desde visual studio 2015 en Excel, la rutina que tengo actualmente me funciona pero no guarda la información como se requiere, es decir, cada vez que presiono el botón guardar debe añadir la información una debajo de la otra, lo que hace el código es simplemente sustituir la celda que se guardó previamente. Copio el código que utilizo para guardar. Espero puedan ayudarme.
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
'Iniciar un nuevo libro en Excel
oExcel = CreateObject("Excel.Application")
oBook = oExcel.Workbooks.add '("C:\Users\eriva\Desktop\Ductos.xls") 'Libro donde se exportarán los datos del Proyecto
'Agregar datos a las celdas a la hoja "Sheet1" del libro "Ductos1"
oSheet = oBook.WorkSheets(1)
oSheet.Range("A9").Value = "DUCTOS SUMINISTRO"
'Esta celda contendrá el nombre del Proyecto
oSheet. Range("C5:E5"). Merge(True)
oSheet. Range("A5:B5"). Merge(True)
oSheet.Range("A5").Value = "Nombre del Proyecto:"
'Esta celda contendrá el nombre del Proyectista
oSheet. Range("C6:E6"). Merge(True)
oSheet. Range("A6:B6"). Merge(True)
oSheet.Range("A6").Value = "Nombre del Proyectista:"
'Esta celda contendrá el nombre de la Empresa
oSheet. Range("C7:E7"). Merge(True)
oSheet. Range("A7:B7"). Merge(True)
oSheet.Range("A7").Value = "Nombre de la Empresa:"
oSheet.Range("A10").Value = "tramo"
oSheet.Range("B10").Value = "Caudal de Diseño PCM"
oSheet.Range("C10").Value = "Velocidad de Diseño pie/min"
oSheet.Range("D10").Value = "Factor de Fricción"
oSheet.Range("E10").Value = "Diámetro Equivalente in"
oSheet.Range("F10").Value = "Alto del Ducto in"
oSheet.Range("G10").Value = "Ancho del Ducto in"
oSheet.Range("H10").Value = "Longitud del Ducto mts"
oSheet.Range("I10").Value = "Longitud del Ducto Equivalente ft"
oSheet.Range("J10").Value = "Espesor"
oSheet.Range("K10").Value = "Calibre"
oSheet.Range("L10").Value = "Kg Ductos"
oSheet.Range("M10").Value = "M2 Aislante"
oSheet.Range("N10").Value = "Delpa P in.c.a."
' Esta es la rutina que debo guardar cada vez que presiono el botón
oSheet.Range("A09").End(XlDirection.xlDown).Offset(1, 0) = Tramo
oSheet.Range("B09").End(XlDirection.xlDown).Offset(1, 0) = Qdiseño
oSheet.Range("C09").End(XlDirection.xlDown).Offset(1, 0) = Velocidad2
oSheet.Range("D09").End(XlDirection.xlDown).Offset(1, 0) = FactorFriccion
oSheet.Range("E09").End(XlDirection.xlDown).Offset(1, 0) = Diameduct
oSheet.Range("F09").End(XlDirection.xlDown).Offset(1, 0) = Larcduct
oSheet.Range("G09").End(XlDirection.xlDown).Offset(1, 0) = Anchduct
oSheet.Range("H09").End(XlDirection.xlDown).Offset(1, 0) = Longducto
oSheet.Range("I90").End(XlDirection.xlDown).Offset(1, 0) = (Longducto * 3.28084)
oSheet.Range("J90").End(XlDirection.xlDown).Offset(1, 0) = espesor
oSheet.Range("K09").End(XlDirection.xlDown).Offset(1, 0) = calibre
oSheet.Range("L09").End(XlDirection.xlDown).Offset(1, 0) = (Anchduct + Larcduct) * espesor * Longducto * 11.64
oSheet.Range("M09").End(XlDirection.xlDown).Offset(1, 0) = (Anchduct + Larcduct + 4) * Longducto * 0.1016
oSheet.Range("N09").End(XlDirection.xlDown).Offset(1, 0) = ((Longducto * 3.28084 * FactorFriccion) / 100) * 1.05
' hacemos visible el documento
oExcel.Visible = True
oExcel.UserControl = True
'Guardaremos el documento en el escritorio con el nombre prueba
oBook.SaveAs(Environ("UserProfile") & "\desktop\Ductos1.xls")
End Sub
