作者chunchanhung (毛毛狂)
看板Office
标题[算表] vba档案名称
时间Wed Jan 2 18:39:53 2019
目前藉由Vba来完成
将A档案资料 复制到B档案
但如果A档案名称每次都不同
Vba 需要一直跟改名称
想问有没有办法自动侦测现在开启档案名称
并自动带入取得（A档案）
语法如下
Sub
Windows(A档案).Activate
Range(B4).select
Selection.copy
Windows(B档案）.Activate
Activecell.select
Active sheet.Paste
End sub
-----
Sent from JPTT on my iPhone
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 42.73.145.56
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1546425595.A.0F6.html
1F：→ soyoso: 开启档案名称正作用中的话activeworkbook.name 01/02 18:45
2F：→ soyoso: 如果巨集写在a档案内的话thisworkbook.name 01/02 18:46
3F：→ soyoso: 如要要取得开启活页簿的话，可回圈於workbooks集合 01/02 18:47
4F：→ chunchanhung: S大你好 01/02 18:51
5F：→ chunchanhung: 我如果我想用c档案来执行这个巨集 01/02 18:51
6F：→ chunchanhung: 我巨集写在个人巨集活页簿 01/02 18:51
7F：→ chunchanhung: 那要怎麽改呢 01/02 18:51
8F：→ soyoso: 如果a、b档已经开启且档案不确定的话，就回圈於workbooks 01/02 18:56
9F：→ soyoso: 集合，判断排除c档档名不要取，再判断那个要归类为a档(可 01/02 18:56
10F：→ soyoso: 能是活页簿内有某个名称的工作表之类的)，哪个为b档 01/02 18:57
11F：→ chunchanhung: S大 01/02 23:20
12F：→ chunchanhung: 回圈想了很久但还是没有概念怎麽写 01/02 23:20
13F：→ chunchanhung: 能提示一下吗 谢谢 01/02 23:20
14F：→ chunchanhung: 我目前是 开启两个档案 ：‘’随机档案‘’&b档案 01/02 23:26
15F：→ chunchanhung: 透过A档案的巨集（a档案未开启 01/02 23:26
16F：→ chunchanhung: 将 ‘’随机档案‘’内容复制到b档案 01/02 23:26
17F：→ chunchanhung: 那随机档案的名称是只能透过workbook 01/02 23:26
18F：→ chunchanhung: 回圈来判断吗？ 01/02 23:26
19F：→ soyoso: 回圈看是用for each...next或用for...next配合workbooks( 01/02 23:56
20F：→ soyoso: 索引值)的方式，判断为if workbook.name不为a或b档名的话 01/02 23:57
21F：→ soyoso: 就为随机档案档名 01/02 23:57
22F：→ soyoso: 随机档案的名称是只能透过回圈来判断吗？资料不足无法肯定 01/02 23:58
23F：→ soyoso: 是否就只能用回圈方式。因为有可能原po所开启的随机档案是 01/03 00:00
24F：→ soyoso: 有符合某个字串在其中的话，也可以dir配合万用字元*取得 01/03 00:02