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)
}

WANT-T

这点还能难住老羊头？看看文档不就都会了嘛

perfect131

WANT-T 发表于 2024-12-1 10:36
这点还能难住老羊头？看看文档不就都会了嘛

文档里没写怎么解决

perfect131

lss001 发表于 2024-11-30 17:32
'Open参数看看

function write(path, content) {

谢谢 也报错 填Open(path, fnum就报错
估计是fnum没被释放或被阻塞了
用filesystem解决了
open我已经放弃了