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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎么对有宏的XLS不能导入数据吗?

共有2372人关注过本帖树形打印复制链接主题：怎么对有宏的XLS不能导入数据吗?

qtxsp

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

等级：幼狐帖子：71 积分：927 威望：0 精华：0 注册：2014/12/8 15:38:00

怎么对有宏的XLS不能导入数据吗? 发帖心情

Post By：2018/8/28 19:26:00 [显示全部帖子]

1.怎么对有宏的XLS不能导入数据吗?例：以XLSM为后缀的带有宏的XLS文件倒入数据识别不了，如另存为普通的XLSX或XLS又可以。不知何故？

2.出现找不到表单“网点余额”，是怎么回事？刚刚还是可以的，现在怎么又不行了？！

For Each file As String In filesys .GetFiles("D:\百度云同步盘\丽水\数据\叶福俊")

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

Dim Book As New XLS.Book(file)

Dim Sheet As XLS.Sheet = Book.Sheets("网点余额")

求解，谢谢！

[此贴子已经被作者于2018/8/28 19:28:11编辑过]

qtxsp

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

等级：幼狐帖子：71 积分：927 威望：0 精华：0 注册：2014/12/8 15:38:00

Post By：2018/8/28 20:35:00 [显示全部帖子]

是的：代码如下：

For Each file As String In filesys .GetFiles("D:\百度云同步盘\丽水\数据\叶福俊")

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

Dim Book As New XLS.Book(file)

Dim Sheet As XLS.Sheet = Book.Sheets("网点余额")

XLS文件内的文档截图如附件：

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

qtxsp

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

等级：幼狐帖子：71 积分：927 威望：0 精华：0 注册：2014/12/8 15:38:00

Post By：2018/8/28 21:17:00 [显示全部帖子]

只有文档名是唯一性才能正确使用吗？能指定XLS文件打开吗？

主题：怎么对有宏的XLS不能导入数据吗?