社区 › VB › 关于读取EXCEL数据的问题？

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

关于读取EXCEL数据的问题？

为了计算一段街道平面面积，我从外边测量了上千个数据点坐标并编了号，放在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数据的问题？