关于读取EXCEL数据的问题？

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

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

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

'定义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 · 发表于 2005-3-19 19:21:00

非常感谢这位热心的大哥！！！看来我要学习的东西太多，以前没怎么接触这个东西！
你这段代码我还要好好学习！
你的思路是EXCEL分两张表一张点表，一张线表是吧？？？？PointSheet.Cells(1,1).Value 就是坐标值，然后直接调用这个值画图就可以了是吧？
再一次谢谢你！

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

楼主还可以看看这篇文章：

关于读取EXCEL数据的问题？

发表回复

精选推荐