首页 > Office专区 > Excel教程 >

Access应用技巧:[1]操作Excel对象

来源:互联网 2023-02-20 19:37:50 版权归原作者所有,如有侵权,请联系我们

作为微软Office办公套件,只有将各组件之间进行协调,才能真正发挥出Office自化的优势来。下面就来看一下在Access中操作Excel对象的方法。希望借此抛砖引玉,能够起到举一反三之效果。

els办公区 - 实用经验教程分享!

els办公区 - 实用经验教程分享!

Access应用技巧:[1]操作Excel对象els办公区 - 实用经验教程分享!

方法/步骤

  • 1

    打开Access2007,新建一个新数据库,然后切换到“创建”选项卡,点击“窗体设计”按钮,创建一个新的窗体,并将该窗体保存为“FrmMain”。

    els办公区 - 实用经验教程分享!

    els办公区 - 实用经验教程分享!

    Access应用技巧:[1]操作Excel对象els办公区 - 实用经验教程分享!

    Access应用技巧:[1]操作Excel对象els办公区 - 实用经验教程分享!

  • 2

    在窗口区域绘制一个按钮,并将其“标题”设置为“写入数据到Excel”。

    els办公区 - 实用经验教程分享!

    els办公区 - 实用经验教程分享!

    Access应用技巧:[1]操作Excel对象els办公区 - 实用经验教程分享!

  • 3

    在“属性”窗口中切换至“事件”选项,并选择“单击”右侧的“打开”按钮,进入事件代码编程窗口。

    els办公区 - 实用经验教程分享!

    els办公区 - 实用经验教程分享!

    Access应用技巧:[1]操作Excel对象els办公区 - 实用经验教程分享!

  • 4

    点击“工具”→“引用”,在打开的“引用”窗口中,勾选“Microsoft Excel 12.0 Object Library”,并点击“确定”完成对Excel类库的引用。

    els办公区 - 实用经验教程分享!

    els办公区 - 实用经验教程分享!

    Access应用技巧:[1]操作Excel对象els办公区 - 实用经验教程分享!

    Access应用技巧:[1]操作Excel对象els办公区 - 实用经验教程分享!

  • 5

    在打开的事件代码窗口中输入如图所示的内容:

    els办公区 - 实用经验教程分享!

    els办公区 - 实用经验教程分享!

    Option Compare Databaseels办公区 - 实用经验教程分享!

    Private Sub Command0_Click()els办公区 - 实用经验教程分享!

    Dim xlApp As New Excel.Application '申明EXCEL应用程序对象els办公区 - 实用经验教程分享!

    Dim xlWorkBook As Excel.Workbook '定义Excel工作簿对象els办公区 - 实用经验教程分享!

    Dim xlWorkSheet As Excel.Worksheet '定义Excel工作表对象els办公区 - 实用经验教程分享!

    Set xlApp = CreateObject("Excel.Application") '设置应用程序对象实例els办公区 - 实用经验教程分享!

    xlApp.Visible = True '显示Excel应用程序els办公区 - 实用经验教程分享!

    Set xlWorkBook = xlApp.Workbooks.Add '添加新的工作簿els办公区 - 实用经验教程分享!

    Set xlWorkSheet = xlWorkBook.Worksheets(1)els办公区 - 实用经验教程分享!

    xlWorkSheet.Cells(1, 1).FormulaR1C1 = "百度ID:feifeidown" '将数据写入Excel els办公区 - 实用经验教程分享!

    With xlWorkSheet.Cells(1, 1).Fontels办公区 - 实用经验教程分享!

    .Name = "华文行楷"els办公区 - 实用经验教程分享!

    .Size = 20els办公区 - 实用经验教程分享!

    .Bold = Trueels办公区 - 实用经验教程分享!

    End Withels办公区 - 实用经验教程分享!

    'xlApp.Quit '退出Excel应用程序els办公区 - 实用经验教程分享!

    'Set xlApp = Nothing '释放资源els办公区 - 实用经验教程分享!

    End Subels办公区 - 实用经验教程分享!

    Access应用技巧:[1]操作Excel对象els办公区 - 实用经验教程分享!

  • 6

    然后切换到“窗体视图”模式,并点击“写数据到Excel按钮”,就可以查看效果啦。

    els办公区 - 实用经验教程分享!

    els办公区 - 实用经验教程分享!

    Access应用技巧:[1]操作Excel对象els办公区 - 实用经验教程分享!

    Access应用技巧:[1]操作Excel对象els办公区 - 实用经验教程分享!

  • 6相关内容未经授权抓取自百度经验
  • (共篇)

    以上方法由办公区教程网编辑摘抄自百度经验可供大家参考!els办公区 - 实用经验教程分享!


    标签: ACCESSexcel技巧操作对象

    办公区 Copyright © 2016-2023 www.bgqu.net. Some Rights Reserved. 备案号:湘ICP备2020019561号