我如何在 vba 中使用 ADODB 连接

Question

1. 我需要数组数据
2. 目标文件在网络上，10 秒内添加数据值
3. 需要连接到这个文件 (.xls) 并制作实时图表

现在的问题是我如何为这个打开的文件使用ADODB

发生2例：

第一个：

dim path as string, DB as string
dim cnt as ADODB.Connection
OLEDB = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & path & DB & "; 
extended properties=""excel 12.0 xmlHDR=YES"";"
Set cnt = New ADODB.Connection
cnt.Open OLEDB

然后我收到“找不到 ISAM 安装”错误

第二个：

dim path as string, DB as string
dim cnt as ADODB.Connection
OLEDB = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path & DB &"; 
extended properties=""excel 8.0;HDR=YES;IMEX=1;';"""
Set cnt = New ADODB.Connection
cnt.Open OLEDB

然后我得到了3706 runtime error, cant find supporter

那我怎么了？

Answer 1

这是我通常的运行方式：

DbConn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
            "Data Source=" & path & ";" & _
            "Extended Properties=""Excel 12.0; HDR=YES"";"

其中 path 是完整的文件路径 + 文件名。 您可以找到更多关于连接字符串的信息here

工作表名称和范围然后进入 SQL 语句。例如：

sqlWhere = sheetName & "$A1:$Z1000"
DbRecSet.Open "SELECT * FROM [" & sqlWhere & "]", DbConn, adOpenStatic

编辑：

如果我理解正确， 您有一个每 10 秒更改一次值的单元格，并且您希望通过 ADODB 获取该值。

首先，在这种情况下，您可以从连接字符串中删除HDR=YES。

假设单元格是A1

sqlWhere = sheetName & "$A1"
DbRecSet.Open "SELECT * FROM [" & sqlWhere & "]", DbConn, adOpenStatic
returnValue = DbRecSet.Fields(0)

Answer 2

path = test_fdr & "" & today_total & ".xls"

 OLEDB = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & path & 
 ";Extended Properties=""Excel 8.0;HDR=YES"";"

  Set cnt = New ADODB.Connection
  cnt.Open OLEDB

  Rcdset.Open Source:="[" & TestSheetName & "$]", _
  ActiveConnection:=cnt, _
  CursorType:=adOpenStatic, _
  LockType:=adLockReadOnly, _
  Options:=adCmdTable

  With Sheets(3).QueryTables.Add(Connection:=Rcdset, Destination:=Target_rng)