Olá, estou desenvolvendo um código onde o usuário aperta no botão, abre a a janelinha do explorer com o GetOpenFilename
, do tipo .txt e ao usuário selecionar o documento ele abrir em uma nova planilha. Porém quero adicionar a opção MultiSelect
para que ao invés do usuário ter que apertar diversas vezes no botão para abrir vários documentos .txt, ele selecionar os documentos que tem na pasta, exemplo: "10" blocos de notas, e abrir todos.
Segue código abaixo, tudo está dando certo conforme dito acima. Porém ao implementar o Multiselect da ERRO
Sub lerTxt()
Dim arquivo As String
Dim sheet As Worksheet
Set Objeto = CreateObject("scripting.filesystemobject") 'Criando objeto
arquivo = Application.GetOpenFilename(Filefilter:="Texto, *.txt", Title:="Selecione um arquivo", MultiSelect:=True) 'Para abrir o documento, janelinha do explorer
If arquivo = "" Or arquivo = "Falso" Then 'Se arquivo for igual a vazio, ou se ele clicar em cancelar retornar "falso", usuário não selecionou nenhum documento
Exit Sub
End If
Open arquivo For Input As #1
Set sheet = ActiveWorkbook.Sheets.Add(After:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count)) 'Referencia o objeto para que seja ativada a opção de abrir uma nova planilha
lin = 1
Do Until EOF(1)
Line Input #1, valorLin
Cells(lin, 1).Value = valorLin
lin = lin + 1
Loop
Close #1
Range("A1:A" & lin - 1).TextToColumns Other:=True 'Intervalo em que é inserido os dados e separando por colunas para o tipo de dado escolhido
Columns().EntireColumn.AutoFit 'Faz o ajuste de colunas para obter a melhor largura
End Sub
OBS ERROR: Erro em tempo de execução '13': Tipos incompatíveis. Quando seleciono qualquer documento .txt da pasta
Open arquivo For Input As #1
. Isso porque o Open vai exigir uma string com o nome de arquivo, e sua variávelarquivo
, caso seja feito um multiselect, conterá uma array de strings com os nomes de cada arquivo selecionado (ou seja, os tipos são, deveras, incompatíveis). Portanto, antes do Open, você deveria verificar se é uma array e, nesse caso, iterar a array fazendo um Open para cada item. Deu pra entender a ideia?