vbscript读取excel
如何用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>
请各位帮忙看看