jsa open报错 愁死我了 怎么解决 如果是vba的话是怎么解决的

perfect131

                              我用的 FreeFile 可能没被释放导致的
            如下图所示 该怎么解决

lss001

VBA如下→↓←
Close [filenumberlist]
     filenumberlist 参数为一个或多个文件号，若省略 filenumberlist，则将关闭 Open 语句打开的所有活动文件。
Reset    ' 关闭文件并将缓冲区内的数据写到磁盘中。

perfect131

lss001 发表于 2024-11-30 13:59
VBA如下→↓←
Close [filenumberlist]
     filenumberlist 参数为一个或多个文件号，若省略 filenumber ...

谢谢 这个试过了 无效 关键怎么释放freefile获取的内存 重置freefile

lss001

perfect131 发表于 2024-11-30 14:41
谢谢 这个试过了 无效 关键怎么释放freefile获取的内存 重置freefile

可以测试一下
FreeFile[(rangenumber)]函数
参数默认0文件号1-255之间
        填写1文件号256-511之间

perfect131

lss001 发表于 2024-11-30 15:06
可以测试一下
FreeFile[(rangenumber)]函数
参数默认0文件号1-255之间

这个也试过了无效

lss001

perfect131 发表于 2024-11-30 15:43
这个也试过了无效

'Open参数看看

function write(path, content) {
        Kill(path) //删除文件
        var fnum = FreeFile()
        //Debug.Print(fnum)
      
        var fn = Open(path, fnum, jsBinary, jsWrite, jsLockReadWrite, 10000)  
        Put(fnum, content)
        //var fn = Open(path, fnum, jsOutput, jsWrite, jsShared, 10000)
        //Write(fnum, content)
        Close(fnum)
}