VB编程把Spreadsheet控件中的数据导出到.xls中解决思路

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
[解决办法]
哎，木有高手知道吗？拜托各位啦，急求解答啊！