EXCEL新增的问题？

Question

If Dir("c:\excel.bz") = "" Then '判断EXCEL是否打开
    Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
    xlApp.Visible = True '设置EXCEL可见
    Set xlBook = xlApp.Workbooks.Open("c:\text.xls") '打开EXCEL工作簿
    Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
    xlsheet.Activate '激活工作表
    xlsheet.Cells(1, 1) = "abc" '给单元格1行驶列赋值
    xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL中的启动宏
  Else
    MsgBox ("EXCEL已打开")
  End If
如果c:\text.xls没有这个文件,新建一个EXCEL,应该怎么写?