VB编程把Spreadsheet控件中的数据导出到.xls中
各位大侠好！
小弟在VB中用CommonDialog控件已经将.xml文件导入到Spreadsheet中，完了现需要将Spreadsheet中的数据导出到.xls中，结果总是失败，请各位指点，万分感谢！我的代码如下：

Module1中：Function SaveExcel()
On Error Resume Next
Spreadsheet1.ActiveSheet.Export ("d:\MATLAB7\work\dat1.xls "), c.ssExportActionOpenInExcel
If Err <> 0 Then
MsgBox "Unable to Export to Excel. "
End If
On Error GoTo 0
End Function
窗体中：Private Sub Command1_Click()
SaveExcel
.....
End Sub
[解决办法]
哎，木有高手知道吗？拜托各位啦，急求解答啊！