[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[文件操作] word vba 无法创建bat文件

工作原因,需要临时创建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的文件
复制代码

这个应该是在word的安全选项里找原因吧

QQ 20147578

TOP

回复 2# czjt1234


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

TOP

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

TOP

返回列表