Экспорт Excel лист Access DB макросъемки

Question

После некоторых поисков я нашел макрос для экспорта в таблицу Excel в качестве записи в защищенный паролем доступ к базе данных

Dim cnn As ADODB.Connection 'dim the ADO collection class 
Dim rst As ADODB.Recordset 'dim the ADO recordset class 
Dim dbPath 
Dim i As Long 


'add error handling 
On Error GoTo errHandler: 

'Variables for file path and last row of data 
dbPath = ("\\serverpath\reporting.accdb") 
'Initialise the collection class variable 
Set cnn = New ADODB.Connection 

cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbPath, , "password" 

Set rst = New ADODB.Recordset 'assign memory to the recordset 

rst.Open Source:="table", ActiveConnection:=cnn, _ 
CursorType:=adOpenDynamic, LockType:=adLockOptimistic, _ 
Options:=adCmdTable 

rst.AddNew 
For i = 1 To 180 
    rst(Cells(1, i).Value) = Cells(nextrow, i).Value 
Next i 
rst.Update 

'close the recordset 
rst.Close 
' Close the connection 
cnn.Close 
'clear memory 
Set rst = Nothing 
Set cnn = Nothing 

'communicate with the user 
MsgBox " The data has been successfully sent to the access database" 

'Update the sheet 
Application.ScreenUpdating = True 

On Error GoTo 0 
Exit Sub 
errHandler: 

'clear memory 
Set rst = Nothing 
Set cnn = Nothing 
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Export_Data" 

Я получаю сообщение об ошибке «Error 2147217843 Информация рабочей группы файл отсутствует»в cnn.Open

Answer 1

Это сообщение об ошибке вводит в заблуждение. Проблема не в MDW (файл информации рабочей группы).

Есть 2 типа паролей для доступа к базам данных:

1. паролей, связанные с индивидуальным пользователем безопасности доступа учетных записей
2. пароля, который относится к самой базе данных, и все пользователи должны предоставить этот пароль, чтобы открыть база данных

Ваш пароль второй тип, но попытка подключения относится к нему как к первому типу.

Используйте опцию Jet OLEDB:Database Password в строке подключения.

Dim strConnect As String 
strConnect = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _ 
    dbPath & ";Jet OLEDB:Database Password='password';" 
Debug.Print strConnect 
cnn.Open strConnect 

Answer 2

Вы можете попробовать пропускание информации о файле рабочей группы, хотя я считаю, что это в первую очередь для MDB файлов:

Provider=Microsoft.Jet.OLEDB.12.0;Data Source=D:\Test\Test.accdb;User ID=Admin;Jet OLEDB:System database=D:\Test\System.mdw;