[算表] VBA 檔案匯入

[amber01]

軟體: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

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 101.10.35.224
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1519816726.A.185.html
※ 編輯: amber01 (101.10.35.224), 02/28/2018 19:22:51
※ 編輯: amber01 (101.10.35.224), 02/28/2018 19:43:42
→ soyoso: 如匯入的副檔名為.xlsx，則以replace取代為""
→ soyoso: activesheet.name的部分帶入上述主檔名的部分
→ soyoso: https://i.imgur.com/UOXyLcc.jpg 類似這樣
→ soyoso: 也可於hyperlinks.follow後以activeworkbook.name來取得
→ soyoso: 再replace取代
→ soyoso: 如副檔名不一定為xlsx的話instr或instrrev找"."的位置配合
→ soyoso: left取出
→ amber01: 非常感謝S大 ！！馬上來試試
→ amber01: 成功了，謝謝你！！