Foxtable(狐表)用户栏目专家坐堂 → 关于导入Excel表 空的列问题


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

主题:关于导入Excel表 空的列问题

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/7/11 16:55:00 [显示全部帖子]

1、空的行还是空的列?

 

2、如果要判断某一个单元格是否为空,这样写代码

 

If sheet(n, 0).text = nothing AndAlso sheet(n, 1).text = nothing  Then '如果第n行的A、B列为空


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/7/11 17:35:00 [显示全部帖子]

参考2楼代码。

 

If sheet(n, 0).text <> nothing AndAlso sheet(n, 1).text <> nothing  Then '如果第n行的A、B列都不是空


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/7/12 10:34:00 [显示全部帖子]

参考

 

Dim Book As New XLS.Book("d:\test.xls")
For Each sheet As xls.sheet In Book.Sheets
    msgbox(sheet.name)
Next
msgbox(book.sheets.count)


 回到顶部