none
Quiero editar un documento de excel RRS feed

  • Pregunta

  • hola, bueno en si lo que deseo hacer es editar un documento de excel ya creado, ya que buscando en Internet solo eh encontrado tutoriales de como crearlos y darles formato, mi objetivo es generar un reporte diariamente con ciertos datos, el problema que los datos se van generando en determinadas horas del día, y en caso de que se cierre la aplicación y se desee utilizar posteriormente el documento ya se habrá generado y le corresponde el mismo día, lo único que busco es como seleccionarlo en una variable o no se si tengan una idea mejor , lo que llevo es esto

     Public Sub reporte()
            Dim reporte_generado As Boolean
            nombrar_reporte()
            reporte_generado = System.IO.Directory.Exists(My.Settings.Sett_Direccion_Carpeta_Reportes & "\" & Date.Now.Year & "\" & mes_del_reporte & "\" & nombre_reporte & ".xlsx ")
            If reporte_generado = True Then
                agregar_a_repote()
            Else
                generar_reporte_clase()
            End If
        End Sub

        Sub generar_reporte_clase()
            Try
                tipo_de_reporte = True
                Excel_Documeto = New Excel.Application
                Excel_Libro = Excel_Documeto.Workbooks.Add(misValue)
                Excel_Hoja = Excel_Libro.Sheets(1)
                'Encabezado
                Excel_Hoja.Shapes.AddPicture(My.Settings.Sett_DireccionImagenReporte, _
                        Microsoft.Office.Core.MsoTriState.msoFalse, _
                        Microsoft.Office.Core.MsoTriState.msoCTrue, 3, 5, 160, 40) ' A1-C4
                With Excel_Hoja
                    .Name = "Clase de " & fecha_r
                    .Visible = XlSheetVisibility.xlSheetVisible
                    .Activate()
                    'Titulo
                    .Range("D2").Value = "Reporte de Clase"
                    .Range("D2").Font.ColorIndex = 3

                   'Guardar y Cerrar
                    guardar_reporte()
                     Excel_Libro.Close()
                    Excel_Documeto.Quit()
                End With
            Catch ex As Exception
                MsgBox("Error    " & ex.Message, MsgBoxStyle.Information)
            End Try

        End Sub
        Sub agregar_a_repote()
            Try
                tipo_de_reporte = True
                Dim Excel_DocumetoE As Object
                Excel_DocumetoE = (My.Settings.Sett_Direccion_Carpeta_Reportes & "\" & Date.Now.Year & "\" & mes_del_reporte & "\" & nombre_reporte & ".xlsx ")
                Excel_Libro = Excel_DocumetoE.Workbooks(1)
                Excel_Hoja = Excel_DocumetoE.Worksheets.Add(After:=Excel_Libro.Worksheets(Excel_Libro.Worksheets.Count))
                'Encabezado
                Excel_Hoja.Shapes.AddPicture(My.Settings.Sett_DireccionImagenReporte, _
                        Microsoft.Office.Core.MsoTriState.msoFalse, _
                        Microsoft.Office.Core.MsoTriState.msoCTrue, 3, 5, 160, 40) ' A1-C4
                With Excel_Hoja
                    .Name = "Clase N°"
                    .Visible = XlSheetVisibility.xlSheetVisible
                    .Activate()
                    'Titulo
                    .Range("D2").Value = "Reporte de Clase"
                     'Guardar y Cerrar
                    guardar_reporte()
                     Excel_Libro.Close()
                    Excel_Documeto.Quit()
                End With
            Catch ex As Exception
                MsgBox("Error    " & ex.Message, MsgBoxStyle.Information)
            End Try
        End Sub

    lunes, 1 de abril de 2013 3:26

Todas las respuestas

  • No entendí muy bien, pero para abrir un excel existente no te sirve esta instrucción?

    Excel.Workbook libro = app.Workbooks.Open(app.GetOpenFilename());

    Y si no, a las fuentes que te dejo Aquí!

    Suerte!


    Robbie Bozzacchi ----------------

    miércoles, 10 de abril de 2013 14:14