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

为梦想一直战斗

文章分类

全部博文(16)

文章存档

2013年(16)

我的朋友

发布时间:2013-10-29 12:53:12

Dim xlsApp As ObjectDim xlsWb As ObjectDim 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)----注.........【阅读全文】

阅读(75) | 评论(0) | 转发(0)

发布时间:2013-10-28 19:57:34

Private Sub Command1_Click()Dim ex As New Excel.ApplicationDim nb As Excel.WorkbookDim l, r As IntegerDim df As Datedf = InputBox("请输入日期:(例如:2013-10-23)")de = DateAdd("d", 1, df)ex.Visible = TrueSet nb = ex.Workbooks.Open("C:\FameView\ReportFile\aaa.xls")Set conn = Crea.........【阅读全文】

阅读(116) | 评论(0) | 转发(0)
给主人留下些什么吧!~~
留言热议
请登录后留言。

登录 注册