ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / 1)Outlook доставить почту. 2)Excel открыт ли файл другим Excel
4 сообщений из 4, страница 1 из 1
1)Outlook доставить почту. 2)Excel открыт ли файл другим Excel
    #36295827
Nevsky2006
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nevsky2006
Гость
Здравствуйте всем.
Пара вопросов.
1) Как в Outlook программно выполнить процедуру "Доставить почту". Горачая F9. SendKeys не хочу. (Как хоть этот метод называется? Че то не нашел.)
2) Нужно обратиться к файлу *.xls, который открыт другим Excel-ем на этой же машине.
...
Рейтинг: 0 / 0
06.11.2009, 20:13
| Ответить | Цитировать | Написать  
1)Outlook доставить почту. 2)Excel открыт ли файл другим Excel
    #36295874
тот, что ищет
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
тот, что ищет
Гость
1) вот тут
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Public Sub Sync()
    Dim nsp As Outlook.NameSpace
    Dim sycs As Outlook.SyncObjects
    Dim syc As Outlook.SyncObject
    Dim i As Integer
    Dim strPrompt As Integer
    Set nsp = Application.GetNamespace("MAPI")
    Set sycs = nsp.SyncObjects
    For i =  1  To sycs.Count
        Set syc = sycs.Item(i)
            syc.Start
    Next
End Sub

Nevsky20062) Нужно обратиться к файлу *.xls, который открыт другим Excel-ем на этой же машине
Как это? Экселем пришельцем ?
...
Рейтинг: 0 / 0
06.11.2009, 22:02
| Ответить | Цитировать | Написать  
1)Outlook доставить почту. 2)Excel открыт ли файл другим Excel
    #36296347
Nevsky2006
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nevsky2006
Гость
"другим Excel". Поясню.
У меня ситуация. Есть файл Excel который по расписанию в Назначеных заданиях запускается берет данные с базы Oracle преобразовывает необходимым образом и складывает в определенный файл Excel. Так вот этот, определенный, файл в момент работы макроса может быть открыт пользователем. Мне нужно его просто закрыть. Все дело втом, что файл по расписанию стартует в другом приложении Эксель (два раза запуск C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE то же самое.). и For Each w In WorkBooks ничего не дает так как оба файла находятся в разных WorkBooks. (извините, если не грамотно оперирую терминами).
...
Рейтинг: 0 / 0
07.11.2009, 12:46
| Ответить | Цитировать | Написать  
1)Outlook доставить почту. 2)Excel открыт ли файл другим Excel
    #36296607
тот, что ищет
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
тот, что ищет
Гость
Знаете где лежит Ваш файл, который может быть открыт пользователем?
Если да, тогда так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Sub CloseAnotherFile()
Dim oExcelApp As Object

Set oExcelApp = GetObject("C:\...\Ваша книга.xls")
oExcelApp.Save
oExcelApp.Close

End Sub

Первое подошло ?
...
Рейтинг: 0 / 0
07.11.2009, 18:33
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / 1)Outlook доставить почту. 2)Excel открыт ли файл другим Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&gotonew=1&tid=2178876]:
 0ms
get settings:
 4ms
get forum list:
 8ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 151ms
get topic data:
 6ms
get first new msg:
 3ms
get forum data:
 1ms
get page messages:
 19ms
get tp. blocked users:
 1ms
others: 196ms
total:  393ms
созд. / загр.: 393ms
x
x
Закрыть


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