Moving back to open file

[zodiaceuk]

Hi All,

I found some code to select a file to open.
This works really well.

I'm trying to build a macro that will switch to this file later on.

Windows (fNameAndPath).Activate
But I keep getting an error, I've tried to add " but no joy.

Can someone help please?

Original code:

Sub GetFile()
Dim fNameAndPath As Variant
fNameAndPath = Application.GetOpenFilename(FileFilter:="Excel Files (*.XLS), *.XLS", Title:="Select File To Be Opened")
If fNameAndPath = False Then Exit Sub
Workbooks.Open Filename:=fNameAndPath
End Sub

 

[JoeMo]

Use a variable to denote the file once its opened. Like this:

Sub GetFile()
Dim fNameAndPath As Variant, WB As Workbook
fNameAndPath = Application.GetOpenFilename(FileFilter:="Excel Files (*.XLS), *.XLS", Title:="Select File To Be Opened")
If fNameAndPath = False Then Exit Sub
Workbooks.Open Filename:=fNameAndPath
Set WB = ActiveWorkbook
'now you can work with the file using the variable WB
'for example: get the file name and extension
MsgBox WB.Name
End Sub

 

[zodiaceuk]

Thanks Joe,

Later on in the code the vba moves to another wb.
I'd like it to go to the 1st wb without any input from the user.

I.e. Windows wb .Activate

Is this possible

 

[JoeMo]

Thanks Joe,

Later on in the code the vba moves to another wb.
I'd like it to go to the 1st wb without any input from the user.

I.e. Windows wb .Activate

Is this possible

Sure, that's the whole point. To make WB the active workbook at any point in your code just use:

WB.Activate

 

[zodiaceuk]

Doh! Thanks