我查了以前编写的VBA程序,没有关于excle的,但有access的,
下面的代码你可以参考下:
1、在CAD的VBA开发环境菜单中,【工具】->【引用】->在列表中选择Microsoft Dao 3.0 Jet
2、程序可以使用DAO数据库变量了:
dim dao as daodatabase
dim daors as daorecordset
set dao = OpenDatabase(" 文件全名.mdb")
set daors =dao.Open("数据表全名",2)
daors.MoveFirst
IF( daors.RecordCount<>0) THEN
'读数据表的记录
set xxx=daors.Fields("字段名")
或 set xxx=daors.Fields(字段号)
EndIF