Обратиться к впадающему списку

[Exo]

Привет всем! подскажите как обратиться к выпадающему списку через код VBA? с ячейкой все понятно [T33].Value а как мне "зацепить" Васю Пупкина (см. скрин)

З.Ы. у меня задача. Человек выбирает себя из списка, заполняет отчет затрат, запускает макрос (отправить отчет) и макрос по имени выбранного человека ищит на скрытом листе мыло начальника (таблица «человек»-«начальник») и отправляет отчет .
У меня все готово, нужно только понять как «зацепить» выбранное имя. Подскажите…
Заранее спасибо!

[EducatedFool]

Переходите в режим конструктора (панель инструментов ЭЛЕМЕНТЫ УПРАВЛЕНИЯ), и выделяете мышкой нужный Вам элемент управления ComboBox (то, что Вы назваете выпадающим списком)

В строке формул (слева, там где находится поле для отображения имён объектов) Вы увидите название этого комбобокса - например, ComboBox1

Теперь можете вывести его содержимое на экран при помощи кода
MsgBox Worksheets("Лист1").ComboBox1.Value

Или сделать так, чтобы при изменении значения в комбобоксе производилось какое-либо действие. Для этого (оставаясь в режиме конструктора) щелкните правой кнопкой на комбобоксе, и выберите пункт ИСХОДНЫЙ ТЕКСТ.
Увидите примерно вот что:

Private Sub ComboBox1_Change()

End Sub


Ну а далее вписывайте в этот обработчик любой код, например, такой:

Private Sub ComboBox1_Change()
MsgBox "Новое значение выпадающего списка - " & Me.ComboBox1.Value
End Sub

[IgorGO]

А если Вася Пупкин выберет из списка Федю Шнопсельмана и отправит вместо него заведомо неверный отчет? Начальник станет Федю нагибать по всякому, лишит его сладкого, квартальной премии и других удовольствий. Это не хорошо.
Если у вас домен и в него попадают только зарегистрированные пользователи, я бы имя текущего пользователя выбрал из Environ("username").

[Exo]

да спасибо все ок!
но встали еще несколько вопросов,

1. мне нужно создать директорию и сохранить активную книгу, я пишу:
MkDir ("C:\НОВАЯ_ПАПКА")
ActiveWorkbook.SaveCopyAs "C:\НОВАЯ_ПАПКА\Business Trip Report.XLS"

НО если такая директория уже есть - возвращается ошибка, как мне проверить есть ли директория которую я создаю...и если есть перейти сразу к сохранению, ну а если нет, создать и уже потом сохранить…

2. как в на этапе сохранения привязать к имени сохраняемого файла текущую дату?
Ну сегодня у нас 28.11.2008, я сохраняю свой отчет сегодня, следовательно мне нужно имя
Business Trip Report 28-11-08.XLS


3. как в коде
SM.Attachments.Add "указать активную книг”

[Exo]

Сообщение от IgorGO

А если Вася Пупкин выберет из списка Федю Шнопсельмана и отправит вместо него заведомо неверный отчет? Начальник станет Федю нагибать по всякому, лишит его сладкого, квартальной премии и других удовольствий. Это не хорошо.
Если у вас домен и в него попадают только зарегистрированные пользователи, я бы имя текущего пользователя выбрал из Environ("username").

я предлагал искать адрес начальника по юзеру, НО у нас так себе отношения с IT отделом и получить у них список всех пользователей не реально

[EducatedFool]

как мне проверить есть ли директория которую я создаю...и если есть перейти сразу к сохранению, ну а если нет, создать и уже потом сохранить…

Например, так:

Sub test()
    On Error Resume Next
    MkDir ("C:\НОВАЯ_ПАПКА")
    ActiveWorkbook.SaveCopyAs "C:\НОВАЯ_ПАПКА\Business Trip Report.XLS"
End Sub

Или так:

Sub test2()
    FolderPath = "C:\НОВАЯ_ПАПКА\"
    If Dir(FolderPath, vbDirectory) = "" Then MkDir FolderPath
    ActiveWorkbook.SaveCopyAs FolderPath & "Business Trip Report.XLS"
End Sub

[EducatedFool]

2. как в на этапе сохранения привязать к имени сохраняемого файла текущую дату?
Ну сегодня у нас 28.11.2008, я сохраняю свой отчет сегодня, следовательно мне нужно имя
Business Trip Report 28-11-08.XLS

Function Get_Date() As String: Get_Date = Replace(Replace(DateValue(Now), "/", "-"), ".", "-"): End Function
Function Get_Time() As String: Get_Time = Replace(TimeValue(Now), ":", "-"): End Function
Function Get_Now() As String: Get_Now = Get_Date & " at " & Get_Time: End Function


Sub test3()
    FolderPath = "C:\НОВАЯ_ПАПКА\": If Dir(FolderPath, vbDirectory) = "" Then MkDir FolderPath
    ActiveWorkbook.SaveCopyAs FolderPath & "Business Trip Report " & Get_Date & ".xls"
    ' или так: ActiveWorkbook.SaveCopyAs FolderPath & "Business Trip Report " & Get_Now & ".xls"
End Sub

3. как в коде
SM.Attachments.Add "указать активную книг”

Не понял вопроса... По какой код идёт речь?

[Exo]

классно, все работает!

Сообщение от EducatedFool

Не понял вопроса... По какой код идёт речь?

Set OutlookApp = CreateObject("Outlook.Application")
    Set SM = OutlookApp.CreateItem(olMailItem)  'Создаем объект

    SM.To = Boss                                ' электронный адрес Босса
    SM.Subject = "Report"                       'Заполнение поля "Тема"
    SM.Body = "Ля Ля Ля"                      'Заполнение поля "Сообщение"
    SM.Attachments.Add "C:\НОВАЯ_ПАПКА\Business Trip Report.XLS""       'Путь к прикрепляемому файлу

вот мне нужно что бы в строке

SM.Attachments.Add "C:\НОВАЯ_ПАПКА\Business Trip Report.XLS"

не явно адрес файла указывался, а указать как-то что прикреплять к письму нужно активную книгу

[EducatedFool]

вот мне нужно что бы в строке
SM.Attachments.Add "C:\НОВАЯ_ПАПКА\Business Trip Report.XLS"
не явно адрес файла указывался, а указать как-то что прикреплять к письму нужно активную книгу

SM.Attachments.Add activeworkbook.FullName

[Exo]

СПАСИБО! ВСЕ РАБИТ!