[VBA程序]：CAD与EXCEL如何衔接

yanjiangyan

我想用做好的EXCEL表格做地质上的钻孔柱状图，不知该如何实现？
我的想法是：EXCEL表格中有一列数据是说明该行的高度，如果这样的话，怎么能让CAD划线的时候识别这一行的高度呢？

ndy888

Set objExlApp = GetObject(, "Excel.Application")
        If Err.Number <> 0 Then Set objExlApp = CreateObject("Excel.Application")
        Err.Clear
   
        objExlApp.Application.Visible = True
        If objExlApp.workbooks.Count < 1 Then
            Set objExlBook = objExlApp.workbooks.Add
        Else
            Set objExlBook = objExlApp.activeworkbook
        End If
        Set objExlSheet = objExlBook.activesheet
        objExlSheet.cells(RowNum, ColNum) = "需要键入的字符串"   '在表格中添加文字
        With objExlSheet.range(objExlSheet.cells(1, 1), objExlSheet.cells(5, 3))
                  .NumberFormatLocal = "###0.00"        '可以对数字设格式
        End With
        objExlSheet.selection.Clear
        objExlSheet.range(objExlSheet.cells(1, 1), objExlSheet.cells(5, 4)).RowHeight = 24 '设选择区域行高
        objExlSheet.Rows("1:1").RowHeight = 28 '另一种设置方式
        objExlSheet.Columns("A:A").ColumnWidth = 100  'l列宽
VB针对Excel的编程可以自己录制宏，参考其语法，稍加调整即可。

yanjiangyan

各位哥们，帮帮忙！有这个方面的教程吗？