none
Exportar imagem para o excel RRS feed

  • Pergunta

  • Olá, eu gostaria de saber como faço para exportar uma imagem para o excel, no caso seria o logo da empresa, eu estou exportando os dados do datagrid para o excel, no entanto quero que antes desses dados apareça a imagem do logo da empresa, abaixo codigo da exportação para o excel q já funciona porem sem imagem:

    Dim rowsTotal, colsTotal As Short
                Dim I, j, iC As Short
                System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
                Dim xlApp As New Excel.Application
                Try
                    Dim excelBook As Excel.Workbook = xlApp.Workbooks.Add
                    Dim excelWorksheet As Excel.Worksheet = CType(excelBook.Worksheets(1), Excel.Worksheet)
                    xlApp.Visible = True
                    rowsTotal = ConsultarFornecedores.DgvFornecedores.RowCount - 1
                    colsTotal = ConsultarFornecedores.DgvFornecedores.Columns.Count - 1
                    With excelWorksheet
                        .Cells.Select()
                        .Cells.Delete()
                        For iC = 0 To colsTotal
                            .Cells(1, iC + 1).Value = ConsultarFornecedores.DgvFornecedores.Columns(iC).HeaderText
                        Next
                        For I = 0 To rowsTotal
                            For j = 0 To colsTotal
                                .Cells(I + 2, j + 1).value = ConsultarFornecedores.DgvFornecedores.Rows(I).Cells(j).Value
                            Next j
                        Next I
                        .Rows("1:1").Font.FontStyle = "Bold"
                        .Rows("1:1").Font.Size = 12
                        .Cells.Columns.AutoFit()
                        .Cells.Select()
                        .Cells.EntireColumn.AutoFit()
                        .Cells(1, 1).Select()
                    End With
                Catch ex As Exception
                    MsgBox("Export Excel Error " & ex.Message)
                Finally
                    'RELEASE ALLOACTED RESOURCES
                    System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
                    xlApp = Nothing
                End Try
            ElseIf Application.OpenForms.OfType(Of CadastroLogin)().Count() > 0 Then
                Dim rowsTotal, colsTotal As Short
                Dim I, j, iC As Short
                System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
                Dim xlApp As New Excel.Application
                Try
                    Dim excelBook As Excel.Workbook = xlApp.Workbooks.Add
                    Dim excelWorksheet As Excel.Worksheet = CType(excelBook.Worksheets(1), Excel.Worksheet)
                    xlApp.Visible = True
                    rowsTotal = CadastroLogin.dgvUsers.RowCount - 1
                    colsTotal = CadastroLogin.dgvUsers.Columns.Count - 1
                    With excelWorksheet
                        .Cells.Select()
                        .Cells.Delete()
                        For iC = 0 To colsTotal
                            .Cells(1, iC + 1).Value = CadastroLogin.dgvUsers.Columns(iC).HeaderText
                        Next
                        For I = 0 To rowsTotal
                            For j = 0 To colsTotal
                                .Cells(I + 2, j + 1).value = CadastroLogin.dgvUsers.Rows(I).Cells(j).Value
                            Next j
                        Next I
                        .Rows("1:1").Font.FontStyle = "Bold"
                        .Rows("1:1").Font.Size = 12
                        .Cells.Columns.AutoFit()
                        .Cells.Select()
                        .Cells.EntireColumn.AutoFit()
                        .Cells(1, 1).Select()
                    End With
                Catch ex As Exception
                    MsgBox("Export Excel Error " & ex.Message)
                Finally
                    'RELEASE ALLOACTED RESOURCES
                    System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
                    xlApp = Nothing
                End Try

    Grato desde já.

    sábado, 2 de novembro de 2013 05:11

Todas as Respostas

  • Olá,

    Dê uma olhada neste link, ele ensina como fazer isso.

    Exportando Imagem para Excel pelo VB.NET (Inglês)

    Abraço!


    Paulo Lucio Cardozo Neto



    Por favor, lembre-se de “Marcar como Resposta” as respostas que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    terça-feira, 6 de maio de 2014 13:36