社区 › VB › CAD中如何得到EXCEL 的RANGE对象啊？

zj-ο○oοo 发表于 2009-1-22 10:41:00

CAD中如何得到EXCEL 的RANGE对象啊？

CAD中如何得到EXCEL 的RANGE对象啊？
cells.Range("a1:c2")
已知cells对象
怎么得到这个范围对象啊。。。

dianbotang 发表于 2009-3-25 16:52:00

打开vbe-工具-引用-Microsoft Excel 11.0 Object Library
添加以下代码：
Private Sub GetRange()
    On Error Resume Next
   
    Dim excelApp As Excel.Application
    Set excelApp = GetObject(, "Excel.Application")
    If Err Then
      MsgBox Err.Description
      Exit Sub
    End If
    excelApp.Visible = True
   
    Dim myRange As Range
    Set myRange = excelApp.ActiveSheet.Range("a1:c2")
End Sub
要求先打开excel。

查看完整版本: CAD中如何得到EXCEL 的RANGE对象啊？