Константин
Зарегистрирован: 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] |
|
FAQ
Поиск
Пользователи
Группы
Регистрация
Профиль
Войти и проверить личные сообщения
Вход
