有新人会看这个贴然后很迷茫,看不懂,我重新给一个简单的
此主题相关图片如下:qq图片20170823225121.png
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "excel文件|*.xlsx; *.xls" '设置筛选器
Dim dr As DataRow
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim App As New MSExcel.Application
try
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
Dim ary = rg.value
'重点看这里,自己根据表格位置调整导入把---
For n As Integer = 1 To rg.Rows.Count
output.show(ary(n,1) & "," & ary(n,2) & "," & ary(n,3) & "," & ary(n,4))
Next
'重点看这里,自己根据表格位置调整导入把---
MessageBox.Show("导入成功!","恭喜!")
catch ex As exception
msgbox(ex.message)
MessageBox.Show("导入失败!","恭喜!")
finally
app.quit
End try
End If
思路关键就是获取完整个excel表格后,知道 ary(1,1)代表 单元格(1,1),剩下就是自己遍历去塞