- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 导入Excel，设置相应的列 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=49738)
-- 发布时间：2014/4/23 14:15:00
-- 导入Excel，设置相应的列
兄弟们 有没办法在窗口设计一个按钮，设置好向对于的列 然后点击选择Excel文件，导入里面的内容，从后面的开行开始排列，并且自动添加的新行。
感谢 感谢
-- 发布时间：2014/4/23 14:17:00
--
不是非常理解你的意思? 你指的是合并数据,只合并指定列吗?
设置Fields 属性导入指定列即可
-- 发布时间：2014/4/23 14:21:00
--
以下是引用yangwenghd在2014-4-23 14:15:00的发言：
兄弟们 有没办法在窗口设计一个按钮，设置好向对于的列 然后点击选择Excel文件，导入里面的内容，从后面的开行开始排列，并且自动添加的新行。
兄弟们 有没办法在窗口设计一个按钮，设置好向对于的列 然后点击选择Excel文件，导入里面的内容，从后面的开行开始排列，并且自动添加的新行。
感谢 感谢
用例子说话。
-- 发布时间：2014/4/23 14:31:00
--
感谢 感谢
此主题相关图片如下：qq截图20140423142752.jpg
-- 发布时间：2014/4/23 14:39:00
--
参考代码，自己改一下
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
[此贴子已经被作者于2014-4-23 14:40:08编辑过]
-- 发布时间：2014/4/23 15:29:00
--
甜兄弟 谢谢你 能不能点击后，再去选中Excel，然后设置对应Excel的 ABCD........对应到Foxtable 里面的第一列 第二列 ......不是以顺序对应，比如Excel-A列 对于Foxtable的第二列，你看这个能实现吗？感谢 辛苦了！
-- 发布时间：2014/4/23 15:43:00
--
你该这里。比如 C列->第一列，D列->第十列，其余不要
Dim nms() As String = {"", "", "第一列", "第十列"}
-- 发布时间：2014/4/23 21:38:00
--
可不可以实现 选择 Excel，然后在导入啊！感谢 因为每次要导入的Excel文件都不一样。感谢 感谢
-- 发布时间：2014/4/23 22:07:00
--
以下是引用yangwenghd在2014-4-23 21:38:00的发言：
可不可以实现 选择 Excel，然后在导入啊！感谢 因为每次要导入的Excel文件都不一样。感谢 感谢
可不可以实现 选择 Excel，然后在导入啊！感谢 因为每次要导入的Excel文件都不一样。感谢 感谢
可以，参考这里的知识
http://www.foxtable.com/help/topics/0328.htm
-- 发布时间：2014/4/26 16:10:00
--
了解一下