ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Помощь с макросом
12 сообщений из 12, страница 1 из 1
Помощь с макросом
    #37642217
hum_i
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hum_i
Участник
Добрый день! У меня есть макрос, который запускается с помощью этого кода. Весь процесс происходит следующим образом: На машине каждый день в определенное время с помощью задания открывается Excel - ий файл, в котором единственный модуль под названием Connection запускается с помощью кода (см. ниже) и после выполнения файл отправляется на почту адресату. Создала еще один модуль Connection2. Нужно чтобы он тоже запускался. Как это можно добавить в этом коде? Подскажите пожалуйста.

Private Sub Workbook_Open()

Run "Connection"

Workbooks.Add
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Статистика_по_Pricall.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Windows("Статистика_по_Pricall.xlsm").Activate

Application.DisplayAlerts = False
Workbooks("Статистика_по_Pricall.xlsm").Save
Application.DisplayAlerts = False

ChDir ThisWorkbook.Path
Workbooks.Open ThisWorkbook.Path & "\Статистика_по_Pricall.xlsx"
Application.DisplayAlerts = False
Sheets("статистика").Copy Before:=Workbooks("Статистика_по_Pricall.xlsx").Sheets(1)
Workbooks("Статистика_по_Pricall.xlsx").Save

Application.DisplayAlerts = False
Set OutlookApp = CreateObject("Outlook.Application")
Set SM = OutlookApp.CreateItem(olMailItem)
SM.To = "ivan.ivanov@mlt.tj;"
SM.Subject = "Статистика по Pricall"
SM.Body = "" + Chr(13) + Chr(10) + "________________________________________" + Chr(13) + Chr(10) + "С уважением," + Chr(13) + Chr(10) + "Сидоров" + Chr(13) + Chr(10) + "инженер"
SM.Attachments.Add ThisWorkbook.Path & "\Статистика_по_Pricall.xlsx"
On Error Resume Next
SM.Send
Set SM = Nothing
Set OutlookApp = Nothing

Workbooks("Статистика_по_Pricall.xlsx").Close

Kill ThisWorkbook.Path & "\Статистика_по_Pricall.xlsx"

Application.Quit
End Sub
...
Рейтинг: 0 / 0
01.02.2012, 16:28
| Ответить | Цитировать | Написать  
Помощь с макросом
    #37642289
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: hum_i
> модуль Connection2. Нужно чтобы он тоже запускался. Как это можно добавить в этом коде? Подскажите пожалуйста.

Ну добавь после запуска первого модуля, запуск второго

Код: vbnet
1.
2.
Run "Connection"
Run "Connection2"


или внутри модуля вызываемая процедура называется тоже Connection? Если так, то переименуй её на Connection2

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
01.02.2012, 16:59
| Ответить | Цитировать | Написать  
Помощь с макросом
    #37644375
hum_i
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hum_i
Участник
Не работает(

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
Private Sub Workbook_Open()
Run "Connection"
Run "Connection2"

Application.DisplayAlerts = False

Workbooks.Open ThisWorkbook.Path & "\Статистика_по_Pricall_NEW_v.xlsx"
Application.DisplayAlerts = False

Windows("Статистика_по_Pricall_NEW_v.xlsm").Activate

Sheets("статистика").Copy Before:=Workbooks("Статистика_по_Pricall_NEW_v.xlsx").Sheets(1)
Sheets("статистика2").Copy Before:=Workbooks("Статистика_по_Pricall_NEW_v.xlsx").Sheets(2)
Workbooks("Статистика_по_Pricall_NEW_v.xlsx").Save

Application.DisplayAlerts = False
Set OutlookApp = CreateObject("Outlook.Application")
Set SM = OutlookApp.CreateItem(olMailItem)
SM.To = "ivan.ivanov@mlt.tj;"
SM.Subject = "Статистика по Pricall"
SM.Body = "" + Chr(13) + Chr(10) + "________________________________________" + Chr(13) + Chr(10) + "С уважением," + Chr(13) + Chr(10) + "Сидоров" + Chr(13) + Chr(10) + "инженер"
SM.Attachments.Add ThisWorkbook.Path & "\Статистика_по_Pricall.xlsx"
On Error Resume Next
SM.Send
Set SM = Nothing
Set OutlookApp = Nothing

Workbooks("Статистика_по_Pricall_NEW_v.xlsx").Close

Kill ThisWorkbook.Path & "\Статистика_по_Pricall_NEW_v.xlsx"

Application.Quit
End Sub
...
Рейтинг: 0 / 0
02.02.2012, 17:00
| Ответить | Цитировать | Написать  
Помощь с макросом
    #37644497
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: hum_i
> Не работает(

Не работает ЧТО? Если не делает то что хотелось, то в приведенном коде нет ничего криминального. А в неприведенном коде
Connection и Connection2 - х.з.

И это зачем? Думаешь с первого раза ексел не понимает?
> Application.DisplayAlerts = False
> Application.DisplayAlerts = False
> Application.DisplayAlerts = False

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
02.02.2012, 17:37
| Ответить | Цитировать | Написать  
Помощь с макросом
    #37644508
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
Игорь Горбонос> Автор: hum_i
> Не работает(

Не работает ЧТО? Если не делает то что хотелось, то в приведенном коде нет ничего криминального. А в неприведенном коде
Connection и Connection2 - х.з.

И это зачем? Думаешь с первого раза ексел не понимает?
> Application.DisplayAlerts = False
> Application.DisplayAlerts = False
> Application.DisplayAlerts = False

кроме того, что их три, ещё и включить забыл обратно

PS привет :)
...
Рейтинг: 0 / 0
02.02.2012, 17:43
| Ответить | Цитировать | Написать  
Помощь с макросом
    #37645112
hum_i
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hum_i
Участник
Да я сразу не написала. В общем не работает.
Код: vbnet
1.
Run "Connection2"


Все остальное выполняется. Может его в другом месте нужно ставить?
...
Рейтинг: 0 / 0
03.02.2012, 08:13
| Ответить | Цитировать | Написать  
Помощь с макросом
    #37645138
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
В чем заключается "не работает"? Ошибка есть? Приведите текст.
...
Рейтинг: 0 / 0
03.02.2012, 09:04
| Ответить | Цитировать | Написать  
Помощь с макросом
    #37645164
hum_i
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hum_i
Участник
Ошибку не дает просто при запуске он не выполняет второй модуль. Выполняет только первый и отправляет файл на почту.
...
Рейтинг: 0 / 0
03.02.2012, 09:40
| Ответить | Цитировать | Написать  
Помощь с макросом
    #37645245
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
hum_i,

поставьте на этой строке точку останова и пошагово проследите выполнение
...
Рейтинг: 0 / 0
03.02.2012, 10:30
| Ответить | Цитировать | Написать  
Помощь с макросом
    #37645649
hum_i
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hum_i
Участник
А если Run заменить на функцию Call ?
...
Рейтинг: 0 / 0
03.02.2012, 13:27
| Ответить | Цитировать | Написать  
Помощь с макросом
    #37649773
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
hum_iА если Run заменить на функцию Call ?а если попробовать?
...
Рейтинг: 0 / 0
07.02.2012, 10:49
| Ответить | Цитировать | Написать  
Помощь с макросом
    #37649775
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
hum_iОшибку не дает просто при запуске он не выполняет второй модуль. Выполняет только первый и отправляет файл на почту.закомментите On Error Resume Nextи будет ваша ошибка видна
...
Рейтинг: 0 / 0
07.02.2012, 10:50
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Помощь с макросом
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=110&tid=2176046]:
 0ms
get settings:
 9ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 54ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 60ms
get tp. blocked users:
 2ms
others: 257ms
total:  427ms
созд. / загр.: 427ms
x
x
Закрыть


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