F1Book1.ReadEx() 提示方法失败

[sytxzg999]

Dim ftype As F1FileTypeConstants
F1Book1.ReadEx(Fname)

报错，实进错误'-2147417848(80010108)',对象'ReadEx'的方法'IF1Book'失败。
------------------------
有一个.vts文件调用它时经常出个提示，但偶尔有几次也又没提示，但多数时都示。不知是什么原因。换其它.vts文件都没问题。

[sytxzg999]

Dim ftype As F1FileTypeConstants ftype = F1Book1.ReadEx(Fname) 报错，实进错误'-2147417848(80010108)',对象'ReadEx'的方法'IF1Book'失败。 ------------------------ 有一个.vts文件调用它时经常出个提示，但偶尔有几次也又没提示，但多数时都示。不知是什么原因。换其它.vts文件都没问题。

[zhoubo981001]

你这个使用VB写的？

[sytxzg999]

是的，VB。 好像读form没关掉，在readex就出错。