以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  能否导入EXCEL表中经过筛选的数据到Foxtable  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=58010)
--  作者：实话实说
--  发布时间：2014/10/10 7:36:00
--  能否导入EXCEL表中经过筛选的数据到Foxtable
也就是不导入隐藏的数据
--  作者：狐狸爸爸
--  发布时间：2014/10/10 8:05:00
--  

可以，结合：

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

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

 
--  作者：实话实说
--  发布时间：2014/10/11 9:45:00
--  

只导入EXCEL表筛选的行,不导入隐藏行,不知行否

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:导入excel.zip
--  作者：实话实说
--  发布时间：2014/10/11 12:25:00
--  
希望回应
--  作者：实话实说
--  发布时间：2014/10/11 16:52:00
--  

再顶一下
--  作者：e-png
--  发布时间：2014/10/11 20:25:00
--  
Dim  Book As New XLS.Book(ProjectPath & "学生成绩.xls")
Dim  Sheet As XLS.Sheet = Book.Sheets(0)
Tables("表A").StopRedraw()
Dim nms() As  String = {"班级","姓名","语文","数学","英语","化学","物理","总分"}
For n As Integer = 1 To Sheet.Rows.Count -1
    If sheet.Rows(n).visible = True Then
        Dim r As  Row = Tables("表A").AddNew()
        For  m As  Integer = 0 To nms.Length - 1
            r(nms(m)) = Sheet(n,m).Value
        Next
    End If
Next
Tables("表A").ResumeRedraw()
--  作者：sdlll
--  发布时间：2014/10/11 22:12:00
--  
赞一个
--  作者：实话实说
--  发布时间：2014/10/12 9:28:00
--  
以下是引用e-png在2014-10-11 20:25:00的发言：
Dim  Book As New XLS.Book(ProjectPath & "学生成绩.xls")
Dim  Sheet As XLS.Sheet = Book.Sheets(0)
Tables("表A").StopRedraw()
Dim nms() As  String = {"班级","姓名","语文","数学","英语","化学","物理","总分"}
For n As Integer = 1 To Sheet.Rows.Count -1
    If sheet.Rows(n).visible = True Then
        Dim r As  Row = Tables("表A").AddNew()
        For  m As  Integer = 0 To nms.Length - 1
            r(nms(m)) = Sheet(n,m).Value
        Next
    End If
Next
Tables("表A").ResumeRedraw()

试啦，EXCEL表中隐藏的行还是导入了
--  作者：实话实说
--  发布时间：2014/10/12 9:55:00
--  

请有点甜和lsy大师关注一下
--  作者：有点甜
--  发布时间：2014/10/12 10:05:00
--  
 上面的代码没有任何问题啊。