Вопрос № 130866: Доброго времени суток ув. эксперты! Предупреждаю, я пока чайник, так что не судите строго. Вот уже 1 день как я осваиваю VB, cделал 2 примитивные программы(на различные матем. функции для подсчета чего-либо и вторую со всякими флажками и переключател...Вопрос № 130933: Здравствуйте! Нужна помощь! Есть книга excel: лист"средние данные за месяц", лист"сводная таблица за каждый день месяца", лист"Диаграммы"
и 30-31 лист с данными за каждый день. Все листы связаны между собой ссылками и фо...Вопрос № 130976: День добрый, уважаемые эксперты!
Помогите, пожалуйста, решить такой вопрос.
Имеется Outlook (2003, 2007) + Exchange 2003. Масса почтовых ящиков сотрудников. У каждого сотрудника, кроме своего, подключен общий почтовый ящик.
Проблема в том...
Вопрос № 130.866
Доброго времени суток ув. эксперты! Предупреждаю, я пока чайник, так что не судите строго. Вот уже 1 день как я осваиваю VB, cделал 2 примитивные программы(на различные матем. функции для подсчета чего-либо и вторую со всякими флажками и переключателями сам еще не знаю точно для чего:) ) И вдруг захотелось эти "программы" "связать". Вопрос : как мне сделать так, чтоб из одной программы можно было вызвать-открыть другую, например как в HTML-документе при нажатии на ссылку может открываться
Виндовс Медиа. Заранее благодарю за ответ.
Отвечает: Черников Игорь Владимирович
Здравствуйте, Vitek Koval!
Запустить другую программу с помощью Shell.
Вот примитивный пример, он Вам поможет:
Private Sub Form_Load()
Shell "C:WINDOWSsystem32calc.exe"
End Sub
Удачи!
--------- От каждого по способностям, каждому по труду
Ответ отправил: Черников Игорь Владимирович (статус: 10-ый класс)
Ответ отправлен: 07.04.2008, 16:10 Оценка за ответ: 5 Комментарий оценки: Класс, все работает! Мне пока примитив и нужен! Большое спасибо!
Отвечает: Павленко Александр Геннадьевич
Здравствуйте, Vitek Koval!
Если Вы хотите просто запустить новую программу из уже открытой, можете создать кнопку, щелкнуть по ней два раза, чтобы открылось окошко с процедурой, и добавить туда оператор:
Shell("путь_к_программе")
Удачи в изучении! ;)
Ответ отправил: Павленко Александр Геннадьевич (статус: 2-ой класс)
Ответ отправлен: 07.04.2008, 18:14 Оценка за ответ: 5 Комментарий оценки: Отличный способ! Все работает! Большое спасибо!
Вопрос № 130.933
Здравствуйте! Нужна помощь! Есть книга excel: лист"средние данные за месяц", лист"сводная таблица за каждый день месяца", лист"Диаграммы" и 30-31 лист с данными за каждый день. Все листы связаны между собой ссылками и формулами. Данные берутся из файла txt, который формируется специальной программой каждый день. Нужно автоматизировать процесс переноса определенных данных из текстового файла в нужные ячейки листа excel. Это можно сделать с помощью макроса? Жду вашей помощи, т.к.
я новичок в VBA и макросах.
Отправлен: 07.04.2008, 02:02
Вопрос задала: Tatyana (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 4)
Отвечает: Черников Игорь Владимирович
Здравствуйте, Tatyana!
Для эксперимента запишите в текстовый файл txt.txt несколько слов, разделённых ; и положите его на диск C:
Скопируйте приведённый ниже макрос и вставьте его в свой Эксель
Sub Макрос1()
Dim Данные(50) '50 - максимальное количество данных в файле, укажите своё максимальное число, если данных будет больше, чем Вы укажете, то возникнет ошибка
Open "C: xt.txt" For Input As #1 'Открываем файл txt.txt на диске C:
Do While Not EOF(1) ' Цикл до конца файла.
ОдинСимвол = Input(1, #1) ' Читаем из файла по одному символу.
If ОдинСимвол = ";" Then 'Если самвол равен точке с запятой, то...
' Вместо ; можно поставить любой другой разделительный символ, которым разделены данные в файле
х = х + 1
Данные(х) = Строка ' Записывает полученные данные в массив
Строка = "" 'Удаляем всё из переменной
Else '...Иначе
Строка = Строка + ОдинСимвол 'Здесь символы собираются в слова
End If ' Конец условия Если
Loop 'Конец цикла
Close #1 'Закрываем открытый нами файл
'Теперь вставляем данные куда нужно:
Worksheets("Лист1").Range("A1").Value = Данные(1)
Worksheets("Лист1").Range("B1").Value = Данные(2)
Worksheets("Лист1").Range("A2").Value = Данные(3)
'и т.д. Здесь добавьте ещё ячейки, куда нужно вставлять данные ...= Данные(4) и т.д.
End Sub
--------- От каждого по способностям, каждому по труду
День добрый, уважаемые эксперты!
Помогите, пожалуйста, решить такой вопрос.
Имеется Outlook (2003, 2007) + Exchange 2003. Масса почтовых ящиков сотрудников. У каждого сотрудника, кроме своего, подключен общий почтовый ящик.
Проблема в том, что при отправлении какого-то письма с общего ящика организации, письмо это сохраняется в ящике пользователя, а не в общем ящике.
Помогите, пожалуйста, написать скрипт для переброски или сохранения копии этого письма в какой-либо папке общего ящика.
С уважением и пр.,
Наталия.
Отвечает: Черников Игорь Владимирович
Здравствуйте, Наталия Блинкова!
Создайте правило:
Сервис -> правила и оповещения. На вкладке "Правила для электронной почты" нажмите кнопку "Новое". Выберите "Создать новое правило", выделите надпись "Проверка сообщения после отправки" и нажмите "Далее". Установите галочку напротив "Только на данном компьютере" и нажмите "Далее", затем выбирите нужные действия.
А ещё проще:
скажите Вашему сисадмину, вернее Админу Exchange, чтобы создал такое правило на сервере, там должны быть такие функции.
--------- От каждого по способностям, каждому по труду
Ответ отправил: Черников Игорь Владимирович (статус: 10-ый класс)
Ответ отправлен: 07.04.2008, 18:30 Оценка за ответ: 3 Комментарий оценки: Большое спасибо Вам, Игорь Владимирович, но я просила помочь в написании скрипта, хотя бы как программно присвоить категорию. Просила я об этом не из праздного любопытства, если Вы повнимательнее посмотрите в шаги мастера создания правил, то увидите там, что в списке условий отбора нет пункта "содержащие текст в адресе отправителя", а именно эти сообщения мне нужно перехватывать.
Я в общем-то нашла, как выхватить это письмо, мне нужно узнать, как ему присвоить автоматически категорию, т.к. надежды на пользователей, что они будут это делать каждый раз, у меня нет. А вот пункт "из категории имя" в выше означенном списке есть. Собственно, зачем и нужен скрипт. И уж тем более мне не нужен совет, обратиться к сисадмину.
Прошу прощения, если была слишком резкой.
