Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Помощь с макросом / 12 сообщений из 12, страница 1 из 1
01.02.2012, 16:28
    #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:59
    #37642289
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помощь с макросом
> Автор: hum_i
> модуль Connection2. Нужно чтобы он тоже запускался. Как это можно добавить в этом коде? Подскажите пожалуйста.

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

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


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

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

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

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

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

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


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

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


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