Excel2010到自身的ACE连接字符串

Question

我试图在VBA中使用SQL来更新Excel中现有表中的数据（与VBA代码相同的文件）。这是用SQL查询编写的，更新的目的是在推出后不久将源数据移动到数据库中，但有原因不是现在。我不断得到“操作必须使用可更新查询”的错误。一些源在扩展属性中显示只读，而一些不显示只读；两人都试过。StatusData是Excel文件中的命名范围。使用命名范围的SELECT语句在使用以下连接字符串时工作正常：

DBFullName=thisworkbook.path&“\”&thisworkbook.name

Cnct=“provider=microsoft.ace.oledb.12.0；data source='”&DBFullName&'；“&_“扩展属性='Excel 12.0；HDR=yes；IMEX=1'；”

查询连接的更改包括使用“Excel12.0宏”扩展属性和Readonly=0，这些更改是递增的。断开的代码如下：

Cnct = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & DBFullName & "';" & _
  "Extended Properties='Excel 12.0 Macro;ReadOnly=0;HDR=Yes;IMEX=1';"
Set Cn = New ADODB.Connection
Cn.Open ConnectionString:=Cnct
strSQL = "UPDATE StatusData SET Notes='ttt' WHERE [Program Category]='something' AND [Program Name]='something' AND [LN]='1' AND [SN]='101';"
Cn.Execute strSQL, RecordsAffected, adExecuteNoRecords

Answer 1

我在使用IMEX时遇到了问题，所以最后我停止使用它来实现这个目的，这个连接字符串从来没有给我使用ADO/ACE连接回工作簿（通常用于SQL GroupBy）带来问题，但在建立连接之前，您可能需要对数据进行一些调节（我将整个表放入一个数组中，并根据需要遍历字段进行更改，然后转储回工作表），这很容易，因为它已经在同一个工作簿中了：

Dim conn    As Object
Dim sPath   As String

sPath = "C:\offlinestorage\temp1.xlsx"
Set conn = CreateObject("ADODB.Connection")
With conn
    .Provider = "Microsoft.ACE.OLEDB.12.0"
    .ConnectionString = Format("Data Source=" & sPath & ";Extended Properties='Excel 12.0 XML;HDR=Yes';")
    .Open
End With