作者amber01
看板Office
標題[算表] VBA 檔案匯入
時間Wed Feb 28 19:18:43 2018
軟體: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://webptt.com/m.aspx?n=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
1F：→ soyoso: 如匯入的副檔名為.xlsx，則以replace取代為"" 02/28 19:51
2F：→ soyoso: activesheet.name的部分帶入上述主檔名的部分 02/28 19:51
4F：→ soyoso: 也可於hyperlinks.follow後以activeworkbook.name來取得 02/28 19:56
5F：→ soyoso: 再replace取代 02/28 19:57
6F：→ soyoso: 如副檔名不一定為xlsx的話instr或instrrev找"."的位置配合 02/28 19:59
7F：→ soyoso: left取出 02/28 19:59
8F：→ amber01: 非常感謝S大 ！！馬上來試試 02/28 20:06
9F：→ amber01: 成功了，謝謝你！！ 02/28 20:37