Question

VBA 用Application.GetOpenFilename打开了另外一个excel文件，如何把打开的文件设为激活？

用Application.GetOpenFilename打开了另外一个excel文件（文件名不固定），然后我要把这个打开的文件设定为激活的文件，并且选择这个文件里的sheet1，该怎样加代码？（我知道如果固定名字的话可以用Windows（"文件名"）.Activate，如果文件名字不固定呢？）
如：
Sub Openfile()
Dim fileToOpen As Variant
fileToOpen = Application.GetOpenFilename(FileFilter:="Excel 文件(*.xls),*.xls", MultiSelect:=False)
Workbooks.Open Filename:=fileToOpen
------
这中间应该怎么写？我知道如果固定名字的话可以用Windows（"文件名"）.Activate，如果文件名字不固定呢？）
------
Sheets("sheet1").Select
End Sub

我知道打开了文件就是激活的，但是我要在两个excel之间做好多操作，期间会切换好几次，第一次打开的时候是激活的，操作之后就不是了，所以想知道要把这个新打开的excel定为激活，该怎样写？求大神相助！！！

Answer 1

你的思路错了。
一、如果是用VBA的编程环境，根本没必要用这种方式。
你可以直接

dim wb as excel.workbook
set wb=application.workbooks.open("你的另一个EXCEL的路径")
dim sh as excel.worksheet
set sh=wb.worksheets(1)
sh就是你要的sheet1

二、期间需要反复操作的话，其实没必要激活；激活是给人用的。如果是用程序的话，激活不激活窗口和你能不能操作没有任何联系。
比如上面的sh获得后，你可以
sh.cells(1,1).value="aaa"
就可以对sheet1的a1单元格内容设置为aaa
然后期间你要反复操作的话，其实就是直接调用wb和sh。

三、如果你坚持要激活
sh.active
sh.select
就可以了。

狗屎百度，居然说我账号异动一定要提供手机，骗谁啊，老子不登录了。

Answer 2

变量也行，不信你试试