Chinaunix首页 | 论坛 | 博客
  • 博客访问: 20231
  • 博文数量: 16
  • 博客积分: 10
  • 博客等级: 民兵
  • 技术积分: 200
  • 用 户 组: 普通用户
  • 注册时间: 2012-11-03 19:49
个人简介

为梦想一直战斗

文章分类

全部博文(16)

文章存档

2013年(16)

我的朋友

分类: WINDOWS

2013-10-29 12:53:12

Dim xlsApp As Object
Dim xlsWb As Object
Dim xlsWs As Object 

Set xlsApp = CreateObject("Excel.Application")
Set xlsWb = xlsApp.Workbooks.Open(FileName)'要打开的文档路径
Set xlsWs = xlsWb.Worksheets(1)

xlsWs.cells(1, 1)="哇哈哈"'(行,列),注意:行和列都可用数字表示(1,A)等同于(1,1)


----注意了,下面是补充部分的回答-----
xlsWs.cells(1, 1)就是你要读取的数据啊,msgbox xlsWs.cells(1, 1) 看看

关闭文档:xlsWb.Close
退出Excel:xlsapp.Quit
阅读(78) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~
评论热议
请登录后评论。

登录 注册