修改“另存为”默认保存路径
创作者俱乐部成员
论坛里有朋友发现，另存为的默认目录，在注册表里
https://bbs.wps.cn/topic/16115
尝试弄个宏，在每次保存前，修改注册表LastPath的值，为当前文件所在目录
| 🔔 | function Application_WorkbookBeforeSave(Wb, SaveAsUI, Cancel) { const p = ActiveWorkbook.Path const l = Evaluate(`lenb("${p}")`) const h = ExecuteExcel4Macro(`CALL("Advapi32", "RegOpenKeyExA", "5JCJJN", ${0x80000001 << 0}, "Software\\kingsoft\\Office\\6.0\\Common\\CloudFileDialog\\PathMemoryInfo\\saveTypeCommonPathInfo", 0, ${0x3f}, 0)`) ExecuteExcel4Macro(`CALL("Advapi32", "RegSetValueExA", "JJCJJCJ", ${h}, "LastPath", 0, 1, "${p}", ${l})`) ExecuteExcel4Macro(`CALL("Advapi32", "RegCloseKey", "JJ", ${h})`) } |
这只是个尝试，实际用的话，需要保存为xlam加载项，再考虑第一次创建的文件没有路径等情况
只是说这条路可以走通，通过保存前的事件，触发修改注册表的动作，改变另存为窗口默认的路径
但是，另一方面也可以看出，简简单单就可以修改注册表，使用宏确实需要谨慎
最起码，有了ai，在使用宏之前，用ai解释每一句到底干了什么，看清楚再用还是有必要的，也算是比较方便了
创作者俱乐部成员
创作者俱乐部成员
创作者俱乐部成员