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\")  

你如果是C/S方式，而且在Windows平台安装Excel话，可以用Excel.Application调用，也就是COM。

其他的话，需要用JAVA编写代码，引入poi等jar包，进行编程。

楼主的分享很到位，感谢了。。