如何将数据导入到一直打开的EXCEL工作表中？

wktt6833

下现是一段将数据表导入到EXCEL工作表的代码，
我的问题是：

如何先判断EXCEL工作簿（往来查询结果.xls）是否打开，
如果　打开则直接导入
否则　先打开后导入

请大家指点！

Private Sub 导入EXCEL_Click()
'需引用“Microsoft Excel X.0 Object Library”
Dim oApp As Object
Dim oappwork As Excel.Workbook, oappwork_B_07PZZCT As Excel.Worksheet
Dim path As String
path = CurrentProject.path & "\往来查询结果.xls"
Set oApp = CreateObject("Excel.Application")
oApp.Visible = False
Set oappwork = oApp.Workbooks.Open(path)
Set oappwork_B_07PZZCT = oappwork.Worksheets("往来查询")
j = 3000

oappwork_B_07PZZCT.Rows("4:" & j + 1).Delete
oappwork_B_07PZZCT.Cells(3, 1) = "日 期"
oappwork_B_07PZZCT.Cells(3, 2) = "凭证号"
oappwork_B_07PZZCT.Cells(3, 3) = "摘要"
oappwork_B_07PZZCT.Cells(3, 4) = "票号"
oappwork_B_07PZZCT.Cells(3, 5) = "借方金额"
oappwork_B_07PZZCT.Cells(3, 6) = "贷方金额"
With Me.subfrm.Form.Recordset
.MoveFirst
nn = .Fields.Count
j = 4
Do
If .EOF
Then Exit
Do
Else
For i = 1 To nn - 4
oappwork_B_07PZZCT.Cells(j, 0 + i) = .Fields(i)
Next i
j = j + 1 .MoveNext
End If
Loop MsgBox "往来查询结果已经导入EXCEL", vbOKOnly + vbInformation oApp.Visible = True
End With
With Me.subfrm.Form.Recordset
.MoveFirst
n = .RecordCount

On Error Resume Next
oApp.UserControl = True
End Sub