将 Excel 导入 Access – 列标题具有特殊字符答案

【问题标题】：Import Excel into Access – Column Title has special character将 Excel 导入 Access – 列标题具有特殊字符
【发布时间】：2019-03-15 15:22:47
【问题描述】：

是否有可以编辑 Excel 标题并导入 Access 的 Access 脚本？每周我都会从我们所有的买家那里获得 Excel 文件（大约 200 个 Excel 文件）我已经在 Access 中有一个脚本来导入和合并所有这些文件。现在我只导入 A-T 列。我的公司现在希望我导入和跟踪数据还有另外两个列。问题是这些新列中的标题之一有一个句号（例如：Inv. Impact）。我在尝试导入时不断收到错误，我现在意识到 Access 不喜欢标题中的句点。

是否可以编写脚本来更改 Access 或 Import 中所有这些文件的标题并编辑标题？有将近 200 个文件，所以我没有时间在导入之前打开和编辑每个文件。

【问题讨论】：

我猜你的意思是标题。你真的需要导入标头吗？
我刚刚测试了这个。导入新表有效。这是失败的附加。对我来说，这看起来像是 MS 的编程缺陷。是的，代码可以打开和操作 Excel 工作簿。

标签： excel ms-access

【解决方案1】：

是的，代码可以打开和操作 Excel 并执行查找/替换。我在 Workbook 中使用宏记录器来生成一些代码并适应 Access VBA 程序。很简单的例子：

Sub FixHeader()
Dim xclApp As Excel.Application, xclWB As Excel.Workbook
Set xclApp = CreateObject("Excel.Application")
Set xclWB = xclApp.Workbooks.Open("C:\Users\June\Book1.xlsx")
xclWB.Worksheets("Sheet1").Range("A1:B1").Select
    Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
xclWB.Close True
xclApp.Quit
End Sub

【讨论】：