0

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

14
  • Faltou explicar em qual linha dá o erro, meu caro. Commented 29/04/2022 às 2:18
  • Mas, se você estiver usando multiselect, seu código deveria dar erro na linha Open arquivo For Input As #1. Isso porque o Open vai exigir uma string com o nome de arquivo, e sua variável arquivo, 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? Commented 29/04/2022 às 2:29
  • Confesso que não entendi muito bem, tentei alterar o código em base do entendimento que tive da sua explicação. Mas não funcionou
    – Deforceh
    Commented 29/04/2022 às 3:14
  • Como acha que deveria ser feito?
    – Deforceh
    Commented 29/04/2022 às 3:21
  • Diga em que linha dá o erro, só pra confirmar se é isso mesmo. Commented 29/04/2022 às 9:58

1 Resposta 1

0

Sinto muito pela demora! Eis aqui:

Sub lerTxt()
    Dim sheet As Worksheet
    Dim selecao As Variant
    Dim i As Integer, linha As Integer
    
    selecao = Application.GetOpenFilename(Filefilter:="Texto, *.txt", Title:="Selecione um arquivo", MultiSelect:=True)
    
    If VarType(selecao) = vbBoolean Then Exit Sub 'Nenhum arquivo selecionado
    'Se não for boolean, é uma array de strings com caminhos de arquivo.
    
    ' Aqui é que você tem que iterar, pois "selecao" contém uma array com caminhos de arquivo.
    ' Dentro de cada iteração, você faz aquilo que você já estava fazendo.
    For i = 1 To UBound(selecao) Step 1
        Open selecao(i) For Input As #1
        Set sheet = ActiveWorkbook.Sheets.Add(After:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count))
        
        linha = 1
        Do Until EOF(1)
            Line Input #1, valorLin
            Cells(linha, 1).Value = valorLin
            linha = linha + 1
        Loop
        Close #1
        
        sheet.UsedRange.TextToColumns Other:=True
        sheet.Columns().EntireColumn.AutoFit
    Next i
End Sub

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .