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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教从Excel报表提取数据问题

共有180人关注过本帖树形打印复制链接主题：请教从Excel报表提取数据问题

13315253800

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

加好友

发短信

等级：三尾狐帖子：601 积分：4376 威望：0 精华：0 注册：2018/1/3 16:03:00

请教从Excel报表提取数据问题 发帖心情

Post By：2024/11/18 9:25:00 [只看该作者]

蓝老师，我按照狐表使用指南中“从Excel报表提取数据”的提示操作，未能实现，请指导修改一下，在按钮代码如下：

'从Excel报表提取数据

For Each file As String In filesys.GetFiles("D:\Data\员工资料卡.xlsx")

If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then

Dim Book As New XLS.Book(file)

Dim Sheet As XLS.Sheet = Book.Sheets(0)

Dim dr As DataRow = DataTables("员工").AddNew

dr("姓名") = sheet(4, 1).Text

dr("部门") = sheet(5, 1).text

dr("出生日期") = sheet(4, 3).text

dr("雇佣日期") = sheet(5, 3).text

dr("性别") = sheet(6, 1).text

dr("职务") = sheet(6, 3).text

dr("地址") = sheet(7, 1).text

dr("家庭电话") = sheet(8, 1).text

dr("办公电话") = sheet(8, 3).text

dr("备注") = sheet(9, 0).text

End If

13315253800

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

加好友

发短信

等级：三尾狐帖子：601 积分：4376 威望：0 精华：0 注册：2018/1/3 16:03:00

Post By：2024/11/18 9:29:00 [只看该作者]

提示如下错误

.NET Framework 版本：4.0.30319.36543

Foxtable 版本：2024.10.30.1

错误所在事件：窗口,窗口1,Button1,Click

详细错误信息：

The process cannot access the file 'D:\Data\~$员工资料卡.xlsx' because it is being used by another process.

13315253800

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

加好友

发短信

等级：三尾狐帖子：601 积分：4376 威望：0 精华：0 注册：2018/1/3 16:03:00

Post By：2024/11/18 9:37:00 [只看该作者]

上面的错误提示是目录中不带文件名，如带文件名，即For Each file As String In filesys.GetFiles("D:\Data\员工资料卡.xlsx")时，提示如下

.NET Framework 版本：4.0.30319.36543

Foxtable 版本：2024.10.30.1

错误所在事件：窗口,窗口1,Button1,Click

详细错误信息：

目录名称无效。

有点蓝

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

加好友

发短信

等级：超级版主帖子：110792 积分：563898 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/11/18 9:56:00 [只看该作者]

文件处于打开状态，先关闭所有的execl

13315253800

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

加好友

发短信

等级：三尾狐帖子：601 积分：4376 威望：0 精华：0 注册：2018/1/3 16:03:00

Post By：2024/11/18 10:05:00 [只看该作者]

关闭所有的execl，也不行，我发一案例，请蓝老师看看

下载信息 [文件大小：下载次数： ]
点击浏览该文件:excel报表提取数据.zip

有点蓝

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

加好友

发短信

等级：超级版主帖子：110792 积分：563898 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/11/18 10:13:00 [只看该作者]

For Each file As String In filesys.GetFiles("D:\Data\员工资料卡.xlsx")

改为

For Each file As String In filesys.GetFiles("D:\Data\")

13315253800

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

加好友

发短信

等级：三尾狐帖子：601 积分：4376 威望：0 精华：0 注册：2018/1/3 16:03:00

Post By：2024/11/18 10:25:00 [只看该作者]

For Each file As String In filesys.GetFiles("D:\Data\")

If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then

Dim Book As New XLS.Book(file)

Dim Sheet As XLS.Sheet = Book.Sheets(0)

Dim dr As DataRow = DataTables("员工").AddNew

dr("姓名") = sheet(4, 1).Text

dr("部门") = sheet(5, 1).text

dr("出生日期") = sheet(4, 3).text

dr("雇佣日期") = sheet(5, 3).text

dr("性别") = sheet(6, 1).text

dr("职务") = sheet(6, 3).text

dr("地址") = sheet(7, 1).text

dr("家庭电话") = sheet(8, 1).text

dr("办公电话") = sheet(8, 3).text

dr("备注") = sheet(9, 0).text

End If

修改后，仍提示

.NET Framework 版本：4.0.30319.36543

Foxtable 版本：2024.10.30.1

错误所在事件：窗口,窗口1,Button1,Click

详细错误信息：

Central dir not found.

13315253800

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

加好友

发短信

等级：三尾狐帖子：601 积分：4376 威望：0 精华：0 注册：2018/1/3 16:03:00

Post By：2024/11/18 10:30:00 [只看该作者]

在D：\data目录下有“员工资料卡.xlsx”和“员工.xlsx”文件，不是这个原因吧？

有点蓝

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

加好友

发短信

等级：超级版主帖子：110792 积分：563898 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/11/18 10:37:00 [只看该作者]

Central dir not found指不存在这个目录"D:\Data\"

13315253800

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

加好友

发短信

等级：三尾狐帖子：601 积分：4376 威望：0 精华：0 注册：2018/1/3 16:03:00

Post By：2024/11/18 11:08:00 [只看该作者]

蓝老师，我把“员工资料卡.xlsx”放到了，E：\data下，且只有此一个文件，修改代码为For Each file As String In filesys.GetFiles("E:\Data")，可以了。请问蓝老师如果有多个不同名称的文件，代码中可以指定具体文件名吗，代码怎么修改一下？

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

总数 18 1 2 下一页

主题：请教从Excel报表提取数据问题