[算表] vba檔案名稱

[chunchanhung (毛毛狂)]

目前藉由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://www.ptt.cc/bbs/Office/M.1546425595.A.0F6.html
→ soyoso: 開啟檔案名稱正作用中的話activeworkbook.name
→ soyoso: 如果巨集寫在a檔案內的話thisworkbook.name
→ soyoso: 如要要取得開啟活頁簿的話，可迴圈於workbooks集合
→ chunchanhung: S大你好
→ chunchanhung: 我如果我想用c檔案來執行這個巨集
→ chunchanhung: 我巨集寫在個人巨集活頁簿
→ chunchanhung: 那要怎麼改呢
→ soyoso: 如果a、b檔已經開啟且檔案不確定的話，就迴圈於workbooks
→ soyoso: 集合，判斷排除c檔檔名不要取，再判斷那個要歸類為a檔(可
→ soyoso: 能是活頁簿內有某個名稱的工作表之類的)，哪個為b檔
→ chunchanhung: S大
→ chunchanhung: 迴圈想了很久但還是沒有概念怎麼寫
→ chunchanhung: 能提示一下嗎 謝謝
→ chunchanhung: 我目前是 開啟兩個檔案 ：‘’隨機檔案‘’&b檔案
→ chunchanhung: 透過A檔案的巨集（a檔案未開啟
→ chunchanhung: 將 ‘’隨機檔案‘’內容複製到b檔案
→ chunchanhung: 那隨機檔案的名稱是只能透過workbook
→ chunchanhung: 迴圈來判斷嗎？
→ soyoso: 迴圈看是用for each...next或用for...next配合workbooks(
→ soyoso: 索引值)的方式，判斷為if workbook.name不為a或b檔名的話
→ soyoso: 就為隨機檔案檔名
→ soyoso: 隨機檔案的名稱是只能透過迴圈來判斷嗎？資料不足無法肯定
→ soyoso: 是否就只能用迴圈方式。因為有可能原po所開啟的隨機檔案是
→ soyoso: 有符合某個字串在其中的話，也可以dir配合萬用字元*取得