[讨论]读取EXCEL的一个问题 Post By:2013/10/31 11:34:00 [只看该作者]
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog dlg.Filter= "Excel文件|*.xls" '设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮 Dim Book As New XLS.Book(dlg.FileName) Dim Sheet As XLS.Sheet = Book.Sheets(0) Dim Cell As XLS.CEll = Sheet(3,2) msgbox(cell.value)