excel

bitsbird 2003-05-16 08:38:37
如何控制?、
...全文
10 点赞 收藏 1
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
ilqtj 2003-05-16
Dim xlteachder As New Excel.Application
Dim xlBook As New Workbook
Dim xlSheet As New Worksheet
Set xlteachder = CreateObject("excel.application")
xlteachder.Visible = False/true 是否可见
Set xlBook = xlteachder.Workbooks.Open(地址)
Set xlSheet = xlBook.Worksheets(1)
xxxx=xlSheet.Cells(1,1)Value 就是第一行地一列的值


xlSheet.Cells(1,1)Value=xxxx 也可以赋值
xlBook.Save 改变以后一定要保存
xlteachder.Quit
xlteachder.Workbooks.Close '关闭进程
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7493

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-16 08:38
社区公告
暂无公告