Как из подключенной базы Access выдернуть данные в Excel

rinch333 — Thu, 17 May 2007 10:51:23 GMT

Существует сгенеренный макрос по открытию 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")

как слить всю эту грамматику воедино??

Релиб / Программирование / VBA / Как из подключенной базы Access выдернуть данные в Excel / Latest Posts

Как из подключенной базы Access выдернуть данные в Excel