[算表] VBA 檔案匯入

作者: unknown (ya)   2018-02-28 19:18:43
軟體: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
作者: soyoso (我是耀宗)   2018-02-28 19:51:00
如匯入的副檔名為.xlsx,則以replace取代為""activesheet.name的部分帶入上述主檔名的部分https://i.imgur.com/UOXyLcc.jpg 類似這樣也可於hyperlinks.follow後以activeworkbook.name來取得再replace取代如副檔名不一定為xlsx的話instr或instrrev找"."的位置配合left取出
作者: amber01   2018-02-28 20:06:00
非常感謝S大 !!馬上來試試成功了,謝謝你!!

Links booklink

Contact Us: admin [ a t ] ucptt.com