visual estudio 2005, guardar en excelCerrado

Question

hola estoy haciendo una aplicacion en visual estudio 2005 
y guardé los dato en una lista pero ahora quiero copiar eso datos en un documento excel  
o sea guardalos en vez de en una lista en un excel para despues poder imprimirlo 
alguien me podrian ayudar???Configuraci&oacute;n: Windows XP Opera 9.63

NO TENGO · Answer

Mas o menos aqui tienes como crear la excel

Dim m_Excel As New excel.Application
        Dim objLibroExcel As excel.Workbook
        Dim objHojaExcel As excel.Worksheet
        Dim objHojaExcel2 As excel.Worksheet

        m_Excel = New excel.Application
        ' m_Excel.Visible = True

        objLibroExcel = m_Excel.Workbooks.Add()

        objHojaExcel = objLibroExcel.Worksheets(1)
        objHojaExcel.Name = "pepa"
        objHojaExcel2 = objLibroExcel.Worksheets(2)

        objHojaExcel.Visible = excel.XlSheetVisibility.xlSheetVisible
        objHojaExcel.Cells(9, "A") = "HOLA"

        objHojaExcel2.Visible = excel.XlSheetVisibility.xlSheetVisible
        objHojaExcel2.Cells(2, "B") = "tu"

        m_Excel.Visible = True

asafsa · Answer

xq no le pones createobject no esta haciendo nada x eso q no te corre

sabii · Answer

holaa me gustaria mucho que me ayudaran necesito saber como viajar por una pantalla de excel ??? espero  su repuesta por favor ayudenmee!!

LULI · Answer

Public Class Form2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x1app As Microsoft.Office.Interop.Excel.Application
        Dim x1libro As Microsoft.Office.Interop.Excel.Workbook
        Dim x1hoja As Microsoft.Office.Interop.Excel.Worksheet

        x1app = CType(CreateObject("Excel.Application"), Microsoft.Office.Interop.Excel.Application)
        x1libro = CType(x1app.Workbooks.Add, Microsoft.Office.Interop.Excel.Workbook)
        x1hoja = CType(x1libro.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet)
        'INSERTAR DATOS
        x1hoja.Cells(1, 2) = 5000
        x1hoja.Cells(2, 2) = 75
        x1hoja.Cells(3, 1) = "total"
        'INSERTAR UNA FOTRMULA DE SUMA EN LA CELDA B3
        x1hoja.Range("b3").Formula = "=suma(b1:b2)"
        'FORMATEAR LA CELDA B3 EN NEGRITA
        x1hoja.Range("b3").Font.Bold = True
        'MOSTRAR LA HOJA DE TRABAJO
        x1hoja.Application.Visible = True
        'GUARDAR LA HOJA DE CALCULO
        x1hoja.SaveAs("F:\LENGUAJE.XLS")
    End Sub

Visual estudio 2005, guardar en excel

4 respuestas

Discusiones similares

¡Suscríbete a nuestra Newsletter!