主题 : 2008处理excel资料集

使用道具┊ 复制链接 ┊浏览器收藏┊打印

memoriesoff 离线

级别: 论坛版主

UID: 10
精华: 1
发帖: 387
积分: 844 分
威望: 0 点
贡献: 0 点
爱心: 0 个
好评度: 0 点
在线时间: 215(时)
注册时间: 2009-10-02
最后登录: 2024-12-04

楼主发表于: 2011-01-11

只看楼主 ┊ 小中大

2008处理excel资料集

'定义一个myexcel变量
Dim MyExcel As New Microsoft.Office.Interop.Excel.Application()
'设置对象可见
MyExcel.Visible = True
'创建一个工作簿
MyExcel.Application.Workbooks.Add(True)

回复引用

举报顶端

memoriesoff 离线

级别: 论坛版主

UID: 10
精华: 1
发帖: 387
积分: 844 分
威望: 0 点
贡献: 0 点
爱心: 0 个
好评度: 0 点
在线时间: 215(时)
注册时间: 2009-10-02
最后登录: 2024-12-04

沙发发表于: 2011-01-11

只看该作者 ┊ 小中大

数据写入

        With MyExcel.ActiveSheet
            .Cells(1, 2).Value = "100"
            .Cells(2, 2).Value = "200"
            .Cells(3, 2).Value = "=SUM(B1:B2)"
            .Range("A3:A9") = "中国人民解放军"
        End With

回复引用

举报顶端

上一主题下一主题

Anime|Game - 秋忆 » 学习交流

http://bbs.zhangshun.net
访问内容超出本站范围，不能确定是否安全
继续访问	取消访问