軟體: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大 ！！馬上來試試成功了，謝謝你！！