在ACCESS向excel单元格赋值过程中，碰到一个问题

xyzstxm

在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.表名  ''''''获得表名

盗梦

你试试  xlApp.Range("A2")=Me.bh    和  xlApp.Range("A3")=me.表名