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