用vb輸入excel的sheet內容值,why error?(編號：614)

Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")
ExcelSheet.Application.Visible = True
'在表格的第一個儲存格中寫些文字
ExcelSheet.Cells(1, 1).Value = "This is column A, row 1"
'將該表格儲存到 C:\test.doc 目錄
ExcelSheet.SaveAs "C:\ TEST.DOC"