Excel中的 SaveAs 有关问题

Excel中的 SaveAs 问题
用VB 调用excel 功能,
要保存的文件名为 strFile

程序语句出错: Excel.WorkSheet.SaveAs strFile

我的开发电脑中使用的是 Excel 2003,
但是客户那边使用的是 Excel2000, 
应该是版本问题导致这条语句通不过,发生异常,怎样写能兼容Excel 2000的电脑?

thanks




------解决方案--------------------
你的可以打包带上
------解决方案--------------------
只能安装Excel2000来测试。
------解决方案--------------------
Dim VbExcell As Object
Dim vbbook As Object
Private Sub Command1_Click()
CreateXLS
End Sub

Sub CreateXLS()
'**************************** 创建 Excell
Set VbExcell = CreateObject("Excel.Application") '创建excel对象
VbExcell.Visible = True '对象可见
If Val(VbExcell.Application.VerSion) >= 8 Then
Set vbbook = VbExcell.ActiveSheet
Else
Set vbbook = VbExcell
End If
VbExcell.SHEETS("sheet1").Select
VbExcell.Cells(1, 1) = "col1 "
VbExcell.Cells(1, 2) = "col2 "
VbExcell.Cells(1, 3) = "col3 "
VbExcell.Visible = True
VbExcell.PrintPreview
'******************** 关闭 Excell
vbbook.SaveAs (Fname)
VbExcell.Quit
Set vbbook = Nothing
Set VbExcell = Nothing
ErrH:
If Err > 0 Then Exit Sub
End Sub

------解决方案--------------------
Fname是文件名的变量 你赋值给它了吗？