[求助]：如何用VB从CAD读出数据写到Excel中

钟恒昌

感谢那位高人能指点：如何用VB从CAD读出数据写到Excel中。本人习惯于用VB对CAD进行操作，觉得界面很友好。由于自己vb水平不高，不知如何通过VB对Excel操作，如果能实现的话Excel与CAD之间就畅通无碍，工作效率自然提高。

InterCAD

'检查Excel是否运行
    On Error GoTo ErrorExcelApp
    Set pubExcelApp = GetObject(, "Excel.Application")
   
    '检查是否有活动工作簿
    On Error GoTo ErrorWorkBook
    Set pubCurrentBook = pubExcelApp.ActiveWorkbook  
    If pubCurrentBook Is Nothing Then
        GoTo ErrorWorkBook
    End If
   
    '检查是否有活动工作表
    On Error GoTo ErrorWorkSheet
    If pubExcelApp.ActiveSheet Is Nothing Then
        GoTo ErrorWorkSheet
    End If

钟恒昌

万分感谢  InterCAD  ！！

懒懒得等你

钟恒昌 发表于 2002-4-29 20:05
万分感谢  InterCAD  ！！

你会吗   ..我想读CAD明细栏