solidworks通过ADO连接excel数据库

zhaokaijie

   经典图书

Sub 添加1()
  Dim conn As New ADODB.Connection
  Dim sql As String
  conn.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 8.0;data source=C:\Users\User\Desktop\test\database.xlsx"
  If conn.State = 1 Then
  MsgBox 1
  Else
  MsgBox 2
  End If
  conn.Close
  Set conn = Nothing
End Sub
在solidworks 2014上输入如上程序，老是提醒我未找到提供程序，有没有办法解决啊。

gjs19821205

好东西，努力学习学习！

lhl-RT

   经典图书

1. '连接Excel
   
2. Sub updateaddRecords2003()
   
3. '引用Microsoft ActiveX Data Objects 6.1 Library
   
4.     Dim myPath As String
   
5.     Dim myTable As String
   
6.     Dim strTemp As String
   
7.     Dim arrFields As Variant
   
8.    
   
9.     Dim cnn As ADODB.Connection
   
10.     Set cnn = New ADODB.Connection
    
11.    
    
12.     myPath = "C:\Users\User\Desktop\test\database.xlsx"
    
13.     On Error GoTo errmsg
    
14. 
    
15.     cnn.Open "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" & myPath
    
16.    
    
17.     If cnn.State = 1 Then
    
18.         MsgBox 1
    
19.     Else
    
20.         MsgBox 2
    
21.     End If
    
22. 
    
23.    
    
24.     '关闭
    
25.     cnn.Close
    
26.     Set cnn = Nothing
    
27.     Exit Sub
    
28. errmsg:
    
29.     MsgBox Err.Description, , "错误报告"
    
30. End Sub

复制代码

按照上面程序试试，我测试是可以的。

zhaokaijie

谢谢，我试了一下发现不行，之前忘了说了，我的solidworks是64位的，excel是32位的

zhaokaijie

   经典案例图书

https://www.swbbsc.com/forum.php?mod=attachment&aid=NzI5MjQwfDgyZWZlNWFlOGY0ODJhMTRlZTEyZTNlN2Y4MmE0OTlmfDE3NDgwNjE3NjI%3D&request=yes&_f=.png
运行时跳出这个

lhl-RT

zhaokaijie 发表于 2018-7-7 13:31
https://www.swbbsc.com/forum.php?mod=attachment&aid=NzI5MjQwfDgyZWZlNWFlOGY0ODJhMTRlZTEyZTNlN2Y4MmE0OTlmfDE3NDgwNjE3NjI%3D&request=yes&_f=.png
运行时跳出这个

你检查一下是否引用Microsoft ActiveX Data Objects 6.1 Library？
我的系统和excel和你一样呀