社区 › VB › [求助]请问如何将数据发送到一打开的EXCEL表格?

tianyunxuan 发表于 2007-5-26 08:06:00

[求助]请问如何将数据发送到一打开的EXCEL表格?

选择一封闭的多段线，然后将其面积、长度数据分别发送到一打开的EXCEL表格的指定单元格（或活动单元格）

tianyunxuan 发表于 2007-5-26 23:57:00

我编了这几句，哪位朋友能帮我优化一下吗？
Sub CX()
    Dim uselect As AcadSelectionSet
    Dim mj As String, zc As String
    Dim Excelapplication As Excel.Application
    Dim Excelsheet As worksheet
   
   
    With ThisDrawing
      On Error Resume Next
         .SelectionSets("currentselection").Delete
         
          Set uselect = .SelectionSets.Add("currentselection")
      
          uselect.SelectOnScreen
          For Each objselect In uselect
            mj = objselect.Area
            zc = objselect.Length
            Next
      'MsgBox "面积= " & mj & " !", vbInformation    '信息框
    End With
      
    On Error Resume Next
      Set Excelapplication = New Excel.Application
            Excelapplication.Visible = True 'False
            Excelapplication.workbooks.Add
      Set Excelsheet = Excelapplication.activeworkbook.sheets("sheet1")
            Excelsheet.cells(1, 1).Value = "面积"
            Excelsheet.cells(1, 2).Value = "周长"
            Excelsheet.cells(2, 1).Value = mj
            Excelsheet.cells(2, 2).Value = zc
End Sub

查看完整版本: [求助]请问如何将数据发送到一打开的EXCEL表格?