VLISP读到EXCEL时的，某一列有数据的最后一行怎么求得？？？？？

挚友01 · 发表于 2017-7-1 12:02:55

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

VLISP读到EXCEL时的，某一列有数据的最后一行怎么求得或在VLISP中如何表示最后一行?
'usedrange 不行，无限行啊...

marting · 发表于 2017-7-1 13:32:18

多看看 excel vba 手册，看看里面每个对象提供的方法和属性。

EXCEL对象的层次
EXCEL ---> WORKBOOKS---> WORKWORD----> SHEETS ----->SHEET
一个表格，是在sheet对象下面，所以，你要查sheet都有什么属性和方法，用 Rows属性，就获得了总共有多少行，Columns属性获得总共有多少列

下面代码摘自EXCEL VBA手册

本示例将工作表 Sheet1 上每隔一列的列宽设置为 4 磅。

[Visual Basic] 纯文本查看 复制代码

For Each rw In Worksheets("Sheet1").Rows
    If rw.Row Mod 2 = 0 Then
        rw.RowHeight = 4    
   End If
Next rw

挚友01 · 发表于 2017-7-1 15:17:20

EXCEL VBA我了解一些，也知怎么怎么求行数和列数，可VLISP应有特定的函数吧，因为我要直接在CAD中读EXCEL的数据
(setq shs (vlax-get-property wb "Sheets"))                      ;获取刚才打开工作簿的工作表集合
(setq sh  (vlax-get-property  shs "Item" sheetName))          ;获取指定的工作表
(setq rg (vlax-get-property  sh 'usedrange))             ;用指定的字符串创建工作表范围对象
(setq vvv (vlax-get-property rg 'Value))                      ;获取范围对象的值
(setq ttt (vlax-safearray->list (vlax-variant-value vvv)))    ;转换为list
关键是取得范围(setq rg (vlax-get-property  sh 'usedrange))
这个'usedrange 取了表中所有行和所有列。。无限，所以有问题，应该用类似于[b65536].End(xlUp).Row
可VLISP怎么办?

账号		自动登录	找回密码
密码			立即注册

[求助] VLISP读到EXCEL时的，某一列有数据的最后一行怎么求得？？？？？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。