请教代码
如何像这样 指定导入指定列呢 现在改了代码 有些列是没有必要导入的 导入会导致报错
'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nms() As String = {"频率","完成日期","完成时间","备注"} '代码省略了些导入列 具体参考附件
这下面是根据情况改写的导入代码 麻烦指导一下
Dim dlg As New OpenFileDialog
dlg.Filter= "所有文件|*.*|Excel2003文件|*.xls|Excel2007文件|*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
MessageBox.Show("你选择的是:" & dlg.FileName,"提示")
If MessageBox.Show("是否合并?","请确认!",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) = DialogResult.OK Then
DataTables("制度标准二级_Table1").StopRedraw
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 = 2 To rg.Rows.Count
Dim ro As Row = Tables("制度标准二级_Table1").AddNew
For i As Integer = 0 To Tables("制度标准二级_Table1").Cols.Count - 1
ro(i) = ary(n,i+2)
Next
Next
MessageBox.Show("导入成功!","恭喜!")
catch ex As exception
msgbox(ex.message)
MessageBox.Show("导入失败!","请再试一遍!")
finally
DataTables("制度标准二级_Table1").ResumeRedraw
app.quit
End try
Else
Return
End If
End If