# Como guardar en excel desde visual basic.net

[Inicio](https://www.todoexpertos.com/) › [Visual Basic](https://www.todoexpertos.com/temas/visual-basic) › [Programación](https://www.todoexpertos.com/temas/programacion)

- Fecha de publicación: 2017-02-22
- Enlace canónico (HTML): https://www.todoexpertos.com/preguntas/7mlp65ubyl8sdob4/como-guardar-en-excel-desde-visual-basic-net

## Pregunta

*Por Eduardo Rivas* · 2017-02-22

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

## Respuestas (0)

_Esta pregunta aún no tiene respuestas._

---
*Fuente: [https://www.todoexpertos.com/preguntas/7mlp65ubyl8sdob4/como-guardar-en-excel-desde-visual-basic-net](https://www.todoexpertos.com/preguntas/7mlp65ubyl8sdob4/como-guardar-en-excel-desde-visual-basic-net) — consultado el 2026-10-23. Al citar, enlaza la URL canónica e indica la fecha de consulta.*