主页 / dba / 问题 / 3554
Accepted
blueman010112
Asked: 2011-06-30 00:42:35 +0800 CST

EXCEL表格批量输入Access

  • 772

我有很多 Excel 数据表（在一个文件中）

我想批量输入到 Access

但我找不到执行此操作的示例代码

access中数据表的名称与excel中的相同

有没有VBscript的代码可以做到这一点？

也许在访问或excel vba中？

或者任何简单的软件？

ms-access excel

3 个回答

  1. Best Answer

    我会使用SSIS来做到这一点。尝试以下步骤：

    • 我将首先创建一个对象变量来存储数据表的名称
    • 然后我会创建一个 VB 任务来提取电子表格的名称并将结果放入对象变量中
    • 然后创建一个使用对象变量作为集合的 foreach 循环
    • 创建另一个变量并以当前工作表的名称折腾
    • 在使用当前工作表作为数据源的循环内添加数据流任务
    • 将您的访问表添加为您的目的地。

    这是可用于提取 excel 元数据的 VB 脚本。您需要从 foreach 循环中输入变量才能使其正常工作。

       Public Overrides Sub CreateNewOutputRows()

    Dim excelFilePath As String = Me.Variables.ExcelFilePath.ToString()
    Dim strCn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=" + excelFilePath + ";Extended Properties=Excel 8.0"
    Dim dtTables As DataTable
    Dim tableName As String

    Dim cn As OleDbConnection = New OleDbConnection(strCn)
    cn.Open()
    dtTables = cn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)

    For Each row As DataRow In dtTables.Rows
        tableName = row("TABLE_NAME").ToString()

        OutputBuffer.AddRow()
        OutputBuffer.EXCELFILEPATH = excelFilePath
        OutputBuffer.TABLENAME = tableName

    Next

    cn.Close()
    OutputBuffer.SetEndOfRowset()
End Sub

    这有点棘手，但非常可行。祝你好运。

    • 3

  2. 我能想到的最简单的方法可能是在 Excel 工作簿中编写一些 VBA 代码。工作量取决于以下因素，例如每张工作表中有多少列、数据采用什么格式、每张工作表的相似程度以及您必须执行此操作的频率。每个工作表中的所有数据都进入 Access 数据库中的一个表还是多个表？另一个选项可以运行编写一些代码以将每个数据导出到 CSV 文件，合并然后导入 Access。

    • 2

  3. 我强烈建议走 CSV 路线。

    从 Excel 导出到 CSV 只需执行“另存为...”即可。将其导入 Access 也是一件非常简单的事情。（如果该链接失效，Google 上会有更多类似的链接。）

    • 1

相关问题