Dim lj As String =e.Form.controls("TextBox2").value
'获取文件
Dim gzbq As Integer=e.Form.controls("NumericComboBox3").value
Dim gzbz As Integer=e.Form.controls("NumericComboBox4").value
Dim mhs As Integer=e.Form.controls("NumericComboBox1").value-1
Dim mzs As Integer=e.Form.controls("NumericComboBox2").value-1
try
Dim test As New XLS.Book(lj) '定义一个Excel工作簿
Catch ex As Exception
messagebox.Show("文件错误!","提示")
Return
End try
Dim Book As New XLS.Book(lj) '定义一个Excel工作簿
Dim zgzb As Integer=book.Sheets.Count
If gzbq<0 Or gzbz<0 Then
messagebox.show("起始页与终止页不能小于0!","提示")
Return
End If
If gzbq>zgzb Or gzbz>zgzb Then
messagebox.show("工作表选择范围为0-" & zgzb-1,"提示")
Return
End If
If mhs<0 Then
messagebox.show("起始行不能小于0!","提示")
Return
End If
Dim i As Integer
Dim dyg As String
Dim mclj As String
'msgbox("aa")
For myh As Integer=gzbq To gzbz
Dim Sheet As XLS.Sheet = Book.Sheets(myh) '引用工作簿的第一个工作表
i=mhs
Do While 1=1
dyg=sheet(i,0).value
mclj=sheet(i,0).Hyperlink
If dyg="" Or mclj="" Then
Exit Do
Else
Tables("抓取数据_table1").AddNew
Tables("抓取数据_table1").Current("bh")=i
Tables("抓取数据_table1").Current("cxdy")=sheet(i,0).value
Tables("抓取数据_table1").Current("clj")=mclj
Tables("抓取数据_table1").Current("yh")=myh
End If
i=i+1
Loop
Next
Tables("抓取数据_table1").save
Tables("抓取数据_table1").Position=0
后面在timer里还有回写保存到excel的代码，应该没啥关系了。这段第一次运行没问题，运行完再选择一个新的文件就出错。
加好友 
发短信
Post By：2017/10/12 10:13:00 [只看该作者]
