大家好 每个月其他部门都会寄资料来，档名每次都会些微更改，写了一个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/cn.aspx?n=bbs/Office/M.1504769184.A.B59.html ※ 编辑: sekyo (114.137.56.11), 09/07/2017 15:38:18