如何用ACCESS打开和关闭指定的EXCEL表格
发布网友
发布时间：2022-05-05 00:50
共2个回答
懂视网
时间：2022-05-07 07:53
通过上一课的学习我们已经会使用表向导建立表了表虽然是建立好了但一个空白的表没有任何用处这一课我们就在建立好的表中输入数据并学习一些关于表的基本操作 往表中添加数据之前要先打开它前面已经学过如何打开一个数据库首先启动Access选择打开已有文件双
通过上一课的学习我们已经会使用表向导建立表了表虽然是建立好了但一个空白的表没有任何用处这一课我们就在建立好的表中输入数据并学习一些关于表的基本操作
往表中添加数据之前要先打开它前面已经学过如何打开一个数据库首先启动Access选择打开已有文件双击客户订单数据库打开它在数据库窗口中单击表选项可以看到在数据库右边的创建方法和已有对象列表列表框中除了三种创建表的方法之外还有一个客户资料表选项
要打开这个表有两种方法一是用鼠标双击这个选项另一个方法是先单击这个选项选中它然后再单击数据库窗口上的打开按钮打开这个表之后我们就开始往里面输入数据
热心网友
时间：2022-05-07 05:01
'函数作用是将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
