Conseguir fazer o import de vários arquivos TXT selecionando
Enviado: 23 Mai 2022 às 17:01
Olá. Pessoal preciso de uma orientação e ajuda. Já pesquisei na internet de tudo que é jeito. Eu fiz o código e ele está funcional para mim. Porém, ele só seleciona um arquivo TXT da pasta. Tenho diversos arquivos e queria usar a pesquisa e p multiselect para selecionar apenas os que eu preciso. Não consigo de jeito algum fazer funcionar. Toda vez que tento pelo multiselect ele dá o erro 1004.
Código: Selecionar todos
Option Explicit
Sub ImportarTXT()
Dim FilePath As String
Dim WorksheetName As String
Dim ws As Worksheet
Dim FileNameParts() As String
FilePath = BrowseFilePath("Arquivos do Text,*.txt", "Selecione os arquivos", True)
If FilePath = "" Then Exit Sub
Set ws = ActiveSheet
ws.Cells.Delete
With ws.QueryTables.Add(Connection:="TEXT;" & FilePath, _
Destination:=Range("A1"))
.TextFileTabDelimiter = True
.Refresh BackgroundQuery:=False
.Delete
End With
FileNameParts = Split(FilePath, "\")
WorksheetName = FileNameParts(UBound(FileNameParts))
WorksheetName = Left(WorksheetName, InStrRev(WorksheetName, ".") - 1)
ws.Name = WorksheetName
End Sub
Private Function BrowseFilePath(pFileFilter As String, pTitle As String, Multiselect) As String
Dim FilePath As String
FilePath = CStr(Application.GetOpenFilename(FileFilter:=pFileFilter, Title:=pTitle, Multiselect:=True))
If FilePath = CStr(False) Then GoTo Quit
BrowseFilePath = FilePath
Quit:
End Function