Set xlApp = CreateObject("Excel.Application") '创建对象
xlApp.Visible = true '隐藏电子表格
Set xlBook = xlApp.Workbooks.Open("e:\aqjcsj\xwfb_dy.xls") '打开文件
Set xlSheet = xlBook.Worksheets(1)'打开第一个表
for i=1 to 10
for j=1 to 10
response.write xlSheet.Cells(i,j)
next
next
xlApp.DisplayAlerts=false
xlbook.close'关闭连接