作者ptguitar (佩蒂吉他)
看板Office
標題[算表] xls,xlsx等匯入
時間Fri Feb 3 16:55:38 2017
軟體:excel
版本:2007以上
範例檔案如下
https://drive.google.com/file/d/0BwCgrQhGgaw7OVN1SnFIVDNqQU0/view?usp=sharing
我有數十個excel檔案
副檔名有xls,xlsx 其中有些有加密
我想要匯入這些檔案 並依照各自檔名取工作表名稱貼上去
但遇到加密檔案可以跳出畫面要我輸入檔案密碼後繼續下去
我有找到一個範例檔案不知道怎麼修改
麻煩各位 感謝
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.34.252.11
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1486112141.A.72C.html
2F：→ soyoso: 另外如果該巨集檔案和其他要匯入檔案在同個目錄下，巨集檔 02/03 17:27
3F：→ soyoso: 案的排除，和以檔名為工作表名稱及要匯入檔案停止運算、更 02/03 17:28
5F：→ soyoso: 加上貼上後，匯入檔案的關閉 02/03 17:29
6F：→ soyoso: 如同檔名而不同副檔名上，則請再調整如worksheet.name則以 02/03 17:33
7F：→ soyoso: 變數openfile來命名 02/03 17:33
8F：→ soyoso: 原巨集內為開啟檔案將activesheet複製，貼上於巨集檔案內 02/03 17:37
9F：→ soyoso: 如果還要將開啟的檔案內全部工作表(迴圈)或有資料的工作表 02/03 17:38
10F：→ soyoso: (迴判和判斷)的話，再請調整 02/03 17:38
11F：→ soyoso: 除range.copy和sheets.add外，另可以sheets.copy的方式 02/03 17:44
12F：→ ptguitar: 哇 感謝大大 我上班日研究看看 有問題再來請教 02/03 23:12
13F：→ ptguitar: 那想再問如果遇到密碼輸入錯誤要跳過這個檔案繼續要怎麼 02/06 10:56
14F：→ ptguitar: 寫.. 02/06 10:56
15F：→ soyoso: 於迴圈上方加上on error resume next 02/06 12:02
16F：→ ptguitar: 可以了 感謝大大!! 02/06 13:38