access 怎样打开和关闭Excel 文件

我用的是access 我想见个窗体 打开窗体的时候 打开2个EXCEL表
例如打开 C:\123.XLS  和  C:\321.XLS  打开的方式为只读 ，不可见

我关闭窗体的时候这两个EXCEL表也关闭

希望能给个源代码

如果好用我再追加50分

补充：窗体的功能是 打开2个指定的EXCEL ，一楼的朋友你好像误解我的意思了 

三楼的朋友，其实打开的代码我会写，我只是不会写关闭的，写了好多都不行

答案：'以下函数是我以前使用过的
'函数作用是将D:\01.xls中的数据写入到Access中的ExcelToAccess表中，涉及到xls文件的打开与关闭
Public Sub ExcelToAccess()
Dim ExcelAp As New Excel.Application
Dim ExcelBk As New Excel.Workbook
Dim ExcelSh As New Excel.Worksheet
Dim DataReader() As String     '装载单条记录
Dim Count_Rows As Long
Dim Now_Row As Long
Dim i As Long '用作循环变量
Dim Obj_DataBase As DAO.Database
Dim Obj_DataRecord As DAO.Recordset
'打开D:\01.xls
ExcelAp.Workbooks.Open "D:\01.xls"
'ExcelAp.Visible =False
'连接的数据源位置，可以用Source_Addr传递
Set ExcelBk = ExcelAp.Workbooks(1)
Set ExcelSh = ExcelBk.Sheets(1)
Count_Rows = ExcelSh.Rows.count
Now_Row = 1
'动态定义DataReader数组长度
ReDim DataReader(3)
Set Obj_DataBase = CurrentDb()
'连接ExcelToAccess表
Set Obj_DataRecord=Obj_DataBase.OpenRecordset("ExcelToAccess", dbOpenDynaset)
Do While Now_Row <= Count_Rows
For i = 1 To 3
DataReader(i) = Space(0)
'ExcelSh.Cells(Now_Row, i):excel数据单元内容
DataReader(i) = Trim(ExcelSh.Cells(Now_Row, i))
Next
If (Trim(DataReader(1) = Space(0)) And Trim(DataReader(2) = Space(0)) And _
Trim(DataReader(3) = Space(0))) Then
Exit Do
End If
Obj_DataRecord.AddNew
Obj_DataRecord![字段1] = Val(DataReader(1))
Obj_DataRecord![字段2] = Val(DataReader(2))
Obj_DataRecord![字段3] = Val(DataReader(3))
Obj_DataRecord.Update
Now_Row = Now_Row + 1
Loop
Obj_DataRecord.Close
Obj_DataBase.Close
ExcelBk.Close
ExcelAp.Workbooks.Close
MsgBox "数据导入完毕！", vbOKOnly + vbInformation, "Excel -> Access"
End Sub

其他：你如果确定已经下载了正版付过钱的access
我也不知道为什么了
access这个是要钱的软件

你没有access这个软件他只能用EXCEL代替打开
但是只有只读效果的 ACCESS不能够直接打开EXCEL表的，也不能够导入EXCEL表到ACCESS数据库的表里面进行查询 1.在窗体的Load事件中用以下代码可以实现打开窗体的时候 打开2个EXCEL表

Private Sub Form_Load()
Dim x, y
x = Shell("excel.exe " + Chr(34) + "c:\123.xls" + Chr(34), vbMaximizedFocus)
y = Shell("excel.exe " + Chr(34) + "c:\321.xls" + Chr(34), vbMaximizedFocus)
End Sub
2.关闭EXCEL表就用手动关吧，没必要自动关。 

上一个：excel 导入 sql server 2000有空白记录。
下一个：Excel导入数据的存储过程出错, 怎么办?