急！我的VB代码有什么问题！

老头

我想象CAD那样Get已打开的Excel文档，或没有打开时就建个Excel空文档.。

以下代码有什么问题或有其它方法达到这个目的吗？谢谢帮忙！

Public ExcelApp As Object ' Excel.Application
'On Error Resume Next
Set ExcelApp = GetObject("Microsoft Excel")
If Err Then
    Err.Clear
    Set ExcelApp = CreateObject("Microsoft Excel")
End If
ExcelApp.Visible = True

tfyyf

On Error Resume Next
Set Excel = GetObject(, "excel.Application")
If Err Then
  Err.Clear
  Set Excel = CreateObject("excel.Application")
  If Err Then
  MsgBox ("不能运行excelD")
  Exit Sub
  End If
 End If
 Excel.Visible = True