以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  怎么对有宏的XLS不能导入数据吗?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124005)
--  作者：qtxsp
--  发布时间：2018/8/28 19:26:00
--  怎么对有宏的XLS不能导入数据吗?
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编辑过]
--  作者：有点蓝
--  发布时间：2018/8/28 20:09:00
--  
1、不支持

2、确认execl文档的sheet名称是"网点余额"，而不是“sheet1”？
--  作者：qtxsp
--  发布时间：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
按此在新窗口浏览图片
--  作者：有点蓝
--  发布时间：2018/8/28 20:47:00
--  
出错提示发上来看看。

这个文件夹里所有的execl文件都有"网点余额"名称的sheet吗
--  作者：qtxsp
--  发布时间：2018/8/28 21:17:00
--  
只有文档名是唯一性才能正确使用吗？能指定XLS文件打开吗？
--  作者：有点蓝
--  发布时间：2018/8/28 21:20:00
--  
Dim Book As New XLS.Book("D:\\百度云同步盘\\丽水\\数据\\叶福俊\\123.xls")
Dim Sheet As XLS.Sheet = Book.Sheets("网点余额")