none
Percorrendo uma coluna do Excel RRS feed

  • Pergunta

  • Olá Pessoal, estou precisando de uma ajuda por favor. Estou desenvolvendo um programa em VB junto com o Excel 2010.

    É o seguinte, tenho a coluna A que me informa se a data está com prazo expirado (Prazo Expirado) ou não.

    Quando esta celula estiver com a informação Prazo Expirado o meu programa pega o e-mail da pessoa correspondente que se encontra na coluna B e envia o e-mail.

    No entanto não estou conseguindo fazer o código que faça a comparação: Enviar e-mail somente para a celula que esteja com Prazo Expirado, conforme a imagem.

    Eu consigo enviar o e-mail através do seguinte código:

    Private Sub bt_mail_Click()
    
        Dim appOutlook As Object
        Dim olMail As Object
        Dim EnviMail As String
        Dim i As Integer
        
            
        On Error Resume Next
        Set appOutlook = GetObject(, "Outlook.Application")
        If appOutlook Is Nothing Then
            Set appOutlook = CreateObject("Outlook.Aplication")
        End If
        On Error GoTo 0
        Set olMail = appOutlook.CreateItem(0)
        With olMail
            .To = "gerente@gmail.com" 'Aqui preciso que pegue o e-mail da celula
            .Subject = "teste01"
            .Body = "Teste"
            .Display
        End With
    End Sub

    Muito obrigado

    Wellinghton Pimentel Se esta sugestão for útil, por favor, classifique-a como útil. Se ela lhe ajudar a resolver o problema, por favor, marque-a como Resposta.

    segunda-feira, 15 de abril de 2013 00:52

Todas as Respostas

  • Bom dia!

    Você já tentou fazer um laço de repetição na sua coluna A para testar o valor das células? Se o valor for "Prazo Expirado", você chamaria a função que envia email, caso contrario iria para a próxima linha.

    Para isso, você teria que criar um objeto do excel no seu programa e abrir sua planilha dentro do seu projeto quando for fazer essa comparação.

    Esse link explica como você exporta um datagirdview para o excel. Acredito que a partir destas explicações, você seja capaz de fazer o processo inverso e acessar os dados do excel a partir do seu programa.

    Caso tenha algo que você não saiba fazer pelo VB.net, mas saiba fazer via excel, grave uma macro no excel fazendo exatamente o que você o processo que você quer replicar no vb.net. Aí é só estudar o código da macro e reproduzir ele no VB.net.

    Qualquer outra dúvida é só perguntar no fórum.

    Att.

    Giovani

    sexta-feira, 3 de maio de 2013 14:01