wps vba 无法创建bat文件

baoxuehero

工作原因，需要临时创建bat文件，之前没问题，这两天发现一直报运行时错误75，路径/文件访问错误，没有权限，不知道是不是更新wps后的原因？甚至直接尝试将一个bat文件使用Name语句重命名为txt文件，没问题，倒过来，改成bat也报错，请大神们看看是什么原因？

1. Dim tempBatchPath As String  ' 声明一个字符串变量tempBatchPath，用于存储临时批处理文件的路径
   
2.         tempBatchPath = "d:\temp_call_script.bat"  ' 临时批处理文件的路径，并赋值给tempBatchPath变量
   
3.     ' 创建临时批处理文件
   
4.     Dim fileNum As Integer  ' 声明一个整数变量fileNum，用于获取一个未使用的文件号
   
5.     fileNum = FreeFile()  ' 调用FreeFile函数获取一个未使用的文件号，并赋值给fileNum变量
   
6.     Open tempBatchPath For Output As fileNum  ' 打开tempBatchPath指定的文件，用于写入，并指定文件号为fileNum
   
7.     Print #fileNum, "@echo off"
   
8.     Print #fileNum, ExtractDriveLetter(macroPath) '向临时批处理文件写入盘符，确保盘符与cd的路径一致
   
9.     Print #fileNum, "cd " & macroPath  ' 向临时批处理文件写入命令"cd"，后面跟上macroPath变量表示的路径，用于改变工作目录到VBA宏所在目录
   
10.     Print #fileNum, "call """ & batchPath & """"  ' 向临时批处理文件写入命令"call"，后面跟上batchPath变量表示的批处理脚本路径，用于调用该脚本
    
11.     Close fileNum  ' 关闭文件号为fileNum的文件

复制代码

baoxuehero

已确定是wps版本更新的问题，卸载重装2023秋季（15319）版本可以正常运行，再装回2024春季（16729）版本，又无法正常运行了，之前还以为是最近安装的python相关软件有冲突。

baoxuehero

新版本为了安全，上了沙箱功能，无法与批处理文件交互，包括但不限于创建、修改、调用等等，关闭沙箱功能问题解决。