vb调用surfer画图，报错“自动化错误”，麻烦看下怎么办，谢谢！

cguzh

VB调用surfer程序，循环画图，开始画还是正常的，但画了几张后就会报错，自动化错误，不清楚怎么回事。
画图部分代码：
Sub ht(fileyl As String, element As String, validtime)
Dim fyl As String
strFileExport = fileyl & ".wmf"
strFilesave = fileyl & ".srf"
strFileConvert = "rainht.txt"
strFileGrid = "rainht.grd"
strFilePost = "rainpost.txt"
strFileConvert = App.Path & "\" & strFileConvert
strFileGrid = App.Path & "\" & strFileGrid
strFilePost = App.Path & "\" & strFilePost
Set srf = CreateObject("surfer.app")
r1 = srf.FileNew()
r1 = srf.FilePageLayout(1)
'------
r1 = srf.drawfillattributes("white", "red", "solid", 2)
报错就是红色语句，很纳闷为什么开始可以画，后面就报错了，而且每次报错的时候读取的雨量文件还不一定是同一个。
谢谢！

holz

不知道楼主是什么版本。

我这里

1. set srf=createobject("surfer.app")

复制代码

就过不去，只有

1. set srf=createobject("surfer.application")

复制代码

才能执行。

我这里 surfer 的 application 对象没有 FileNew、FilePageLayout、DrawFillAttributes 这样的方法或属性。

cguzh

vb6.0中文版，我觉得纳闷的是运行开始可以的，能画图出来的，就是循环运行多次后才跳错。

cguzh

大家帮忙看看哈！