明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1734|回复: 0

[求助]读取excel文件数据并绘制一系列直线出错,求解

[复制链接]
发表于 2010-5-27 11:34 | 显示全部楼层 |阅读模式

Sub excell()
Dim x, y As Variant
Dim i As Integer
Dim Excel   As Excel.Application
Dim ExcelSheet   As Object
Dim ExcelWorkbook   As Object
On Error Resume Next
  Set Excel = GetObject(, "Excel.Application")
If Err <> 0 Then
    Set Excel = CreateObject("Excel.Application")
End If
Set ExcelWorkbook = Excel.Workbooks.Open("d:\基础数据.xls")
Set ExcelWorkbook.Visible = True
Set ExcelSheet = ExcelWorkbook.Worksheets("基础数据")
ExcelSheet.Activate
x(0) = 0: x(1) = 0: x(2) = 0
For i = 1 To 50
   y(0) = ExcelSheet.cells(i, 1).Value
   y(1) = ExcelSheet.cells(i, 2).Value
   y(2) = 0
   Call ThisDrawing.ModelSpace.AddLine(x, y)
   x = y
   Next
End Sub

……………………………………………………………………
我的本意是从excel文件(50行、2列)中读取数据,分别作为横纵坐标,Z坐标赋值为0,然后画线
程序不报错,也没反应,不知为何?


您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-28 21:48 , Processed in 0.130690 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表