Загрузка из скрытого файла mdb в excel

[ольгаг]

Здравствуйте Уважаемые программисты!
Есть следующий код макроса в excel2003:

Dim dbs As DAO.Database
Dim Filename As Variant
On Error Resume Next
Filename = "1.mdb"
If Dir(ThisWorkbook.Path & "\" & Filename) <> "" Then
Set dbs = DAO.OpenDatabase(ThisWorkbook.Path & "\" & Filename, True, True, ";pwd=000")
End If

Он работает(если файл базы 1.mdb лежит в одной папке с книгой excel). Но если сделать файл 1.mdb скрытым, то код не видит файл базы. Скажите пожалуйста, возможно ли обращение к такому скрытому файлу базы из макроса excel 2003? Спасибо.

[AndVGri]

ольгаг

Но если сделать файл 1.mdb скрытым, то код не видит файл базы.

А в чём смысл в использовании атрибута "скрытый" для файла базы данных?
Можно работать со "скрытой" базой данных, используя Microsoft ActiveX DataObjects

Public Sub test()
    Dim pConn As New ADODB.Connection
    Dim pRSet As New ADODB.Recordset
    pConn.Mode = adModeShareDenyNone
    pConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Test\mydb.mdb"
    pConn.Execute "Create Table newTable (FID Integer Primary Key, FName Char(32))"
    pRSet.CursorLocation = adUseClient: pRSet.LockType = adLockPessimistic
    pRSet.CursorType = adOpenStatic
    pRSet.Open "Select * from newTable", pConn
    pRSet.AddNew Array("FID", "FName"), Array(1, "newName")
    pRSet.Update
    pRSet.Close: pConn.Close
End Sub

[ольгаг]

Спасибо большое!