VBA 将 Excel 时间数据导入 Access 数据库

下面是 VBA 代码示例，将时间数据导入到 Access 数据库：

Sub ImportData()

    Dim con As Object ' 定义连接对象
    Set con = CreateObject("ADODB.Connection") ' 创建连接对象
    
    Dim rs As Object ' 定义记录集对象
    Set rs = CreateObject("ADODB.Recordset") ' 创建记录集对象
    
    ' 连接到 Access 数据库
    con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Username\Desktop\MyDatabase.accdb"
    
    ' 打开数据表
    rs.Open "MyData", con, 2, 3
    
    ' 循环读取 Excel 中的数据
    Dim i As Integer
    For i = 2 To 10 ' 假设数据从第二行开始
        ' 获取时间数据
        Dim timeValue As Date
        timeValue = Range("A" & i).Value
        
        ' 插入记录到 Access 中
        rs.AddNew
        rs.Fields("TimeData").Value = timeValue
        rs.Update
    Next i
    
    ' 关闭记录集和连接
    rs.Close
    con.Close
    
    ' 释放对象
    Set rs = Nothing
    Set con = Nothing
    
End Sub

上述代码中，假设 Excel 中的时间数据位于第一列，从第二行开始，数据表名称为 'MyData'，时间数据的字段名称为 'TimeData'。请根据实际情况修改代码。