大家好 每個月其他部門都會寄資料來，檔名每次都會些微更改，寫了一個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://webptt.com/m.aspx?n=bbs/Office/M.1504769184.A.B59.html ※ 編輯: sekyo (114.137.56.11), 09/07/2017 15:38:18