Question

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

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

Answer 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

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

1 个答案: