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


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

主题:怎么对有宏的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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107680 积分:547721 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/8/28 20:09:00 [只看该作者]

1、不支持

2、确认execl文档的sheet名称是"网点余额",而不是“sheet1”?

 回到顶部
帅哥哟,离线,有人找我吗?
qtxsp
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
按此在新窗口浏览图片


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


加好友 发短信
等级:超级版主 帖子:107680 积分:547721 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/8/28 20:47:00 [只看该作者]

出错提示发上来看看。

这个文件夹里所有的execl文件都有"网点余额"名称的sheet吗

 回到顶部
帅哥哟,离线,有人找我吗?
qtxsp
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:71 积分:927 威望:0 精华:0 注册:2014/12/8 15:38:00
  发帖心情 Post By:2018/8/28 21:17:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107680 积分:547721 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/8/28 21:20:00 [只看该作者]

Dim Book As New XLS.Book("D:\百度云同步盘\丽水\数据\叶福俊\123.xls")
Dim Sheet As XLS.Sheet = Book.Sheets("网点余额")


 回到顶部