自动将文件夹(现有的和要添加的)中的所有excel数据导入Microsoft Access

基础概念

Microsoft Access 是一个关系型数据库管理系统（RDBMS），它允许用户创建和管理数据库应用程序。Excel 是一个电子表格程序，广泛用于数据分析和存储。将 Excel 数据导入 Access 可以帮助用户更好地组织和管理数据，利用 Access 的查询、报表和表单功能。

类型

手动导入：通过 Access 的“外部数据”选项卡，逐个导入 Excel 文件。
自动导入：编写脚本或使用 VBA 代码批量导入多个 Excel 文件。

应用场景

数据管理：将多个 Excel 文件的数据整合到一个 Access 数据库中，便于管理和查询。
数据分析：利用 Access 的查询功能对大量数据进行复杂分析。
报表生成：通过 Access 生成各种报表，满足不同的数据展示需求。

自动导入 Excel 数据到 Microsoft Access 的步骤

使用 VBA 代码

以下是一个简单的 VBA 代码示例，用于自动将指定文件夹中的所有 Excel 文件导入到 Access 数据库中：

Sub ImportExcelToAccess()
    Dim db As DAO.Database
    Dim ws As DAO.Workspace
    Dim fso As New Scripting.FileSystemObject
    Dim folder As Scripting.Folder
    Dim file As Scripting.File
    Dim xlApp As Object
    Dim xlWB As Object
    Dim strPath As String
    Dim strSheetName As String
    Dim strSQL As String
    
    ' 设置 Access 数据库路径
    strPath = "C:\Path\To\Your\AccessDatabase.accdb"
    
    ' 打开 Access 数据库
    Set db = OpenDatabase(strPath)
    
    ' 设置 Excel 文件夹路径
    Set folder = fso.GetFolder("C:\Path\To\Your\ExcelFiles")
    
    ' 遍历文件夹中的所有 Excel 文件
    For Each file In folder.Files
        If LCase(Right(file.Name, 4)) = ".xls" Or LCase(Right(file.Name, 5)) = ".xlsx" Then
            ' 打开 Excel 文件
            Set xlApp = CreateObject("Excel.Application")
            Set xlWB = xlApp.Workbooks.Open(file.Path)
            
            ' 获取第一个工作表名称
            strSheetName = xlWB.Sheets(1).Name
            
            ' 构建 SQL 导入语句
            strSQL = "SELECT * INTO [" & strSheetName & "] FROM [Excel 8.0;HDR=YES;DATABASE=" & file.Path & "].[Sheet1$]"
            
            ' 执行导入操作
            db.Execute strSQL
            
            ' 关闭 Excel 文件
            xlWB.Close False
            xlApp.Quit
        End If
    Next file
    
    ' 关闭 Access 数据库
    db.Close
End Sub

使用 PowerShell 脚本

如果你更喜欢使用 PowerShell，可以编写一个脚本来完成相同的任务：

# 设置 Access 数据库路径
$accessDbPath = "C:\Path\To\Your\AccessDatabase.accdb"

# 设置 Excel 文件夹路径
$excelFolderPath = "C:\Path\To\Your\ExcelFiles"

# 加载 Access 数据库
$accessDb = New-Object -ComObject DAO.Database
$accessDb.Open($accessDbPath)

# 遍历文件夹中的所有 Excel 文件
Get-ChildItem -Path $excelFolderPath -Filter *.xls, *.xlsx | ForEach-Object {
    $excelFilePath = $_.FullName
    $sheetName = [System.IO.Path]::GetFileNameWithoutExtension($_.Name)
    
    # 构建 SQL 导入语句
    $sql = "SELECT * INTO [$sheetName] FROM [Excel 8.0;HDR=YES;DATABASE=$excelFilePath].[Sheet1$]"
    
    # 执行导入操作
    $accessDb.Execute($sql)
}

# 关闭 Access 数据库
$accessDb.Close()