乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 49|回复: 3

关于读取EXCEL数据的问题?

[复制链接]

2

主题

4

帖子

2

银币

初来乍到

Rank: 1

铜币
12
发表于 2005-3-18 14:17:00 | 显示全部楼层 |阅读模式
为了计算一段街道平面面积,我从外边测量了上千个数据点坐标并编了号,放在EXCEL里,现在要把每个数据点画上并标上点号,以便画出轮廓线计算面积,我知道这个不难但我是个新手有没有哪位大哥给段源码或指导一下??????? 我用VBA做了,但我不知道怎么读出EXCEL的数据?????
回复

使用道具 举报

25

主题

134

帖子

6

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
234
发表于 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
回复

使用道具 举报

2

主题

4

帖子

2

银币

初来乍到

Rank: 1

铜币
12
发表于 2005-3-19 19:21:00 | 显示全部楼层
非常感谢这位热心的大哥!!!看来我要学习的东西太多,以前没怎么接触这个东西!
你这段代码我还要好好学习!
你的思路是EXCEL分两张表一张点表,一张线表是吧????PointSheet.Cells(1,1).Value 就是坐标值,然后直接调用这个值画图就可以了是吧?
再一次谢谢你!
回复

使用道具 举报

14

主题

230

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
286
发表于 2005-3-19 20:23:00 | 显示全部楼层
楼主还可以看看这篇文章:
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-16 22:05 , Processed in 0.473339 second(s), 60 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表