关于读取EXCEL数据的问题？

wangzezhig

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



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

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

wangzezhig

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


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


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


再一次谢谢你！

leeyeafu

楼主还可以看看这篇文章：dispbbs.asp?boardID=27&ID=11459&page=3