| 会员登录 立即注册
关注公众号

关注公众号拿干货

CATIA论坛公众号
加入联盟

扫微信(sakula)入联盟

CATIA软件
风格切换

catia教程

搜索

CATIA联盟论坛

[CATIA VBA] CATIA二次开发专题:获取Excel最后一个非空单元格

[复制链接]
CATIA视频教程 发表于 2019-8-9 15:25:29 | 显示全部楼层 |阅读模式
CATIA视频教程
2019-8-9 15:25:29 1098 0 看全部
  如果能够获取到Excel的最后一个非空单元格,那么,我们写入数据的时候,只要永远写在Excel非空单元格的下一行,那么就能实现数据依次全部写入Excel中了。Excel中的书写方法是这样的:
Dim LastRow As String
LastRow = xlApp.Range("B" & xlApp.Rows.Count).End(xlUp).Row + 1
LastRow = xlApp.Range("A65536").End(xlUp).Row + 1
LastRow = xlApp.Range("A" & xlApp.Rows.Count).End(xlUp).Row + 1
LastRow = xlApp.Range("A1").End(xlDown).Row + 1
  然而在CATIA软件中,你会发现这样写是行不通的,一定会报错。查询了很多资料后,终于找到一篇帖子,给出了一个解决办法:

  在使用xlDown和xlUp方法前要先申明常量值:ConstxlDown=-4121;ConstxlUp=-4162

  ---------------------EXCEL知识扩展:取得行列的非空单元格方法2------
CATIA二次开发专题:获取Excel最后一个非空单元格93
------------------VB数组知识----------------------

有两种方法定义数组:

1、知道数组的元素个数,那么直接定义 dim a(9) as integer

2、暂时不知道元素个数,或者该数组应用在多个地方 那么如下定义 dim a() as integer 在使用的时候,再重定义一下就可以了 ReDim a(9)

数组的类型可以和变量的类型一样的。dim a(0 to 9) as string '表示定义了一个包含10个元素的字符串型的数组,数组名为:a

vb如何为数组赋初值

1. 直接赋值,此法只适合和小数组
Dim myArray() as Integer ={1,2,3,4,5}或Dim myArray(5)as integer
myArray(0)=1
myArray(1)=2
myArray(2)=3
myArray(3)=3
myArray(4)=5
myArray(5)=6

2.最常用的for next循环赋值
Dim myArray()as integer
For intCount as Integer= 0 to 5
myArray(intCount)=你要赋值的东西
Next

如果你要每个都不同那就这样:
Dim myArray()as integer
Dim FuZhi as integer
For Fuzhi as 0 to 5
For intCount as Integer= 0 to 5
myArray(intCount)=fuzhi
Next intCount
Next fuzhi

               
CATIA二次开发专题:获取Excel最后一个非空单元格30
CATIA论坛官方公众号
  • 您可能感兴趣
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则 返回列表

查看:1098 | 回复:0

CATIA教程| CATIA视频| CATIA培训| CATIA下载| CATIA安装| CATIA插件| CATIA入门| CATIA V5| CATIA V6| CATIA论坛
联系电话:18982019507 地址:成都市青羊区二环路西一段155号天祥广场4栋1801
版权所有 ©软易达 •( 蜀ICP备14018086号 )Copyright © 2001-2013 Comsenz Inc. All Rights Reserved.   Powered by Discuz! X3.4
联盟微信客服:
silhouette023CATIA软件


CATIA技术群

微信公众号 CATIA微信公众号
“CATIA联盟”