想把EXCEL文件的所有SHEET名称追加到CheckedListBox例表项中,但执行下面代码会死循环
Dim lb As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
Dim file As Object = e.Form.Controls("TextBox3").value
Dim App As New MSExcel.Application
app.DisplayAlerts=False '是否显示EXCEL警示
Dim Wb As MSExcel.WorkBook
Dim Ws As MSExcel.WorkSheet
Wb = App.WorkBooks.Open(file)
For k As Integer = 1 To wb.workSheets.Count '//多个sheet的处理
Ws = Wb.WorkSheets(k)
lb.ComboList = Ws.name & vbcrlf & lb.ComboList
Next
app.quit()