作者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/cn.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