Private Sub Command1_Click()
Dim SurferApp As New Surfer.Application
Dim PlotDoc As Surfer.IPlotDocument
Dim MapFrame As Surfer.IMapFrame
Set SurferApp = CreateObject("Surfer.Application")
SurferApp.GridData DataFile:="D:\1.xls", xCol:=1, yCol:=2, zCol:=3, algorithm:=2, ShowReport:=False, OutGrid:="D:\1.Grd"
Set PlotDoc = SurferApp.Documents.Add(1)
Set MapFrame = PlotDoc.Shapes.AddContourMap("D:\1.Grd")
PlotDoc.Export FileName:="D:\1.bmp", Options:="Width=400,Height=500"
Picture1.Picture = LoadPicture("D:\1.bmp")
End Sub

上述程序调试时一直出现Insufficient data in worksheet.第五句一直错误，郁闷。