Guru do Excel e Power BI

fileToOpen = Application _ 
 .GetOpenFilename("Text Files (*.txt), *.txt") 
If fileToOpen <> False Then 
 MsgBox "Open " &; fileToOpen 
End If

Sub Importar_estoque()
Dim SelectedFile As String

With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Title = "Select file"
.ButtonName = "Confirm"
.InitialFileName = "C:\"
If .Show = -1 Then
'ok clicked
SelectedFile = .SelectedItems(1)
MsgBox SelectedFile
Else
'cancel clicked
End If

End With

Workbooks.Open (SelectedFile)

    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1), Array(10, 1), Array(35, 1), Array(95, 1), _
        Array(99, 1), Array(103, 1)), TrailingMinusNumbers:=True
    Cells.Select
    Cells.EntireColumn.AutoFit
    Columns("D:D").Select
    Selection.Delete Shift:=xlToLeft
    Range("B9:E1382").Select
    Selection.Copy
    Windows("Banco de Dados.xlsm").Activate
    Sheets("ESTOQUE LIXO").Select
    Range("B3").Select
    ActiveSheet.Paste
    Sheets("Painel").Select
    Range("J20").Select
         
    
End Sub