→ soyoso: 原文寫到的錯誤訊息，desktop後面多加上\則可執行 09/07 16:24
→ sekyo: 謝謝你！感激不盡 09/07 17:04
大家好
每個月其他部門都會寄資料來，檔名每次都會些微更改，寫了一個vba更改檔案名稱，並
另存新檔，以往都可以順利使用，但交接給同事後vba出現問題無法使用，想請問各位可
能原因以及解決方法。
Sub 更名
Dim path1,file1
Path1="c：users\desktop"
File1=dir(path1 & "*部份檔名*")
Set book1= workbooks.open(path1 & file1)
Book1.saveas fileName:="更改檔名的路徑"
Workbooks("更改檔名").close savechanges:=false
錯誤資訊：
執行階段錯誤1004
Excel無法存取文件 desktop,文件可能是唯讀或已加密。
再請幫忙了，謝謝！
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.137.56.11
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1504769184.A.B59.html
※ 編輯: sekyo (114.137.56.11), 09/07/2017 15:38:18