关于WPS在win10 和win11上运行adodb问题

yang1992820

如下是我的代码，在win10运行没问题，但是win11会报找不到提供程序，求解是何原因


Set Cnn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

  '====需要打开
  cnnStr = "provider=Microsoft.ACE.OLEDB.12.0;extended properties=excel 12.0;" & _
         "Extended Properties='Excel 8.0;HDR=Yes;IMEX=1';data source=" & ThisWorkbook.Path & "\数据下载_ODF_DATA.csv"
        
        
   Cnn.Open cnnStr

opiona

WPS只支持: Microsoft.JET.OLEDB.4.0   不支持: Microsoft.ACE.OLEDB.12.0

1.         Rem  如果链接: ACCESS Exce 或者WPS
   
2.         If InStr(UCase(Application.Path), "WPS") > 0 Then
   
3.             Rem 如果是WPS中使用,  必须是4.0版本的
   
4.             If InStr(UCase(Str_coon), "PROVIDER=") = 0 Then
   
5.                 Rem 如果是简化的链接字符  就补全
   
6.                 Str_coon = "Provider=Microsoft.JET.OLEDB.4.0;Extended Properties='Excel 8.0;" & Str_coon
   
7.                 Rem  完整的WPS链接字符
   
8.                 Rem Str_coon = "Provider=Microsoft.JET.OLEDB.4.0;Extended Properties='Excel 8.0;HDR=yes';Data Source=" & ThisWorkbook.FullName
   
9.             End If
   
10.         Else
    
11.             If InStr(UCase(Str_coon), "PROVIDER=") = 0 Then
    
12.                 Rem 如果是简化的链接字符  就补全
    
13.                 If Val(Application.Version * 1) < 12 Then
    
14.                     Rem 2003及以下版本的  使用4.0版本引擎
    
15.                     Str_coon = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;" & Str_coon
    
16.                 Else
    
17.                     Rem 2007及以上版本的  使用12.0版本引擎
    
18.                     Str_coon = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;" & Str_coon
    
19.                 End If
    
20.             End If
    
21.         End If

复制代码

f8b1987

安装ADO驱动试试
https://www.123pan.com/s/2KeA-Yxe5d.html