[算表] xls,xlsx等匯入

[ptguitar (佩蒂吉他)]

軟體:excel

版本:2007以上

範例檔案如下
https://drive.google.com/file/d/0BwCgrQhGgaw7OVN1SnFIVDNqQU0/view?usp=sharing


我有數十個excel檔案

副檔名有xls,xlsx 其中有些有加密

我想要匯入這些檔案 並依照各自檔名取工作表名稱貼上去

但遇到加密檔案可以跳出畫面要我輸入檔案密碼後繼續下去

我有找到一個範例檔案不知道怎麼修改

麻煩各位 感謝


--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.34.252.11
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1486112141.A.72C.html
→ soyoso: 先修改這方面 https://i.imgur.com/wBWeJqC
→ soyoso: 另外如果該巨集檔案和其他要匯入檔案在同個目錄下，巨集檔
→ soyoso: 案的排除，和以檔名為工作表名稱及要匯入檔案停止運算、更
→ soyoso: 新、事件、警示等 https://i.imgur.com/4whkdSd
→ soyoso: 加上貼上後，匯入檔案的關閉
→ soyoso: 如同檔名而不同副檔名上，則請再調整如worksheet.name則以
→ soyoso: 變數openfile來命名
→ soyoso: 原巨集內為開啟檔案將activesheet複製，貼上於巨集檔案內
→ soyoso: 如果還要將開啟的檔案內全部工作表(迴圈)或有資料的工作表
→ soyoso: (迴判和判斷)的話，再請調整
→ soyoso: 除range.copy和sheets.add外，另可以sheets.copy的方式
→ ptguitar: 哇 感謝大大 我上班日研究看看 有問題再來請教
→ ptguitar: 那想再問如果遇到密碼輸入錯誤要跳過這個檔案繼續要怎麼
→ ptguitar: 寫..
→ soyoso: 於迴圈上方加上on error resume next
→ ptguitar: 可以了 感謝大大!!