主题：导入Excel，设置相应的列

兄弟们 有没办法在窗口设计一个按钮，设置好向对于的列  然后点击选择Excel文件，导入里面的内容，从后面的开行开始排列，并且自动添加的新行。

不是非常理解你的意思? 你指的是合并数据,只合并指定列吗?

 

用例子说话。

 参考代码，自己改一下

 

Dim Book As New XLS.Book("c:\test\订单.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)

'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nms() As String = {"第一列", "", "第二列"}
For n As Integer = 0 To Sheet.Rows.Count -1
    Dim r As Row = Tables("表A").AddNew()
    For m As Integer = 0 To nms.Length - 1
        If m > "" Then
             r(nms(m)) = Sheet(n,m).Value
        End If
    Next
Next

甜兄弟 谢谢你  能不能点击后，再去选中Excel，然后设置对应Excel的 ABCD........对应到Foxtable 里面的第一列 第二列 ......不是以顺序对应，比如Excel-A列 对于Foxtable的第二列，你看这个能实现吗？感谢 辛苦了！

你该这里。比如 C列->第一列，D列->第十列，其余不要

 

Dim nms() As String = {"", "", "第一列", "第十列"}

可不可以实现 选择 Excel，然后在导入啊！感谢 因为每次要导入的Excel文件都不一样。感谢 感谢

 

可以，参考这里的知识

 

http://www.foxtable.com/help/topics/0328.htm

了解一下