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

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

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

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

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

5、在打开的事件代码窗口中输入如图所示的内容：Option Compare DatabasePrivat髫潋啜缅e Sub Command0_Click() Dim xlApp As New Excel.Application '申明EXCEL应用程序对象 Dim xlWorkBook As Excel.Workbook '定义Excel工作簿对象 Dim xlWorkSheet As Excel.Worksheet '定义Excel工作表对象 Set xlApp = CreateObject("Excel.Application") '设置应用程序对象实例 xlApp.Visible = True '显示Excel应用程序 Set xlWorkBook = xlApp.Workbooks.Add '添加新的工作簿 Set xlWorkSheet = xlWorkBook.Worksheets(1) xlWorkSheet.Cells(1, 1).FormulaR1C1 = "百度ID：feifeidown" '将数据写入Excel With xlWorkSheet.Cells(1, 1).Font .Name = "华文行楷" .Size = 20 .Bold = True End With 'xlApp.Quit '退出Excel应用程序 'Set xlApp = Nothing '释放资源End Sub

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