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