XLS.Sheet和MSExcel是两种完全不同的功能,不能混用。乱折腾还不如多看看帮助:
http://www.foxtable.com/webhelp/topics/1465.htm
这个代码也没有必要使用MSExcel
If dlg.ShowDialog = DialogResult.OK Then
Dim Book As New XLS.Book(dlg.FileName)
For Each Sheet1 As XLS.Sheet In Book.Sheets
If Sheet1.Name.Contains ("理想") Then
If Sheet1.Rows.Count > 4 Then
For n1 As Integer = 2 To Sheet1.Rows.Count - 1