Vb与Excel的问题

xuanxuan1981 2006-01-20 09:06:07

我在运行这段程序时显示出错在Set xlApp = CreatObject("Excel.Application")

程序源代码如下：
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Private Sub MENU_SAVE_Excel_Click()

Dim FileName As String
CommonDialog1.FileName = ""
CommonDialog1.Filter = "excel 表| *.xls"
CommonDialog1.ShowSave
FileName = CommonDialog1.FileName

If FileName = "" Then
Exit Sub
End If

Set xlApp = CreatObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1) '打开Excel工作表
xlSheet.Activate '激活工作表
For i = 1 To RecordNumber
xlSheet.Cells(i + 1, 1) = Data(i, 0)
xlSheet.Cells(i + 1, 2) = Data(i, 1)
Next i
xlSheet.Cells(2, 3) = RecordNumber
xlSheet.Cells(1, 1) = "X"
xlSheet.Cells(1, 2) = "Y"
xlSheet.Cells(1, 3) = "数据总数"
xlBook.SaveAs FileName
xlBook.RunAutoMacros (xlAutoClose) '执行Excel关闭宏
xlBook.Close (True) '关闭Excel工作薄
xlApp.Quit '关闭Excel
Set xlApp = Nothing
End Sub

运行时显示错误：子程序或函数未定义。
那位高手帮忙看一下，问题出在哪里？谢谢

...全文