OA （ ODomion Desiger 8.5） 读取Excel文件内容

Dim  excelApplication As Variant        

Dim  excelWorkbook As Variant

Dim  excelSheet As Variant                

Set  db=session.CurrentDatabase       

Set dc=db.UnprocessedDocuments       

If dc.count=0 Then                      Exit Sub        End If               

On Error Resume Next       

Set excelApplication = CreateObject(\"Excel.Application\")

If excelApplication Is Nothing Then       

   Set excelApplication = CreateObject(\"ET.Application\")        

End If       

excelApplication.Visible = True

        Set excelSheet = excelApplication.Workbooks.Add().sheets(\"Sheet1\")