时间戳

首页 > 解决方案 > 使用 Microsoft.ACE.OLEDB.12.0 设置工作表名称

vbscript - 使用 Microsoft.ACE.OLEDB.12.0 设置工作表名称

问题描述

以下作品：

cnStg = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & oFile.Path & "; Extended Properties='Excel 12.0 Xml;HDR=YES';"
cn.Open cnStg 
Set adoWbkAsDatabase = CreateObject("ADOX.Catalog")
adoWbkAsDatabase.ActiveConnection = cn

For i = 0 To adoWbkAsDatabase.Tables.Count
    If Mid(adoWbkAsDatabase.Tables(i).Name, 2, 10) = "XXXXXX XXX" Then
        vSheetName = Split(Trim(Mid(adoWbkAsDatabase.Tables(i).Name, 12, 100)), "$")(0)

但以下内容：

Set adoWbkAsDatabase.Tables(i).Name = "XXXXXX XXX"

给

Microsoft VBScript 运行时错误：需要对象：'adoWbkAsDatabase.Tables(...).Name'`

我有点意识到我的方法应该行不通，但是有没有办法使用更改工作表的名称Provider=Microsoft.ACE.OLEDB.12.0'？

标签： vbscriptoledb

解决方案

据我所知，通过 OLE 数据库界面重命名 Excel 工作表是不可能的。为此，您需要 Excel COM 对象（即在运行脚本的计算机上安装有效的 Excel）：

Set xl = CreateObject("Excel.Application")
Set wb = xl.Workbooks.Open(oFile.Path)

wb.Sheets(1).Name = "XXXXXX XXX"

wb.Save
wb.Close
xl.Quit

推荐阅读