Друзья, есть Excel с подключенными данными в Access по такой строке подключения:

Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=f:\Общая\DWH\DWH.accdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Engine Type=6;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False;Jet OLEDB:Bypass UserInfo Validation=False;Jet OLEDB:Limited DB Caching=False;Jet OLEDB:Bypass ChoiceField Validation=False

Но после обновления, база Access продолжает висеть открытой, и закрытие происходит только после закрытия Excel.

Подскажите, пожалуйста, код закрытия Access сессии после обновления, не закрывая обновленный файл Excel.

2112,

Нужно, чтобы после обновления данных в файле Excel, закрывался файл Access, от которого Excel и обновился.

2112,

И хочу закрыть теперь, но не знаю как

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ADO.Connection.Close
End Sub

2112,

А по делу что-то можете предложить?

2112,

Private Sub GetMyData()
Const strDb As String = "F:\Îáùàÿ\DWH\DWH.accdb"
Const strQry As String = "SELECT * from Script"

Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection

Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strDb & ";"
Set rs = New ADODB.Recordset

With rs
Set .ActiveConnection = cn
.Open strQry
End With
Worksheets("Ëèñò1").Range("A1").CopyFromRecordset rs

rs.Close: cn.Close
Set rs = Nothing: Set cn = Nothing
End Sub

2112,

ваша помощь больше не требуется, спасибо.

Если кто-то может еще предложить, буду благодарен.

?????,

на VBA напишите, как

процесс там не открывается и не закрывается, смотрел по диспетчеру задач