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

Question

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

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

Answer 1

是的，代码可以打开和操作Excel并执行查找/替换。我在工作簿中使用宏记录器来生成一些代码并在访问VBA过程中进行调整。非常简单的例子：

Sub FixHeader()
Dim xclApp As Excel.Application, xclWB As Excel.Workbook
Set xclApp = CreateObject("Excel.Application")
Set xclWB = xclApp.Workbooks.Open("C:UsersJuneBook1.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