Dim objSurfer As ObjectSet objSurfer = CreateObject("Surfer.Application") '创建surfer对象
哪一篇，我忘记了，你可以直接复制的。
