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

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

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

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

本帖最后由 作者 于 2007-5-27 1:05:22 编辑 <br /><br /> <p>我编了这几句，哪位朋友能帮我优化一下吗？</p><p>Sub CX()</p><p>&nbsp;&nbsp;&nbsp; Dim uselect As AcadSelectionSet<br/>&nbsp;&nbsp;&nbsp; Dim mj As String, zc As String<br/>&nbsp;&nbsp;&nbsp; Dim Excelapplication As Excel.Application<br/>&nbsp;&nbsp;&nbsp; Dim Excelsheet As worksheet<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; With ThisDrawing<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; On Error Resume Next<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .SelectionSets("currentselection").Delete<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set uselect = .SelectionSets.Add("currentselection")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; uselect.SelectOnScreen<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For Each objselect In uselect<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; mj = objselect.Area<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; zc = objselect.Length<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '&nbsp; MsgBox "面积= " &amp; mj &amp; " !", vbInformation&nbsp;&nbsp;&nbsp; '信息框<br/>&nbsp;&nbsp;&nbsp; End With<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; On Error Resume Next<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set Excelapplication = New Excel.Application<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Excelapplication.Visible = True 'False<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Excelapplication.workbooks.Add<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set Excelsheet = Excelapplication.activeworkbook.sheets("sheet1")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Excelsheet.cells(1, 1).Value = "面积"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Excelsheet.cells(1, 2).Value = "周长"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Excelsheet.cells(2, 1).Value = mj<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Excelsheet.cells(2, 2).Value = zc<br/>End Sub</p><p></p>
页: [1]
查看完整版本: [求助]请问如何将数据发送到一打开的EXCEL表格?