求教：请问用VB怎么实现CAD与Excel连接

uraner

求教：请问用VB怎么实现CAD与Excel连接并使得CAD的数据能够读取与录入到Excel中

谢谢！！

uraner

On Error Resume Next
Set excelapp = GetObject(, "excel.Application")
If Err Then
  Err.Clear
  Set excelapp = CreateObject("excel.Application")
  If Err Then
  MsgBox ("不能运行excelD")
  Exit Sub
  End If
  End If
  excelapp.Visible = True

 

 

 

这样实现了连接

但是我不知道怎么实现数据的读取与录入，就是从CAD与EXCEL互动

liyuwen

       如果稍微了解一点Excel的VBA二次开发，此功能就不难实现了。具体的操作界面楼主如有兴趣不妨参阅XRCAD V7.0（http://www.xrsoftware.net ）中的菜单“表格转换工具”（该菜单轻松实现了AutoCAD与Excel表格相互间数据的导入及导出功能）。