wangzezhig 发表于 2005-3-18 14:17:00

关于读取EXCEL数据的问题？

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



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

yulijin608 发表于 2005-3-18 15:31:00

'定义Excel的相关变量<BR>                       Dim Excel As Excel.Application       'Excel对象变量<BR>                       Dim PointSheet As Object                                                       '点表<BR>                       Dim LineSheet As Object                                                               '线表<BR>                       Dim ExcelWorkBook As Object                               '工作薄


                       Set Excel = CreateObject("Excel.Application")               '初始化 Excel对象<BR>                       Set ExcelWorkBook = Excel.Workbooks.Open(txtFile, , True) 'txtFile为文件名<BR>                       Set PointSheet = Excel.Worksheets(1)                       '点表<BR>                       Set LineSheet = Excel.Worksheets(2)                               '线表<BR>                       PointSheet.Activate


               msgbox PointSheet.Cells(1,1).Value


                       Excel.Quit<BR>                       Set PointSheet = Nothing<BR>                       Set LineSheet = Nothing<BR>                       Set ExcelWorkBook = Nothing<BR>                       Set Excel = Nothing

wangzezhig 发表于 2005-3-19 19:21:00

非常感谢这位热心的大哥！！！看来我要学习的东西太多，以前没怎么接触这个东西！


你这段代码我还要好好学习！


你的思路是EXCEL分两张表一张点表，一张线表是吧？？？？PointSheet.Cells(1,1).Value 就是坐标值，然后直接调用这个值画图就可以了是吧？


再一次谢谢你！

leeyeafu 发表于 2005-3-19 20:23:00

楼主还可以看看这篇文章：<A href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=11459" target="_blank" >dispbbs.asp?boardID=27&amp;ID=11459&amp;page=3</A>
页: [1]
查看完整版本: 关于读取EXCEL数据的问题？