如何在ACCESS的VBA中向EXCEL的某一个单元格写数据

Private Sub 命令8_Click() 
on error goto err_proc
　　Dim oapp As Excel.Application, oappwork As Excel.Workbook, oappwork_Sheet1 As Excel.Worksheet 
　　Set oapp = CreateObject('Excel.Application')

‘在后台打开操作，不显示出来设置oapp.Visible = False、需要显示的话，就设置true

　　oapp.Visible = True

　　Set oappwork = oapp.Workbooks.Open('c:\book1.xls') 
　　Set oappwork_Sheet1 = oappwork.Worksheets('Sheet1') 
　　oappwork_Sheet1.Cells(2, 1) = 'AAA' 
　　oappwork_Sheet1.Cells(2, 2) = 'BBB' 
err_proc:
      on error resume next
　　oappwork.Close (False) 
　　oapp.Quit 
　　Set oappwork_Sheet1 = Nothing 
　　Set oappwork = Nothing 
　　Set oapp = Nothing 
End Sub

◆

Access推荐资源

Access初学者学习计划

Access学习护航计划

Access 与 Excel 之对比

Access专家课堂操作指南

Access快速开发一日通 视频教程

Access职场实战范例 视频教程

◆

Access开发心得

色母粒进销存管理系统

财务数据管理平台

供应链及关务管理系统

◆

Access培训讲师

        

    

      张志，2003年-2013连续10年获选微软最有价值专家，Access数据库培训讲师，十余年Access数据库培训经验，服务过的知名企业有北京奔驰、立达（中国）纺织仪器有限公司、中信泰富特钢集团等。

◆

Access软件公司

上海盟威软件有限公司(www.UMVsoft.com)，专注于Access培训及为客户用Access定制开发软件。由微软最有价值专家团队创建，设有江阴分公司、株洲分公司。公司自主研发了国内第一款Access开发平台(盟威软件快速开发平台)，利用此平台，零基础的人士可以开发出专业的管理类软件，让管理人才转型为“精管理 会编程”的复合型人才。