Open the Excel sheet with file Name

[webmax]

Hi

i have Folder Name "TEST" in that folder i have excel sheet (i have create workbook name test macro).
In that Folder i have another excel file Name called "TESTFILE.XLS"
With the help of macro i want to open the "TESTFILE.XLS"

I have searched the macro but all has given to put the path name like "C:\"
But I want the Macro with Current Folder with File Name to open the file.


Regards
Shahul

 

[Luke M]

I think this will help you out.

Sub OpenFile()
'Opens a file called TESTFILE.XLS from same folder as this workbook
Dim fPath As String
Const fName As String = "TESTFILE.XLS"

fPath = ThisWorkbook.Path & fName

'Check if file path is legit, then open
If Dir(fPath) <> "" Then Workbooks.Open fPath
End Sub

 

[webmax]

Hi i tried that the macro is not working

I stored the file Name as TESTFILE.XLS in the same folder.

 

[Debraj]

Hi Shahul..

Just a lil modification Luke's Code..

fPath = ThisWorkbook.Path & "\" & fName

 

[webmax]

thanks deb working fine

 

[Debraj]

Pass it to LUKE..

 

[webmax]

hi i need one more help

i want to activate the open workbook by workbook name how to do that in excel macro code.

 

[Debraj]

Hi Shahul..

Let me know, if you need further details..

Sub OpenFile()
    'Opens a file called TESTFILE.XLS from same folder as this workbook
    Dim fPath As String
    Const fName As String = "Test1.XLSx"
   
    fPath = ThisWorkbook.Path & "\" & fName
   
    'Check if file path is legit, then open
    If Dir(fPath) <> "" Then Workbooks.Open fPath
   
    'By default at the time of opening a file .. its always active
    MsgBox "Active Window is " & ActiveWindow.Parent.Name
     
    'Still if you wnat to swap to another workbook..
    Application.Windows(ThisWorkbook.Name).Activate
    MsgBox "Now Active Window is " & ActiveWindow.Parent.Name
End Sub

PS: Save the file before proceed..

 

[Luke M]

Ugh, thanks Deb for catching my mistake. I keep forgetting the .Path doesn't include the trailing slash.