打开一个Excel文件并激活工作表1以运行宏

Question

I need to write a VBA code that allows the user to browse and select an Excel file of his choice from a directory and then activate Sheet1 in that Excel file. After that I want macros to run on the activated sheet.

please help from below forward:

Sub GetFile()
Dim fNameAndPath As Variant, wb As Workbook
Dim sht As Worksheet

fNameAndPath = Application.GetOpenFilename(FileFilter:="Excel Files (*.XLSX), *.XLSX", Title:="Select File To Be Opened")
If fNameAndPath = False Then Exit Sub
Set wb = Workbooks.Open(fNameAndPath)

From here how to activate the open file, and how to activate Sheet 1 of the open file to run macros?

Answer 1

There is no need to Activate "Sheet1" in order to run Macros on it.

If you must Activate it, use :

Set wb = Workbooks.Open(fNameAndPath)

' Option 1: set the first sheet (index)
Set Sht = wb.Worksheets(1) 
' Option 2: set the sheet named "Sheet1"
Set Sht = wb.Worksheets("Sheet1")    

Sht.Activate ' <-- Not sure why you would need to Activate it ?

Answer 2

The code will open the workbook and will assign the opened workbook to wb object. Automatically wb will be the active one, so there is no need to write a code for that. Just to make sure Sheet1 will be activated, you should add:

wb.sheets("Sheet1").activate

I did not quite get what you meant by "I want macros to run on the activated sheet." because it depends on the macro that is run. To make sure that the macro will use the active sheet to make changes etc you should use the object activesheet for example you can do this:

Dim ws as worksheet
set ws=activesheet
' ...
' do whatever you want on ws in here
' ...