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

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

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

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

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

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

Option Compare Database

Private 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按钮”，就可以查看效果啦。