ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Обратиться к файлу из VBA
4 сообщений из 4, страница 1 из 1
Обратиться к файлу из VBA
    #37818245
Фотография Случайная гостья
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Случайная гостья
Участник
Всем привет. У меня есть много файлов BW, которые надо обновлять. Обновляются они с помощью программки на VBA. В каждом файле есть процедура запуска BW на открытии. В этой процедуре указываются мои логин и пароль. Все замечательно работает. НО. Раз в 2 недели надо менять пароль... У меня минут 30 уходит на то, чтобы открыть каждый файлик и изменить в программе пароль.
Собственно в этом и вопрос - как обратиться из VBA к какому-нибудь файлу, скажем *.xls или *.txt, в котором я бы записала пароль и меняла его раз в 2 недели только там, в одном месте.

Sub auto_open()
...
g_oConnection.Password = "12345" 'вот тут надо чтобы VBA зашел в какой-то файл и взял оттуда пароль:)
...
End Sub

Надеюсь на понимание:)
...
Рейтинг: 0 / 0
30.05.2012, 16:15
| Ответить | Цитировать | Написать  
Обратиться к файлу из VBA
    #37818311
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Открыть файл
Open
прочитать из файла
Input
Закрыть файл
Close

Примеры есть прям в хелпе
...
Рейтинг: 0 / 0
30.05.2012, 16:40
| Ответить | Цитировать | Написать  
Обратиться к файлу из VBA
    #37818341
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Случайная гостья
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub auto_open()
    ...
    g_oConnection.Password = GetPassword() ' "12345" 'вот тут надо чтобы VBA зашел в какой-то файл и взял оттуда 
пароль:)
    ...
End Sub

Function GetPassword() As String
Dim wb As Workbook
GetPassword = ""
' Если происходит ошибка, то возвращаем пустую строку пароля
On Error Resume Next
Set wb = Application.Workbooks.Open("Здесь путь к файлу с паролем")
GetPassword = wb.Sheets("Пароли").Cells(1, 1).Text
wb.Close False
Set wb = Nothing
End Function



Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
30.05.2012, 16:50
| Ответить | Цитировать | Написать  
Обратиться к файлу из VBA
    #37820288
Фотография Случайная гостья
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Случайная гостья
Участник
Игорь Горбонос> Автор: Случайная гостья
Код: vbnet
1.
...





Спасибо огромное. Очень признательна. Игорь, вы рыцарь дня.
Прям то, что доктор прописал:) Скопировала - и заработало.
...
Рейтинг: 0 / 0
31.05.2012, 18:39
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Обратиться к файлу из VBA
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37818245&tid=2157749]:
 0ms
get settings:
 10ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 40ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 44ms
get tp. blocked users:
 2ms
others: 17ms
total:  150ms
созд. / загр.: 150ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]