[已解决]求助内存溢出BUG

linx

循环执行下列代码有时会在 .Refresh BackgroundQuery:=False一句提示内存溢出，有时候又不会，请问该如何更改，谢谢。output.txt是个1Kb的小文本文件。
Private Sub 读取txt(shnm As String) 'shnm表示读取的txt输出到的工作表sheet的名字,输入到V列
    Sheets(shnm).Select
    Sheets(shnm).range("V:X").ClearContents
    Set st = ActiveSheet.QueryTables.Add(Connection:="TEXT;E:\JAVA\WordSeg\file\output.txt", Destination:=range("$" & "V" & "$1"))
    With st
        .RefreshStyle = xlOverwriteCells 'xlInsertDeleteCells
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 65001
        .TextFileOtherDelimiter = "/"
        .TextFileColumnDataTypes = Array(2, 2, 1) '用于指定类型
        .Refresh BackgroundQuery:=False
    End With
    Set st = Nothing
End Sub

最佳答案

月排行榜 / 总排行榜

chart888

2017-6-7 09:52

没有附件没有办法测试
加一句，再试试，应该就好了

ON ERROR RESUME NEXT

跳转到最佳答案楼层

chart888

没有附件没有办法测试
加一句，再试试，应该就好了

ON ERROR RESUME NEXT

linx

    真的好了，感谢！
    不知道出错原因.不上传附件是因为楼主在程序里调用了JAVA写的一个class文件执行一个写txt的操作，ws = Shell("java -classpath .;E:\JAVA\WordSeg\* wordseg.WordSeg", 0)，也可能是这句导致的内存溢出，因为改变这句话的调用模式比如0变成1，执行更少次循环就会跳出内存溢出，问题在于这个bug有时候出现有时候不出现，这次出了bug我在代码里加了“On Error Resume Next”后就能运行了，而且是正常运行，然后把这句“On Error Resume Next”删掉程序仍然能正常运行，不可理解。