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

来源：互联网 2023-02-20 19:37:50 103

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

方法/步骤

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

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

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

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

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

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

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

Access应用技巧：[1]操作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

End With

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

'Set xlApp = Nothing '释放资源

End Sub

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

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

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

6相关内容未经授权抓取自百度经验

(共篇)

以上方法由办公区教程网编辑摘抄自百度经验可供大家参考！