Office中国论坛/Access中国论坛

标题: 在ACCESS向excel单元格赋值过程中，碰到一个问题 [打印本页]

作者: xyzstxm 时间: 2015-6-25 00:40
标题: 在ACCESS向excel单元格赋值过程中，碰到一个问题
在ACCESS向excel单元格赋值过程中，碰到一个问题：只向Cells(2, 1)或只向Cells(3, 1)赋值时，没有问题。但是同时向Cells(2, 1)和Cells(3, 1)赋值，就不行。求高手指点下，谢谢

主要代码如下

Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = True '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open(dqM) '打开EXCEL工作簿
Set xlsheet = xlBook.Worksheets("1") '打开EXCEL工作表
xlsheet.Activate '激活工作表
xlsheet.Select '激活工作表

xlsheet.Cells(2, 1) = Me.bh ''''''获得编号
xlsheet.Cells(3, 1) = Me.表名 ''''''获得表名

作者: 盗梦 时间: 2015-6-25 16:18
你试试 xlApp.Range("A2")=Me.bh 和 xlApp.Range("A3")=me.表名

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)