Maybe something like:
[VBA]
Dim FName As String

FName = "f:\AAA\Data1.xls"
Set wb = objExcel.Workbooks.Open(FName)
[/VBA]