PTT數位生活區 / Office

[算表] VBA 檔案匯入

看板Office作者時間8年前 (2018/02/28 19:18), 8年前編輯推噓0(0推 0噓 9→)
留言9則, 2人參與, 8年前最新討論串1/1
軟體: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
→
02/28 19:51, 8年前 , 1F
如匯入的副檔名為.xlsx，則以replace取代為""
02/28 19:51, 1F
→
02/28 19:51, 8年前 , 2F
activesheet.name的部分帶入上述主檔名的部分
02/28 19:51, 2F
→
02/28 19:52, 8年前 , 3F
類似這樣
02/28 19:52, 3F
→
02/28 19:56, 8年前 , 4F
也可於hyperlinks.follow後以activeworkbook.name來取得
02/28 19:56, 4F
→
02/28 19:57, 8年前 , 5F
再replace取代
02/28 19:57, 5F
→
02/28 19:59, 8年前 , 6F
如副檔名不一定為xlsx的話instr或instrrev找"."的位置配合
02/28 19:59, 6F
→
02/28 19:59, 8年前 , 7F
left取出
02/28 19:59, 7F
→
02/28 20:06, 8年前 , 8F
非常感謝S大 ！！馬上來試試
02/28 20:06, 8F
→
02/28 20:37, 8年前 , 9F
成功了，謝謝你！！
02/28 20:37, 9F
‣ 更多 amber01 的文章
文章代碼(AID): #1Qbf0M65 (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 amber01 的文章
文章代碼(AID): #1Qbf0M65 (Office)