Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Обратиться к файлу из VBA / 4 сообщений из 4, страница 1 из 1
30.05.2012, 16:15
    #37818245
Случайная гостья
Случайная гостья
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обратиться к файлу из VBA
Всем привет. У меня есть много файлов 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:40
    #37818311
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обратиться к файлу из VBA
Открыть файл
Open
прочитать из файла
Input
Закрыть файл
Close

Примеры есть прям в хелпе
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.05.2012, 16:50
    #37818341
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обратиться к файлу из VBA
> Автор: Случайная гостья
Код: 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
| Ответить | Цитировать | Написать  
31.05.2012, 18:39
    #37820288
Случайная гостья
Случайная гостья
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обратиться к файлу из VBA
Игорь Горбонос> Автор: Случайная гостья
Код: vbnet
1.
...





Спасибо огромное. Очень признательна. Игорь, вы рыцарь дня.
Прям то, что доктор прописал:) Скопировала - и заработало.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Обратиться к файлу из VBA / 4 сообщений из 4, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 146ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2157749]:
 0ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 43ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 46ms
get tp. blocked users:
 2ms
others: 14ms
total:  146ms
x
x
Закрыть


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