Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter = "Excel文件|*.xls|excel文件|*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
MessageBox.Show(1)
'文件的地址： dlg.FileName
Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("合同台账.签约价格").StopRedraw()
'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nms() As String = {"物资名称", "规格型号", "计量单位", "暂定数量", "采购单价", "是否含税", "税率", "固定单价", "是否为资产"}
'注意下面的循环变量从1开始，而不是从0开始，因为Excel表的第一行是标题
For n As Integer = 1 To Sheet.Rows.Count - 1
Dim r As Row = Tables("合同台账.签约价格").AddNew()
For m As Integer = 0 To nms.Length - 1
MessageBox.Show(Sheet(n, m).Value)
r(nms(m)) = Sheet(n, m).Value
Next
Next
Tables("合同台账.签约价格").ResumeRedraw()
End If
举例： 我的表格内容，一共有3行，第一行为标题行，另外两个为内容行，导入的时候，软件将后面的红白行业导入了，如何避免？
加好友 
发短信
Post By：2023/6/8 19:55:00 [只看该作者]
