vb.net将excel表格数据填加到Listbox控件中并去重复选项

Dim xlApp As Object = Nothing
Dim xlBooks As Excel.Workbooks = Nothing
Dim xlBook As Excel.Workbook = Nothing
Dim xlSheets As Excel.Sheets = Nothing
Dim xlSheet As Excel.Worksheet = Nothing
Dim myrange As Excel.Range = Nothing
Dim i, j As Integer '定义listbox1控件删除重复值变量
Dim strFilePath As String = "C:\Users\Dell\Desktop\数据可视化测试\计2020.3.20.xlsx"
xlApp = New Excel.Application()
xlBooks = xlApp.Workbooks
xlBook = xlBooks.Open(strFilePath)
xlSheets = xlBook.Worksheets
xlSheet = xlSheets("Sheet1") '这里是你要读入数据的那个sheet页
'第一行第一列
myrange = xlSheet.Range("h2")
' Dim a As String = myrange.Value
MsgBox(xlSheet.UsedRange.Rows.Count) '最大的使用行数。有记录的总行数。包括写过数据然后删除数据的空白行。要删除这样的行，必须整行删除掉。
' MsgBox(xlSheet.UsedRange.Columns.Count) '最大的使用列数。

TextBox1.Text = myrange.Text
MsgBox("暂停")
''''''''''''''''''''''''''''''''''''将表格内容填加到Listbox1控件中'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
For i = 2 To xlSheet.UsedRange.Rows.Count
If xlSheet.Range("h" & i).Value = Nothing Then '判断如果表格为空数据，停止导出
Exit For
End If
ListBox1.Items.Add(xlSheet.Range("h" & i).Value)
Next
'''''''''''''''''''''''''''''''''''将Listbox1控件中重复数据去重''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
For i = 0 To ListBox1.Items.Count - 1
For j = ListBox1.Items.Count - 1 To i + 1 Step -1
If ListBox1.Items(i) = ListBox1.Items(j) Then ListBox1.Items.RemoveAt(j) '使用remove 不能删除
Next
Next
xlBook.Close(True) '关闭工作簿
xlApp.Quit '结束EXCEL对象

• 点赞
• 收藏
• 分享
• 文章举报