Константин
Зарегистрирован: 02.05.2012 Сообщения: 39 Откуда: Красноярск
|
Добавлено: Ср Авг 01, 2012 13:34 Заголовок сообщения: Загрузка данных из Excel файла, на котором установлен пароль |
|
|
надо загрузить в босс кадровик файл Excel с паролем, который меняется по определенному правилу.
Загрузка сама по себе работает, а вот как открывать документ если там пароль?
Не работающий пример!!!!
Код: |
vb {
Dim xlApp,curSH
Set xlApp = GetObject ("","Excel.Application")
xlApp.visible = 0
xlApp.WindowState = 2
};
local vb.pswd=@xName:pswd[""]; -- пароль вводится на форме
local vb.listname=@xName:ListName[""]; --имя листа вводится на форме
--Процедура загрузки
ProcLocal vb.Open_Doc {(path);
xlApp.Workbooks.Open(path,password:=asd)
xlApp.ActiveWorkbook.Worksheets(listname).Activate
xlApp.WindowState = 2
xl.Visible = True
wb.Activate
xl.WindowState = xlMaximized
};
|
если убрать из Workbooks.Open ,password:=asd то загрузка работает (если нет пароля в *.xls) _________________ return @@tMonth[%m] |
|