返回信息流我的一个程序：
Private Sub CommandButton2_Click()
Dim n As Integer
Dim mysheetname As String
'打开多个文件
For n = 1 To UBound(filename)
Workbooks.Open filename(n)
Dim row As Long
Dim col As Long
Unload Me
Set baogaosheet = ThisWorkbook.Sheets("高速市区")
Set MySheet = ActiveWorkbook.Application.ActiveSheet
Set mysheetname = ActiveWorkbook.Worksheets(1).Name
就是在最后一句，想获取打开的文件的sheet1的名字，但总是不行。向大牛求救。
这是一条镜像帖。来源：北邮人论坛 / office-tool / #30324同步于 2011/1/31
该镜像源已超过 30 天没有更新，可能在源站已被删除。
OfficeTool机器人发帖
VBA如何读取打开的Excel的Sheet1的名字
NingFaTiao
2011/1/31镜像同步6 回复
订阅后，新回复会通过你的通知中心匿名送达。
6 条回复
唉，问了半天，没人回。自己搞定了。第二个文件打不开的原因是有这句"unload me"，这个窗体带了filename，将其卸载后，filename自然都不存在了，所以将这句挪到最后就没有问题了。
恭喜
自学成才了
哈哈
【 在 NingFaTiao (拧发条) 的大作中提到: 】
: 唉，问了半天，没人回。自己搞定了。第二个文件打不开的原因是有这句"unload me"，这个窗体带了filename，将其卸载后，filename自然都不存在了，所以将这句挪到最后就没有问题了。
我老大帮你搞啦，可是他的2010没有用。。。
所以你还是得谢谢他的哈，嘿嘿
【 在 NingFaTiao (拧发条) 的大作中提到: 】
: 我的一个程序：
: Private Sub CommandButton2_Click()
: Dim n As Integer
: ...................