DONUT PROJECT - VBA - Excel - Populando um ListBox no seu Formulário

Consultancy in Excel, Access, VBA, Dashboards, Scorecards & PowerPoint Projects

DESENVOLVO APLICAÇÕES VBA

Perguntas, Questões e Esclarecimentos

Baixe o Calendário Compacto para 2014 em Excel

Então, digamos que precise criar um pequeno script que permita que os seus usuários selecionem um número de colunas (letras de A a Z) a partir de um ListBox. E em seguida extraiamos os itens selecionados na caixa de listagem.

1

Crie um formulário com uma ListBox chamado Listbox1 e um botão chamado CommandButton1.

2

Crie uma SUB UserForms no seu formulário.

3

Preencha (popule) a ListBox com letras de A a Z:

Private Sub UserForm_Initialize()

' Crie um array.

Dim AlfabetArray() As String

' Defina o conteúdo do array. Aqui podemos separá-las com "|", mas não poderemos usar ",".

Let AlfabetArray = Split("A|B|C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|X|Y|Z", "|")

' Populando o Listbox com o array de letras

Let ListBox1.List = AlfabetArray

End Sub

4

Certifique-se de que a caixa de listagem tenha o seu atributo MultiSelect definido como 1 - fmMultiSelectMulti, se você quiser que os usuários possam selecionar vários itens com um clique do mouse.

Selecione 2 - fmMultiSelectExtended, se quiser que os usuários possam usar um  "Ctrl-clique " para selecionar vários itens muito mais rápido.

5

Extraia os itens selecionados do ListBox e insira-os na matriz para uso posterior.

Private Sub CommandButton1_Click()

Dim lItem As Long

Dim BernardNavne() As String    'Array

Dim blDimensioned As Boolean    'Is the array dimensioned?

Dim lngPosition As Long         'Counting

     

Let blDimensioned = False

' Efetua o Loop através de todos os itens no Listbox

For lItem = 0 To Me.ListBox1.ListCount - 1

         

        If Me.ListBox1.Selected(lItem) Then

        ' Se estiver selecionado adicionna-o ao array

        

            'Checamos se o array está corretamente dimensionado

            If blDimensioned = True Then

            ReDim Preserve BernardNavne(0 To UBound(BernardNavne) + 1) As String

            Else

            ReDim BernardNavne(0 To 0) As String

            blDimensioned = True 'flag

            End If

            

            ' Adicionamos a letra ao array

            BernardNavne(UBound(BernardNavne)) = Me.ListBox1.List(lItem)

        End If

Next lItem

'Loop through array to see which items were selected from the Listbox:

For lngPosition = LBound(BernardNavne) To UBound(BernardNavne)

MsgBox BernardNavne(lngPosition)

Next lngPosition

End Sub

André Luiz Bernardes

Professional Profile

DONUT PROJECT - VBA - Excel - Importando arquivos CSV

Importar dados de arquivos CSVs é algo tão comum, que o MS Excel já tem um mecanismo próprio para fazer isso. Mas esta continua sendo uma das dúvidas mais comuns. Como fazer essa importação, através do VBA?

Uma alternativa é a de ler o arquivo CSV como se fosse um arquivo texto, e em seguida carregar cada linha em uma matriz, e através de loops inserí-los no MS Excel.

'This sub only provides the sub ImportCSVfile with parameters

Sub InitiateImportCSVFile()

        Dim filePath As String

        Dim ImportToRow As Integer

        Dim StartColumn As Integer      

        Let filePath = "E:\Bernardes\Arquivo.csv"

        Let ImportToRow = 1 'the row where it will start printing

        Let StartColumn = 1 'the start column

        ImportCSVFile filePath, ImportToRow, StartColumn

End Sub

'  Este é o código que faz todo o trabalho:

Sub ImportCSVFile 

(ByVal filePath As String, ByVal ImportToRow As Integer, ByVal StartColumn As Integer) 

    Dim line As String

    Dim arrayOfElements

    Dim element As Variant

    Open filePath For Input As #1 ' Open file for input

        Do While Not EOF(1) ' Loop until end of file

            ImportToRow = ImportToRow + 1

            Line Input #1, line

            Let arrayOfElements = Split(line, ";") 'Split the line into the array.          

            ' Loop thorugh every element in the array and print to Excelfile

            For Each element In arrayOfElements

                Let Cells(ImportToRow, StartColumn).Value = element

                Let StartColumn = StartColumn + 1

            Next

        Loop

    Close #1 ' Close file.

End Sub

André Luiz Bernardes

Professional Profile

DONUT PROJECT - VBA - Excel - Deletando Conexões de Dados

Consultancy in Excel, Access, VBA, Dashboards, Scorecards & PowerPoint Projects

DESENVOLVO APLICAÇÕES VBA

Perguntas, Questões e Esclarecimentos

Baixe o Calendário Compacto para 2014 em Excel

Sim, nos nossos inúmeros projetos com o MS Excel, invariavelmente faremos conexões às mais diversas bases de dados. E talvez desejemos nos desfazermos delas com o tempo, talvez até mesmo logo após atualizarmos a nossa base de dados na planilha.

Este exemplo mostra como excluir a conexão de dados e desativar a definição de consulta após a importação dos dados ser feita:

' Deleta a conexão

 ActiveWorkbook.Connections(Filnavn).Delete

 Dim qt As QueryTable

' Deleta a query

For Each qt In ActiveSheet.QueryTables

         qt.Delete

 Next qt

André Luiz Bernardes

Professional Profile