软件:excel
版本:2017
还请大家帮忙 mOm
目前有多个Excel档案要汇入主档
已在主档.xlsm的sheet“GET"罗列要汇入的档案名称如下
A
1 uuu.xlsx
2 you.xlsx
3 zzz.xlsx
录制的宏有一个问题，它会复制各档案开启时当下的sheet,但需要复制的页签名称应为同
名。
即uuu.xlsx，要复制的是sheet"uuu"
但如果uuu.xlsx最后存盘时是停留sheet“工作表2”，复制到的就会变成sheet“工作表2”
，要如何处理这问题呢？
谢谢大家！
下面贴的语法好像都走位了 Orz
附上截图
https://i.imgur.com/uYXpzBm.jpg
——————————
Sub OPENFILES()
If ActiveCell.Value <> Empty Then
ActiveCell.Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=ActiveCell.Value,
_
TextToDisplay:=ActiveCell.Value
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Sheets(ActiveSheet.Name).Select
Sheets(ActiveSheet.Name).Copy After:=Workbooks("主档.xlsm").Sheets(1 _
)
Sheets("GET").Select
Windows(ActiveCell.Value).Activate
ActiveWindow.Close
ActiveCell.Offset(1, 0).Range("A1").Select
Call OPENFILES
End If
End Sub

如汇入的副档名为.xlsx，则以replace取代为""activesheet.name的部分带入上述主档名的部分https://i.imgur.com/UOXyLcc.jpg 类似这样也可于hyperlinks.follow后以activeworkbook.name来取得再replace取代如副档名不一定为xlsx的话instr或instrrev找"."的位置配合left取出

非常感谢S大 ！！马上来试试成功了，谢谢你！！