Get work book from same directory : Workbook File « Excel « VBA / Excel / Access / Word

Get work book from same directory

Sub ActivateWorkbook2()
   Dim stPath As String
   Dim myFileName As String
   Dim stFullName As String
   Dim myWorkbook As workBook

   myFileName = "SalesData1.xls"
   stPath = ThisWorkbook.Path
   stFullName = stPath & "\" & myFileName
   Set myWorkbook = Workbooks.Open(Filename:=stFullName)
End Sub


Related examples in the same category

1.Is selected file open?
2.Open Workbook file (xls file)
3.Get path of current work book
4.Save as the active workbook
5.Get next file name
6.Open a text file for workbook
7.Get active workbook name only(without path name)
8.Load excel file
9.Presents user with a GetOpenFileName dialog that allows multiple file selection.
10.tells you how many workbooks are open
11.Save changes automatically, specify this as a parameter of the Close method