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控件删除重复值变量