How do I change the connection "Connection:="TEXT;C:\Users\Alex\Desktop\SalesData.txt"," to a different module?

[OzBlake]

sigma_coding_youtube/vba/vba-excel/data-imports/Import Text File - Non Power Query.bas

Line 6 in a4e8df9

With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\Users\Alex\Desktop\SalesData.txt", Destination:=Range("$A$1"))

[OzBlake]

Need Help Please..

How do I change the connection to with ActiveSheet.QueryTables.Add(Connection:="TEXT............ the get_path module?

Sub get_path_D01()
    Dim diaFolder As FileDialog
    Dim Fname As String

    Set diaFolder = Application.FileDialog(msoFileDialogFilePicker)
                                          'msoFileDialogFilePicker
                                          'msoFileDialogFolderPicker
                                          'msoFileDialogOpen
                                          'msoFileDialogSaveAs
    diaFolder.AllowMultiSelect = False
    
    If diaFolder.Show = -1 Then
        Fname = diaFolder.SelectedItems(1)
        Cells(3, "b").Value = Fname
    Else
        Exit Sub
    End If
End Sub

Sub CreatDataTable()
with ActiveSheet.QueryTables.Add(Connection:="TEXT............

[areed1192]

You just need to point to a different file path:

C:\Users\Alex\Desktop\SalesData.txt

so just change the path to where the file is and then you should be good.