sexta-feira, maio 04, 2007

Exportar para Excel de uma List View

Em Visual Basic, o recurso List View para exibir consultas facilita a utilização dos sistemas, além de ser de muito prática sua implementação. Abaixo segue o fragmento de código de exportação para Excel de uma list view:

Private Sub PB_EXPORTAR_Click()
Call Excel(LST_VALOR, "histzerado.xls")
End Sub

Private Sub Excel(oLST As Object, sNomeArq As String)

Dim iFile As Integer
Dim iCol As Integer

iFile = FreeFile

Open App.Path & "\" & sNomeArq For Output As iFile

For i = 1 To oLST.ListItems.Count
sLinha = Empty
If i = 1 Then
For iCol = 1 To (oLST.ListItems.Item(i).ListSubItems.Count + 1)
sLinha = sLinha & oLST.ColumnHeaders(iCol) & vbTab
Next iCol
Print #iFile, sLinha
End If

sLinha = Empty
For iCol = 1 To oLST.ListItems.Item(i).ListSubItems.Count
If iCol = 1 Then
sLinha = "" & oLST.ListItems.Item(i).Text & vbTab
End If
sLinha = sLinha & oLST.ListItems.Item(i).SubItems(iCol) & vbTab
Next iCol
Print #iFile, sLinha
Next i
Close #iFile
End Sub

2 comentários:

Unknown disse...

Amigo
estou precisando justamente desta função
expotar para Excel de uma listview mais tentei utilizar seu código e ocorreu o seguinte erro:

variable not defined

Private Sub cmdGeraExel_Click()
Call Excel(LST_VALOR,"histzerado.xls")
End Sub

quando clico no botão que criei "Gera Excel"

não costumo trabalharcom objeto como devo fazer para resolver este problema?

abraços

Unknown disse...

Troca por seu nome da sua ListView