用VB调用已经打开的EXCEL文档

Dim oExcel As New Excel.Application
Dim ExlSht As Excel.Worksheet
On Error GoTo 1
Set oExcel = GetObject(, "Excel.Application")'获得当前打开的EXCEL
'若Excel没有启动
1:
If Err = 429 Then
Err = 0
Set oExcel = CreateObject("Excel.Application")
'无法创建Excel对象
If Err = 429 Then
MsgBox Err & ": " & Error, vbExclamation + vbOKOnly
Exit Sub
End If
End If
'oExcel.Workbooks.Add
'检查最新的版本
If Val(oExcel.Application.Version) >= 8 Then
Set ExlSht = oExcel.ActiveSheet
Else
Set ExlSht = oExcel
End If
'OExcel.Visible = True
ExlSht.Cells(1, 1) = "AAA" '操作