[求助]关于EXCEL 多列数据导入处理 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于EXCEL 多列数据导入处理

共有2068人关注过本帖树形打印复制链接主题：[求助]关于EXCEL 多列数据导入处理

xietan417

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：731 积分：6493 威望：0 精华：0 注册：2011/6/26 11:45:00

[求助]关于EXCEL 多列数据导入处理 发帖心情

Post By：2016/4/7 14:41:00 [只看该作者]

此主题相关图片如下：fox.png

像这样的EXCEL数据，我要批量导入FT，FT中的数据以下形式：

Style Size QTY

10501L/PRMT 12 2

10508L/BKMT 11 2

还要把“Style / Size” 这个列下面的数据中 “-”去掉！

应该怎么做啊？

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/7 14:51:00 [只看该作者]

参考代码

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

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

For n As Integer = 3 To Sheet.Rows.Count-1
    For c As Integer = 0 To sheet.Cols.count-1 Step 2
        Dim r As Row = Tables("表A").AddNew()
        For m As Integer = 0 To nms.Length - 1
            r(nms(m)) = Sheet(n,c+m).Value
        Next
    Next
Next

xietan417

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：731 积分：6493 威望：0 精华：0 注册：2011/6/26 11:45:00

Post By：2016/4/7 15:40:00 [只看该作者]

好的！谢谢！

xietan417

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：731 积分：6493 威望：0 精华：0 注册：2011/6/26 11:45:00

Post By：2016/4/7 16:06:00 [只看该作者]

如直接在导入时，就将空白行筛选掉？导入后再删除速度太慢了！

大红袍

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/7 16:10:00 [只看该作者]

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

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

For n As Integer = 3 To Sheet.Rows.Count-1
    For c As Integer = 0 To sheet.Cols.count-1 Step 2
        If Sheet(n,c).Text > "" Then
            Dim r As Row = Tables("表A").AddNew()
            For m As Integer = 0 To nms.Length - 1
                r(nms(m)) = Sheet(n,c+m).Value
            Next
        End If
    Next
Next

下一主题 >> << 上一主题

主题：[求助]关于EXCEL 多列数据 导入处理

主题：[求助]关于EXCEL 多列数据导入处理