|
|
|
новичок
участник
Last Login: 17.05.2007 13:17
Сообщ.: 4,
Visits: 8
|
|
| Существует сгенеренный макрос по открытию Access в Excel, но во время открытия я ввожу ручками пароль Access - базы, который не должен знать юзер и еще ряд вопросов которые его совсем не интересуют :) Sub www()
ChDir "C:\0"
Workbooks.OpenDatabase Filename:="C:\0\AC215DataBase.mdb", CommandText:= _
Array("111"), CommandType:=xlCmdTable
Cells.Select
Selection.Copy
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:="C:\0\111.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
Далее есть способ обойти пароль программно(разумеется не для юзера): Static acc As Access.Application
Dim db As DAO.Database
Dim strDbName As String
strDbName = "C:\0\AC215DataBase.mdb"
Set acc = New Access.Application
acc.Visible = True
Set db = acc.DBEngine.OpenDatabase(strDbName, False, False, ";PWD=111")
как слить всю эту грамматику воедино??
|
|
|
|