Jump to content
Daniela C

Listview para excel

Recommended Posts

Daniela C

Boa Noite Amigos,

Gostava de saber se alguem me poderia ajudar, pois não sei como colocar os dados da listview para o excel...

Alguem me poderia ajudar?  :D

Cumprimentos

Share this post


Link to post
Share on other sites
Caça

DataGridView para excel, tens aqui ou aqui

O funcionamento da DataGrid é parecido ao da ListView, se tiveres duvidas diz.


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
Daniela C

Bom dia, é o seguinte tenho este codigo:

Dim excelApp As New Microsoft.Office.Interop.Excel.Application()
        excelApp.Visible = True

        Dim oMissing As Object = System.Reflection.Missing.Value

        Dim excelBook As Microsoft.Office.Interop.Excel.Workbook
        excelBook = excelApp.Workbooks.Open("C:\Livro1.xls")
        Dim excelSheet As Microsoft.Office.Interop.Excel.Worksheet
        excelSheet = CType(excelBook.Sheets.Item(1), Microsoft.Office.Interop.Excel.Worksheet)



        Dim a As String = ListView1.Text
        Dim celulaa As Object = "A1"
        Dim rangea As Microsoft.Office.Interop.Excel.Range
        rangea = excelSheet.Range(celulaa)
        Clipboard.SetText(a)
        rangea.Select()
        excelSheet.Paste()



E nao me está a passar nada para o excel, eu sei que esta qualquer coisa mal, mas nao estou a conseguir descobrir! Queria passar a Listview... Alguem me poderia indicar como fazer? Obrigado

Cumprimentos

Share this post


Link to post
Share on other sites
Caça

Também só estas a colar lá o valor da propriedade Text da ListView, que provavelmente está vazia e não o seu conteúdo

Dim a As String = ListView1.Text


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
Daniela C

Também só estas a colar lá o valor da propriedade Text da ListView, que provavelmente está vazia e não o seu conteúdo

Dim a As String = ListView1.Text

Pois eu percebo, mas não sei como avançar para colar lá as colunas e o conteúdo .

Share this post


Link to post
Share on other sites
Caça

É mais ou menos isto

        Dim Linha, Coluna As Integer
        Linha = 1
        Coluna = 1
        For i = 0 To ListView1.Columns.Count - 1
            excelSheet.Cells(Linha, Coluna) = ListView1.Columns(i).Text
            Coluna = Coluna + 1
        Next
        For Each Item As ListViewItem In ListView1.Items
            Linha += 1
            Coluna = 1
            excelSheet.Cells(Linha, Coluna) = Item.Text
            For SubItem = 1 To Item.SubItems.Count - 1
                Coluna += 1
                excelSheet.Cells(Linha, Coluna) = Item.SubItems(SubItem).Text
            Next
        Next


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
Daniela C

É mais ou menos isto

        Dim Linha, Coluna As Integer
        Linha = 1
        Coluna = 1
        For i = 0 To ListView1.Columns.Count - 1
            excelSheet.Cells(Linha, Coluna) = ListView1.Columns(i).Text
            Coluna = Coluna + 1
        Next
        For Each Item As ListViewItem In ListView1.Items
            Linha += 1
            Coluna = 1
            excelSheet.Cells(Linha, Coluna) = Item.Text
            For SubItem = 1 To Item.SubItems.Count - 1
                Coluna += 1
                excelSheet.Cells(Linha, Coluna) = Item.SubItems(SubItem).Text
            Next
        Next

Era mesmo isto, muito obrigadaaaa  :cheesygrin:

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.