excel导入问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → excel导入问题

共有2268人关注过本帖树形打印复制链接主题：excel导入问题

lycliu

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

加好友

发短信

等级：幼狐帖子：65 积分：532 威望：0 精华：0 注册：2018/4/9 15:45:00

excel导入问题 发帖心情

Post By：2018/8/6 11:38:00 [显示全部帖子]

导入Excel时，有多个工作表，也有隐藏的工作表，有什么办法可以控制不导入隐藏的工作表吗？

lycliu

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

加好友

发短信

等级：幼狐帖子：65 积分：532 威望：0 精华：0 注册：2018/4/9 15:45:00

Post By：2018/8/6 11:48:00 [显示全部帖子]

写代码的，如何通过代码判断是否为隐藏呢？

lycliu

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

加好友

发短信

等级：幼狐帖子：65 积分：532 威望：0 精华：0 注册：2018/4/9 15:45:00

Post By：2018/8/6 11:53:00 [显示全部帖子]

Dim dlg As new OpenFileDialog

If dlg.ShowDialog = DialogResult.OK Then

Dim book As new XLS.Book(dlg.FileName)

For Each sheet As XLS.Sheet In book.Sheets

Dim i As Integer

For i =0 To book.sheets.count-1

Dim sheet As XLS.Sheet = book.Sheets(i)

try

Connections("_strActiveConn").BeginTransaction() '开始事务

lycliu

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

加好友

发短信

等级：幼狐帖子：65 积分：532 威望：0 精华：0 注册：2018/4/9 15:45:00

Post By：2018/8/7 9:49:00 [显示全部帖子]

上面的问题解决了，但是我想让员工自己选择导入任意的Excel表单，我把一个Excel里面的多个工作表单的名字赋值给了一个数组，然后想在listview中这样子显示出来，能不能做到呢？
图片点击可在新窗口打开查看

此主题相关图片如下：微信图片_20180807094226.png

Dim lvw As WinForm.ListView = Forms("窗口1").Controls("ListView1")

Dim dlg As new OpenFileDialog

If dlg.ShowDialog = DialogResult.OK Then

Dim book As new XLS.Book(dlg.FileName)

Dim i As Integer

For Each sheet As XLS.Sheet In book.Sheets

Dim cls(0 To book.sheets.Count) As String

For i =0 To book.sheets.Count-1

cls(i)=book.sheets(i).Name

End If

lycliu

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

加好友

发短信

等级：幼狐帖子：65 积分：532 威望：0 精华：0 注册：2018/4/9 15:45:00

Post By：2018/8/7 10:56:00 [显示全部帖子]

之前看了这个listview的例子，不是很懂就来问一下。然后现在能实现了，但是为什么不是在同一行上面的呀！我想的是复选框和表单名字在同一行上面的
图片点击可在新窗口打开查看

此主题相关图片如下：微信图片_20180807105304.png

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

主题：excel导入问题