vbscript读取excel

[womingjiaowangle]

如何用vbscript读取本地excel 或者用asp读取,dbpath应如何设置,因为excel文件在本地而非服务器.

<vbscript读取 但读不出>
<script language="vbscript">

Sub GetCellValue()
on error resume next

dim ExcelApp
dim objWorkBook
dim objWorkBook_
dim objImportSheet
dim intLastRowNum
dim oSheet
dim blnNullRow
dim count,i

Set ExcelApp = CreateObject ( " Excel.Application " )

ExcelApp.Visible = True

Set objWorkBook = ExcelApp.Workbooks.Open("C:\test.xls")

Set objWorkBook_ = objWorkBook.Workbooks(1).Activate

Set objImportSheet = objWorkBook_.WorkSheets("Sheet1").select

intLastRowNum = objImportSheet.UsedRange.Rows.Count

msgbox intLastRowNum


For count = 1 To 4

blnNullRow = True

For i =0 To 9
msgbox "循环开始"

If Trim(objImportSheet.Cells(count, i).Value) = "" Then
msgbox "值为空"
blnNullRow = False
exit for
else
msgbox "值不为空"
msgbox objImportSheet.Cells(count, 1).Value

End If

Next

Next

ExcelApp.Quit
Set objWorkBook = Nothing
Set objImportSheet = Nothing
Set ExcelApp = Nothing


End Sub

</script>

请各位帮忙看看