提示错误：文件已经打开，是为什么？谢谢
小弟曾经编写个小程序，一直运行好好的．可惜这次准备写个配置文件，结果原本好好的程序，在第２次打开文件就卡住了
If UBound(xx) > 1 Then
'将这些文件转化为一个文件
For k = 1 To (UBound(xx) + 0)
filemix = frompath & "\ " & xx(k)
j = topath & "\tmp\DAY " & ineedtime & ".TXT " '
outfile0 = j
Open filemix For Input As #3
Open j For Append As #4
Do While Not EOF(3)
Line Input #3, jj
Print #4, jj
Loop
Close #3
Close #4
Next k
End If
'对这个文件进行必要的处理
Open outfile0 For Input As #1
每次到这里的时候，就提示 文件已经打开！！！
天啊，真的 不知道为什么？求教各位
[解决办法]
当然了，你打开的是在for 中的吗，所以已经打开了。
[解决办法]
Open outfile0 For Input As #1
你上句语句在你代码中并未发现。
你的代码在调试中未发现出错，建议代码修改为：
For k = 1 To (UBound(xx) + 0)
filemix = frompath & "\ " & xx(k)
j = topath & "\tmp\DAY " & ineedtime & ".TXT " '
outfile0 = j
Open filemix For Input As #3
Open j For Append As #4
Do While Not EOF(3)
Line Input #3, jj
Print #4, jj
Loop
Close '关闭所有打开的文件
Next k
End If
[解决办法]
打开文件用完之后要及时关闭
不然会有想不到的错误
