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
