Войти

Показать полную графическую версию : [решено] VB, открытие защищенного паролем Excel файла


meateron
14-10-2013, 21:25
Private Sub OK_Click(sender As Object, e As EventArgs) Handles OK.Click
Dim objXL, objWorkbook
objXL = CreateObject("Excel.Application")
objXL.Visible = True
objWorkbook = objXL.Workbooks.Open("C:\1.xlsx")

?????

End Sub

Имеем пароль например "1", каким образом его использовать для открытия защищенного файла?

Поборолся с objWorkbook.Unprotect, не победил синтаксис :(

Iska
14-10-2013, 23:57
Имеем пароль например "1", каким образом его использовать для открытия защищенного файла? »
Excel Workbook Open - Поиск в Google (https://www.google.ru/search?q=Excel+Workbook+Open&ie=utf-8&oe=utf-8&rls=org.mozilla:ru:official&client=firefox-a&gws_rd=cr&ei=R0xcUtnJD4SG4ATro4GYCQ) → Workbooks.Open Method (Excel) (http://msdn.microsoft.com/en-us/library/office/ff194819.aspx). Внимательно читаете, пока не увидите в параметрах слово «password».

meateron
15-10-2013, 19:58
хм......не понимаю как его применять. objXL.Password = "1" ничего не делает, хотя следуя логике, тот же самый objXL.Visible = True при смене на False работает и не показывает окно Excel'я.
если это аргумент для метода .Open, то objXL.Workbooks.Open("C:\1.xlsx", , , "1") тоже не приносит желаемого результата.

смущает меня наличие в примерах лишь кода для VBA....(код под VB делаю....)

а всё, 1 запятую забыл в то objXL.Workbooks.Open("C:\1.xlsx", , , "1")




© OSzone.net 2001-2012