none
COMO INSERIR DADOS DO LIST VIEW NA PLANILHA EXCEL? RRS feed

  • Pergunta

  • Olá,

    Preciso fazer com que os valores que aparecem na ListView do meu formulário sejam enviados para a planilha, no entanto elas devem ir ao local pré-determinado, no caso:

    cli_nome para o campo C10

    cli_ende para o campo C11

    cli_num para o campo F11

    cli_cidade para o campo H10

    cli_estado para o campo H11

    cli_cep para o campo H12

    Sendo que o banco de dados está em Access

    Abaixo o código que faz as buscas:

    Private Sub cmdBusca_Click()
        Dim rsConsultand As Recordset
        Dim sql As String
        sql = "select * from cli_cliente where 1=1 "
        
        If (Trim(txtPnome.Text) <> "") Then
            sql = sql & "and cli_nome like '" & txtPnome.Text & "*' "
        End If
        
        sql = sql & "order by cli_nome "
        
        Set rsConsultand = Conexao.OpenRecordset(sql, dbOpenDynaset)
        
        lstConsulta.ListItems.Clear
        
        Do Until (rsConsultand.EOF)
            Set Item = lstConsulta.ListItems.Add(, , rsConsultand!cli_code)
            Item.SubItems(1) = rsConsultand!cli_nome
            Item.SubItems(2) = rsConsultand!cli_ende
            Item.SubItems(3) = rsConsultand!cli_num
            Item.SubItems(4) = rsConsultand!cli_cidade
            Item.SubItems(5) = rsConsultand!cli_estado
            Item.SubItems(6) = rsConsultand!cli_cep
            rsConsultand.MoveNext
        Loop
        
        
        
    End Sub

     Abaixo o código que deve mostrar na planilha

    Private Sub cmdOk_Click()
        If (lstConsulta.ListItems.Count = 0) Then Exit Sub
        
        cmdVoltar_Click
        Call Mostrar
    End Sub

    Sub Mostrar:

    Private Sub Mostrar()
        If (rsClientes.RecordCount > 0) Then
            Range("NOTA!C10").Value = rsClientes!cli_nome
            Range("C11").Value = rsClientes!cli_ende
            Range("F11").Value = rsClientes!cli_num
            Range("C12").Value = rsClientes!cli_bairro
            Range("H10").Value = rsClientes!cli_cidade
            Range("H11").Value = rsClientes!cli_estado
            Range("H12").Value = rsClientes!cli_cep
        End If
    End Sub

    Obrigado.

    domingo, 20 de outubro de 2013 13:45

Todas as Respostas