VBA extracting file name and path HELP ::::

[jessmendez01]

Need alot of help
what's wrong with my code???? i need it to extract the file name and path it is taking data from
im still new to VBA and no one in my office seems to be able to have the time to help me

-----------------------------------------------------------

Sub GetPartOfFilePath()
Dim myPath As String
Dim myOutput As String
Dim originalFile As String
Dim NewFile As String

'Retrieve ActiveWorkbook's File Path (Displayed in Immediate Window [ctrl + g])
originalFile = ActiveWorkbook.name
NewFile = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls*), *.xls", Title:="Please select a file", MultiSelect:=False) 'only excel files
Workbooks.Open NewFile
NewFile = Dir(NewFile)

'Retrieve File Name with Extension (Displayed in Immediate Window [ctrl + g])
myOutput = Right(myPath, Len(myPath) - InStrRev(myPath, "\"))
Debug.Print "File Name (w/ ext): " & myOutput

End Sub

End Sub

[Bob Phillips]

Sub GetPartOfFilePath()
Dim myPath As String
Dim myFile As String
Dim originalFile As String
Dim NewFile As String

    'Retrieve ActiveWorkbook's File Path (Displayed in Immediate Window [ctrl + g])
    originalFile = ActiveWorkbook.Name
    NewFile = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls*), *.xls", Title:="Please select a file", MultiSelect:=False) 'only excel files
    Workbooks.Open NewFile
    
    'Retrieve File Name with Extension (Displayed in Immediate Window [ctrl + g])
    myPath = Left$(NewFile, InStrRev(NewFile, "\") - 1)
    myFile = Right$(NewFile, Len(NewFile) - InStrRev(NewFile, "\"))
    Debug.Print "File Name (w/ ext): " & myPath & " -  " & myFile
End Sub

[jessmendez01]

it's not working for me it will open the path and open the workbook but will not copy into my new workbook the file name and path

[Bob Phillips]

There is nothing in that code copy anything, so it is hardly surprising.

[jessmendez01]

this is my new macro ..it opens that old file but doens't copy the filename and path to paste in my active cell in my new file
any help?

Sub GetPartOfFilePath()


    Dim myPath As String, myOutput As String, originalFile As String, NewFile As String
    Dim wb As Workbook
     'Retrieve ActiveWorkbook's File Path (Displayed in Immediate Window [ctrl + g])
    originalFile = ActiveWorkbook.name
    NewFile = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls*), *.xls", Title:="Please select a file", MultiSelect:=False) 'only excel files
    Set wb = Workbooks.Open(NewFile)
    NewFile = Dir(NewFile)
     'Retrieve File Name with Extension (Displayed in Immediate Window [ctrl + g])
     'myOutput = Right(myPath, Len(myPath) - InStrRev(myPath, "\"))
     'Debug.Print "File Name (w/ ext): " & myOutput
     'Debug.Print "Opened Workbook's Fullname: ", wb.FullName
     'activecell.value = wb.fullname
     'wb.Worksheets(1).activecell.Value = wb.Fullname

End Sub