Retrieving a Dynamic File Path

[will1128]

Using several combinations of code I need to retrieve File Path dynamically when a user imports a file.

The code to have a user import a csv file is

fileName = Application.GetOpenFilename( _
                "Comma Separated Files (*.csv),*.csv," & _
                "All Files (*.*),*.*", _
                Title:="Select a CSV File to Import")

The user can get any File Path. This URL gives a post on doing this, but I don't understand it.

http://www.ozgrid.com/forum/showthread.php?t=20350

If you can help me out so I can get the dynamic FilePath so I can use this, http://www.zerrtech.com/content/excel-vba-open-csv-file-and-import, I would sincerely appreciate it.

Thanks

 

[will1128]

I figured it out....well, the modifications, here if you need it:

Public Sub Open_RIR_File()
    'In the event of an error, make sure the application is reset to normal.
    'On Error GoTo ErrorCheck
    'Dimension Variables
    Dim FileName As String
    Dim FilePath As String
    Dim OutSheet As String
    OutSheet = "Sheet1"
 
    FileName = Application.GetOpenFilename( _
                "Comma Separated Files (*.csv),*.csv," & _
                "All Files (*.*),*.*", _
                Title:="Select a CSV File to Import")
 
    'Debug.Print FileName
 
    iPos = InStrRev(FileName, "\", , vbTextCompare)
    'Debug.Print iPos
    If (iPos = 0 Or iPos = Null) Then
    MsgBox ("There is an error in file name specified. (FileName)")
    Else
    'Debug.Print FileName
    FilePath = Left(FileName, iPos - 1)
    FileName = Right(FileName, 17)
    'Debug.Print FilePath
    'Debug.Print FileName
    End If
 
   Call doFileQuery(FileName, OutSheet, FilePath)
End Sub

Public Function doFileQuery(FileName As String, OutSheet As String, FilePath As String) As Boolean
Debug.Print FileName
Debug.Print FilePath
Debug.Print OutSheet
Dim connectionName As String
connectionName = "TEXT;" + FilePath + "\" + FileName
Debug.Print connectionName
'http://www.zerrtech.com/content/excel-vba-open-csv-file-and-import
 With Worksheets(OutSheet).QueryTables.Add(Connection:=connectionName, _
 Destination:=Worksheets(OutSheet).Range("A1"))
 
    .Name = FileName
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .RefreshStyle = xlOverwriteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .TextFilePromptOnRefresh = False
    .TextFilePlatform = 437
    .TextFileStartRow = 1
    .TextFileParseType = xlDelimited
    .TextFileTextQualifier = xlTextQualifierDoubleQuote
    .TextFileConsecutiveDelimiter = False
    .TextFileTabDelimiter = False
    .TextFileSemicolonDelimiter = False
    .TextFileCommaDelimiter = True
    .TextFileSpaceDelimiter = False
    .Refresh BackgroundQuery:=False
    End With
End Function