标题:2008处理excel资料集
作者:memoriesoff
日期:2011-01-11 10:25
内容:

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

#1 数据写入 [memoriesoff 01-11 16:34]
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

回复 发表
主题 版块

返回 首页
登录

PHPWind V7.5 SP2