Взял вот этот макрос, работает отлично http://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=8&TID=20975 ,только прошу помощи в переделке этого пункта:

Dim TempFilePath As String
TempFilePath = "C:\Windows\Temp\" & ActiveWorkbook.Name & ".xls"
ActiveWorkbook.SaveCopyAs (TempFilePath)

Хотелось бы чтобы отправлялся активный лист, а не активная книга, заранее благодарен.

Добрый день, прошу помощи в следующем вопросе....

Нашел макрос отправки сообщений через Gmail, прекрасно работает... но не удается методом тыка вставить в него часть кода, которая бы прикрепляла активную рабочую книгу/лист.

PS в качестве опционала, если не сложно, подскажите как прикрутить строчку кода, которая название письма брала бы из ячейки на активном листе, а тело письма из 2 не смежных других ячеек. Буду признателен, спасибо.

Макрос

Скрытый текст

Private Sub CommandButton1_Click() Dim iMsg As Object Dim iConf As Object Dim strbody As String Dim Flds As Variant Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") iConf.Load -1 Set Flds = iConf.Fields With Flds .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "@gmail.com" .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "пароль" .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 .Update End With strbody = "Поздравляем!!!! Ваше письмо успешно отправлено !!!!" With iMsg Set .Configuration = iConf .To = "" .CC = "" .BCC = "" .From = """ВашеИмя"" <Reply@something.nl>" .Subject = "Попытка отправить письмо с помощью CDO" .TextBody = strbody .Send MsgBox "Отправлено!" End With End Sub

Часть кода которую хотелось бы прикрутить:

Скрытый текст
ThisWorkbook.Sheets("test").Copy ActiveWorkbook.SaveAs "c:\test.xls" ' Сохраняем активный лист ActiveWorkbook.Close False attach$ = "c:\test.xls"

Прошу прощения, на этом сайте достаточно информации по этой теме, вот одно из ни...
http://planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=57975&TITLE_SEO=57975-makros-rass...
http://excelvba.ru/code/cdo

Все готово) ушло около недели, несмотря на новые хотелки). Джонни рекомендую, все с делал в лучшем виде.

Решил работать с Johny, за пару дней сделал почти рабочий макет для демонстрации, получилось хорошо, решили, что делаем дальше)

Привет Планета!
https://samruk.bitrix24.ru/~X5MDN - скачать (пример куда нужно парсить объявления)
Прошу помощи в решении следующего вопроса.

Необходимо проделывать парсинг сайта тендеров: http://tender.sk.kz/index.php/ru/negs/show/202192 и загружать информацию в эксель в специально подготовленную форму.
____________________________________________________________­__________________________________
1. инфо для парсинга, это внешняя часть объявления, ее нужно парсить в первые столбцы таблицы exel (пример во вложении) :

Скрытый текст
№ Наименование заказчика Наименование закупки Метод закупки Дата начала Дата окончания Статус 202174 Западно-Казахстанский областной филиал АО «Казпочта» Канцелярские товары ЦПП-Запрос ценовых предложений на понижение 18-09-2015 28-09-2015 Прием заявок открыт

2. Далее парсер должен перейти по номеру объявления или наименованию закупки и спарсить содержимое лотов в таком же формате.

Скрытый текст

№ Наименование Описание Количество Цена за единицу без НДС в тенге Сумма Место поставки Cроки и график поставки товаров, выполнения работ, оказания услуг Условия оплаты (размер авансового платежа), % 1 Папка / Папка Папка пластиковая 40 вкладышей / Папка пластиковая 40 вкладышей 300 348,00 104 463,00 Западно-Казахстанская область поставка товаров в течение 15  рабочих  дней с момента (даты) подписания договора 0 2 Ножницы / Ножницы ножницы для работы одной рукой / ножницы для работы одной рукой 160 210,00 33 617,00 Западно-Казахстанская область поставка товаров в течение 15  рабочих  дней с момента (даты) подписания договора 0 3 регистр / регистр Регистратор из картона или бумаги, под формат А4 / Регистратор из картона или бумаги, под формат А4 150 369,00 55 411,00 Западно-Казахстанская область поставка товаров в течение 60  календарных дней с момента (даты) подписания договора 0

3. Выдать информацию в таком виде, в каком она представлена здесь(1 лист): https://samruk.bitrix24.ru/~X5MDN - скачать (пример куда нужно парсить объявления).

4. Так как номер объявления возрастает, желательно иметь возможность остановить парсер на определенном номере объявления, тоесть, если я буду парсить каждый день сбор должен оканчиваться до того номера (пример: 202174) на котором я остановился вчера, а лучше, чтобы была возможность в ручную указывать каждый раз номер объявления до которого необходимо сделать парсинг.

5. Предполагается замена файла каждый день, чтобы не перегружать exel.