asp 读取EXCEL 怎样判断是最后一行

Question

因为我把空的单元格加了边框以后，即使是空数据也会读进去

Answer 1

Dim objApp : Set objApp = Server.CreateObject("Excel.Application") '生成EXCEL OBJECT
Dim objWorkbooks : Set objWorkbooks = objApp.Workbooks '生成WORKBOOKS OBJECT
Dim objWorkbook : Set objWorkbook = objWorkbooks.Open(EXCEL所在路径)'EXCEL OPEN
Dim objWorksheet : Set objWorksheet = objWorkbook.Worksheets(1) '打开WORK SHEET
Dim objRange : Set objRange = objWorksheet.UsedRange '取得值，然后以2维数组的形式保存
Dim arrData : arrData = objRange.value '存放EXCEL文件中所有的数据
'关闭清空处理
Set objRange = Nothing
Set objWorksheet = Nothing
objWorkbook.Close
Set objWorkbook = Nothing
Set objWorkbooks = Nothing
Set objApp = Nothing
If ubound(arrData,1) >= 0 Then
'row从2开始是因为前一行为TITLE
‘ubound(arrData,1)的结果为最后一行
for row = 2 to ubound(arrData,1)
'处理内容
next
end if