Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]多选excel一次导入foxtable问题


  共有5493人关注过本帖树形打印复制链接

主题：[求助]多选excel一次导入foxtable问题
帅哥哟，离线，有人找我吗？
foxtable_boy
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：13 积分：165 威望：0 精华：0 注册：2016/5/26 10:57:00 		[求助]多选excel一次导入foxtable问题  发帖心情 Post By：2016/9/13 8:25:00 [只看该作者]

如何“多选 架构一样 excel文件“一次性导入到FOXTABLE？

DataTables("表1").DataRows.Clear
Dim dlg As New OpenFileDialog
dlg.Filter= "所有文件|*.*|Excel2003文件|*.xls|Excel2007文件|*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    MessageBox.Show("你选择的是:" & dlg.FileName,"提示")
    If MessageBox.Show("是否合并?","请确 认!",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) = DialogResult.OK Then
        DataTables("表1").StopRedraw
        Dim App As New MSExcel.Application
        try
            Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
            Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(2) ‘标签2
            Dim Rg As MSExcel.Range = Ws.UsedRange
            Dim cs() As String = { "123"，”131“ }  ‘导入列表名列表
            For n As Integer = 2 To rg.Rows.Count
                Dim ro As Row = Tables("表1").AddNew
                For i As Integer = 0 To cs.length - 1
                    ro(cs(i)) = ws.Cells(n,i+1).Text
                Next
            Next
            MessageBox.Show("导入成功!","恭喜!")
        catch ex As exception
            msgbox(ex.message)
            MessageBox.Show("导入失败!","遗憾!")
        finally
            DataTables("表1").ResumeRedraw
            app.quit
        End try
    Else
        'Return
    End If
[此贴子已经被作者于2016/9/13 8:51:24编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110854 积分：564214 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/9/13 8:53:00 [只看该作者]

try
            For Each file As String In dlg.FileNames
                Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(file)
                Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(2) '标签2
                Dim Rg As MSExcel.Range = Ws.UsedRange
                Dim cs() As String = { "123","131" }  '导入列表名列表
                For n As Integer = 2 To rg.Rows.Count
                    Dim ro As Row = Tables("表1").AddNew
                    For i As Integer = 0 To cs.length - 1
                        ro(cs(i)) = ws.Cells(n,i+1).Text
                    Next
                Next
            Next
            MessageBox.Show("导入成功!","恭喜!")
        catch ex As exception
            msgbox(ex.message)
            MessageBox.Show("导入失败!","遗憾!")
        finally
            DataTables("表1").ResumeRedraw
            app.quit
        End try
 回到顶部
帅哥哟，离线，有人找我吗？
foxtable_boy
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：13 积分：165 威望：0 精华：0 注册：2016/5/26 10:57:00 		  发帖心情 Post By：2016/9/13 9:10:00 [只看该作者]

老大，我这“一开始，打开选择目录，怎么多选EXCEL”？现在只能选一个EXCEL文件

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110854 积分：564214 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/9/13 9:26:00 [只看该作者]

鼠标拖拉框选，或者按住ctrl键

 回到顶部
帅哥哟，离线，有人找我吗？
foxtable_boy
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：13 积分：165 威望：0 精华：0 注册：2016/5/26 10:57:00 		  发帖心情 Post By：2016/9/13 9:55:00 [只看该作者]

是以下代码问题么？不能多选啊？  CTRL无效啊


DataTables("表1").DataRows.Clear
Dim dlg As New OpenFileDialog
dlg.Filter= "所有文件|*.*|Excel2003文件|*.xls|Excel2007文件|*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    MessageBox.Show("你选择的是:" & dlg.FileName,"提示")
    If MessageBox.Show("是否合并?","请确 认!",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) = DialogResult.OK Then
        DataTables("表1").StopRedraw
................................................................
        
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110854 积分：564214 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/9/13 10:00:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
foxtable_boy
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：13 积分：165 威望：0 精华：0 注册：2016/5/26 10:57:00 		  发帖心情 Post By：2016/9/13 10:35:00 [只看该作者]

我的天啊~~~~


您这直接给来个加   “dlg.MultiSelect = True”  代码不得了吗？我的天！




DataTables("表1").DataRows.Clear
Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
dlg.Filter= "所有文件|*.*|Excel2003文件|*.xls|Excel2007文件|*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    MessageBox.Show("你选择的是:" & dlg.FileName,"提示")   ‘这里是否需要修改？显示都选了几个文件？但是FileNames说维数错误！
    If MessageBox.Show("是否合并?","请确 认!",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) = DialogResult.OK Then
        DataTables("表1").StopRedraw
        Dim App As New MSExcel.Application
        try
            Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
            Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(2) ‘标签2
            Dim Rg As MSExcel.Range = Ws.UsedRange
            Dim cs() As String = { "123"，”131“ }  ‘导入列表名列表
            For n As Integer = 2 To rg.Rows.Count
                Dim ro As Row = Tables("表1").AddNew
                For i As Integer = 0 To cs.length - 1
                    ro(cs(i)) = ws.Cells(n,i+1).Text                             是否是这里定义多excel 维度有错误与上面名字？请给润润笔
                Next
            Next
            MessageBox.Show("导入成功!","恭喜!")
        catch ex As exception
            msgbox(ex.message)
            MessageBox.Show("导入失败!","遗憾!")
        finally
            DataTables("表1").ResumeRedraw
            app.quit
        End try
    Else
        'Return
    End If




[此贴子已经被作者于2016/9/13 10:41:51编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110854 积分：564214 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/9/13 11:07:00 [只看该作者]

没看明白，导入多个Execl看2楼

 回到顶部
帅哥哟，离线，有人找我吗？
foxtable_boy
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：13 积分：165 威望：0 精华：0 注册：2016/5/26 10:57:00 		  发帖心情 Post By：2016/9/13 12:18:00 [只看该作者]

不好意思老大！ 1、下面这段是否可以“提高倒入速度”？我前两天看一帖子，多维导入，没有text！ For i As Integer = 0 To cs.length - 1 ro(cs(i)) = ws.Cells(n,i+1).Text 2、开头 filemanes部分多文件选定后，提示语句是否更改成“您是否确定导入选定的“xx变量个数文件”？（选了1个就1个选了100个就提示100个待导入excel？ （本来我是想实现，打开目录选多个excel，确定后提示“选定文件名合集，问我是否导入这些选定名文件”！ 3、以上代码如何编写实现导入表格excel时，excel本身单元格没设置长日期时间格式，是3334.3444数字值，我已在fox里设置单元格 时间+长日期时间！导入失败

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110854 积分：564214 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/9/13 14:19:00 [只看该作者]

上例子说明

 回到顶部
总数 24 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询