请问，能否在Excel文件打开时 ，以SQL 方式连接并操作数据库？谢谢！

mansohu

请问，我用 SQL 连接 Excel 文件时，当文件打开时，连接失败，文件关闭时，连接成功，请问，能否在Excel文件打开时 ，以SQL 方式连接并操作数据库？谢谢！

microyip

在Thisworkbook里的

1. Private Sub Workbook_Open()
   
2. 
   
3. End Sub
   

复制代码

里设置代码就可以啦

mansohu

microyip 发表于 2016-6-18 17:07
在Thisworkbook里的
里设置代码就可以啦

谢谢回帖，不过我不是这个意思，在com加载项里，我要用 SQL 语句查询某 Excel 文件的数据，但连接时，需要该 Excel 文件是关闭的，但我想在它打开的状态下连接，不知行不行？还请指导 ，谢谢！

opiona

WPS会有此种情况，可能是独占打开造成的
但是EXCEL内可以连接打开的文件 的！

betar

现在我的需求也是需要解决，如何用SQL连接已经打开的excel文件。关注中。

betar

opiona 发表于 2016-6-19 10:37
WPS会有此种情况，可能是独占打开造成的
但是EXCEL内可以连接打开的文件 的！

求大神指导如何连接，我这边如果先使用workbooks.open打开后，再进行SQL连接操作会出现找不到目标工作表的情况。可以麻烦看看代码哪里出了问题么？

1. Sub test()
   
2.     Dim File As Workbook
   
3.     Dim Index As Worksheet
   
4.     Dim cnn
   
5.     Dim rst
   
6.     Dim SQL$
   
7.     Dim Path, Text1, SheetName As String
   
8.    
   
9.     Path = ThisWorkbook.Path & ""
   
10.     Text1 = "test.xlsx"
    
11.     SheetName = "Sheet1"
    
12.    
    
13.     Set ExcelApp = CreateObject("Excel.Application")
    
14.     Set File = ExcelApp.Workbooks.Open(Filename:=Path & Text1, Password:="123")
    
15.     Set Index = File.Worksheets(SheetName)
    
16.    
    
17.     Sheets("Sheet1").Range("a2:e65536").ClearContents
    
18.     Sheets("Sheet1").Select
    
19.    
    
20.     Set cnn = CreateObject("adodb.connection")  'Create DB Connection
    
21.     Set rst = CreateObject("adodb.recordset")
    
22.     cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;extended properties=Excel 12.0;Data Source=" & Path & Text1
    
23.     SQL = "select [Loan No#] from [" & SheetName & "$A1:DH1048576]"
    
24.     Set rst = cnn.Execute(SQL)
    
25.     Worksheets("Sheet1").Range("a" & Range("A65536").End(xlUp).Row + 1).CopyFromRecordset rst
    
26.    
    
27.     rst.Close
    
28.     cnn.Close     'Close SQL Connection
    
29.     Set rst = Nothing
    
30.     Set cnn = Nothing    'Clean SQL from RAM
    
31.    
    
32.     File.Close True
    
33.     Set ExcelApp = Nothing
    
34.     Set File = Nothing
    
35.       
    
36. End Sub

复制代码

13559480566

'先判断文件是否存在，然后只读打开 隐藏（针对 放共享文件夹 其他电脑打开的情况）
If Dir(完整路径, vbDirectory) <> "" Then
Workbooks.Open 完整路径, , True
Windows("文件名.xlsx").Visible = False
End If

'关闭文件
Set XLSM = GetObject(完整路径)
Windows("文件名.xlsx").Visible = True
XLSM.Close False