Question

我目前正在使用OLEDB连接从另一台计算机上运行的另一个工作簿中导入excel工作簿中的数据。我使用的连接模式是＆＃39; adModeRead＆＃39;。到目前为止，它运作良好，但几天后我一直面临一个问题：

每次我启动它在我的计算机上打开的数据的导入/更新时，数据源excel工作簿处于只读模式。你知道我怎么能阻止在我的电脑上打开数据源文件吗？（我只是想在不打开excel文件的情况下导入数据）

在我的代码下：

Public Sub GetExistingData()
Dim Cn As ADODB.Connection
Dim texte_SQL As String
Dim Rst As ADODB.Recordset

Set Cn = New ADODB.Connection

'--- Connection ---
With Cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
        & Folder & "\" MyDataSource.xlsm";Extended Properties=""Excel 12.0;HDR=YES;"""
    .Mode = adModeRead
    .Open
End With


texte_SQL = "SELECT * FROM [" & dataSheetName & "$]"

Set Rst = New ADODB.Recordset
Set Rst = Cn.Execute(texte_SQL)

防止使用OLEDB连接打开Excel工作表

0 个答案: