关于读取EXCEL数据的问题？

wangzezhig

为了计算一段街道平面面积，我从外边测量了上千个数据点并编了号，放在EXCEL里，现在要把每个数据点画上并标上点号，以便画出轮廓线计算面积，我知道这个不难但我是个新手有没有哪位大哥给段源码或指导一下？？？？？？？


我用VBA做了，但我不知道怎么读出EXCEL的数据？？？？？

marxbat

将每个点坐标以“X，Y”的形式放在EXCEL单元格中，每个单元格放一个，所有点坐标输入在同一列单元格中，然后复制这些单元格。


在CAD中点画直线工具，然后光标移动到命令行上点右键，选粘贴。所有点就以直线方式连在一起了。

cnks

读取excel简单，我们论坛上源码到处都是。

wangzezhig

marxbat发表于2005-3-18 17:05:00将每个点坐标以“X，Y”的形式放在EXCEL单元格中，每个单元格放一个，所有点坐标输入在同一列单元格中，然后复制这些单元格。 在CAD中点画直线工具，然后光标...

兄台这个办法不行啊，我要每个点标上点号的嘛，我只需要画出点， 每个点标上点号就行了，画线用手工画，因为街道不是按点号顺序画线的！ 感谢 yulijin608 给了一段代码，我再试试
'定义Excel的相关变量
Dim Excel As Excel.Application 'Excel对象变量
Dim PointSheet As Object '点表
Dim LineSheet As Object '线表
Dim ExcelWorkBook As Object '工作薄 Set Excel = CreateObject("Excel.Application") '初始化 Excel对象
Set ExcelWorkBook = Excel.Workbooks.Open(txtFile, , True) 'txtFile为文件名
Set PointSheet = Excel.Worksheets(1) '点表
Set LineSheet = Excel.Worksheets(2) '线表
PointSheet.Activate msgbox PointSheet.Cells(1,1).Value Excel.Quit
Set PointSheet = Nothing
Set LineSheet = Nothing
Set ExcelWorkBook = Nothing
Set Excel = Nothing

tong121ton

其实可以将EXCEL的数据有用的部分，x，y，z坐标和点号集中到一张工作簿中，而后另存为text文件，再随便编个LISP程序导入CAD绘图即可。我就是这样一次性在10分钟内输入3000个点的。