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

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

详细的操作方法或具体步骤

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

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

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

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

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

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

With

'xlApp.Quit '退出Excel应用程序

'Set xlApp=Nothing '释放资源

Sub

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

Access应用技巧(共1篇)经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。作者声明：本文系本人依照真实经历原创，未经许可，谢绝转载。