|
|
本帖最后由 liuxin12 于 2024-4-20 20:53 编辑
WPS无法连接代码所在的 xlsm ：（未找到解决办法）
功能说明：
从数据库.accdb中查询数据，并排除掉工作计划簿.xlsm中表”工作台”中存在的数据后，将剩余数据添加到工作台中。
存在问题：
无法与含VBA代码的当前xlsm 建立SQL 查询。
需求：
希望在同一个查询条件中(如代码中所示)，既能连接accdb又能连接xlsm,在两表间作交叉查询。
-----------------------------------------
Set cnn = CreateObject("ADODB.Connection")
myPath = ThisWorkbook.path
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" _
& "Data Source=" & myPath & "\标准\工作计划表数据库.accdb"
strN3 = wksGZT.Cells(3, 1).Resize(LngLastRow1 - 2, 10).Address(0, 0)
'注：该条件语句在excelVBA中可以正常执行，但在WPS中无法执行。
strCXtj = "select " & Mid(strCXtj, 2) & " from [Excel 12.0;Database=" & _
ThisWorkbook.FullName & "].[工作台$" & strN3 & "] as a right join " & _
"[3级标题]" & " as b on a.[1级标题]=b.[1级标题] AND " & _
"a.[2级标题]=b.[2级标题] AND " & "a.[3级标题]=b.[3级标题]" & _
" where a.[3级标题] is null AND " & strN1 & ";"
Set Rs = CreateObject("ADODB.Recordset")
'执行该段代码时，提示运行时错误：-2147467259(80004005):
Rs.Open strCXtj, cnn, adOpenKeyset, adLockOptimistic
----------------------------
|
|
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2024-4-19 20:23
楼主
