如何提取指定表格中单元格的值

使用VBA如下代码，关闭工作薄后在桌面出现一个对话框“现在可以编辑09报销订。XLS，单击读-写按钮可以打开此文件进行编辑”请问如何不让此对话框显示，

Sub 提取报价单号值()

'声明Excel相关
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Set xlApp = New Excel.Application
'获取指定excel文件
Set xlBook = xlApp.Workbooks.Open("C:\Documents and Settings\DAVID\桌面\09报销订.xls")

Dim sheet As Excel.Worksheet
'获取指定sheet
Set sheet = xlBook.Worksheets(19)

Dim aa As String
Dim bb As String
Dim cc As String
Dim dd As String
Dim ee As String
Dim ff As String
Dim gg As String

'获取指定单元格的内容
aa = sheet.Cells(3, 1)
bb = sheet.Cells(3, 2)
cc = sheet.Cells(3, 3)
dd = sheet.Cells(3, 4)
ee = sheet.Cells(3, 5)
ff = sheet.Cells(3, 6)
gg = sheet.Cells(3, 7)
'内容显示
Sheets("编号汇总").Select
Cells(3, 9) = aa

excel表格一个单元格如何提取“12345667”中的“456”数据 EXCEL表格中怎样替换一个单元格内的指定位置的字符 请教如何删除excel表格中多余的单元格 如何在excel中实现当某单元格值为零时，相邻的某单元格文本为指定颜色 在EXCEL2003中，如何返回指定区域中指定条件的单元格的值的总和？ word表格中，如何让单元格中的内容紧贴着单元格，不要留下一定的距离。 如何在excel 中返回指定数值所在行的某个单元格的值 excel中如何将多个表格的数据提取出来 EXCEL中如何把指定单元格锁定 在asp中 如何提取某一指定的字符串