Невозможно взять значения из личной формы пользователя и сослаться на них в макросе, чтобы сохранить как и / или по электронной почте

Question

Я создал Персональную пользовательскую форму (называемую «Форма действия») , которую я надеялся отправить по электронной почте / сохранить в зависимости от нажатой кнопки.Я думал, что «сохранить» будет более простым подходом, поэтому я начал с этого.Основываясь на 3 значениях в форме: «Имя», «Путь» и «Тип», я хотел иметь возможность нажать кнопку «Сохранить как» и использовать ее для изменения типа файла, имени файла и места назначения для сохранения, еслиНужно быть.

Мне удалось переименовать файл и изменить место назначения, но мне не повезло с изменением типа файла.Я заметил несколько решений, которые предлагали возможность изменить файл на один определенный тип (например, CSV), но я хотел бы иметь свободу выбора из выпадающего списка на моей форме.

OptionButton3 ссылается на кнопку выбора, которая спрашивает, должна ли сохраненный файл иметь текущую дату, прикрепленную к имени.

Sub UserForm_Initialize()
'Create default value for File Name
FileNameEntry.Text = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1)
'Create dropdown list for FileType
    With FileTypeEntry
    .AddItem "jpg"
    .AddItem "xls"
    .AddItem "xlsm"
    End With
    'Default value for dropdown list
    FileTypeEntry.Text = "xls"

'Create default value for Date Time Stamp Option Buttons
    OptionButton3.Value = True

'Create default value for File Path
    FilePathEntry.Text = ActiveWorkbook.Path

'Save Function
Sub SaveFile()
If OptionButton3.Value = True Then
ActiveWorkbook.SaveAs (FileName:=ActionForm.FilePathEntry.Text & Action.FileNameEntry.Text & Format(Now(), "YYYYMMDD") & ActionForm.FileTypeEntry.Text, FileFormat:=ActionForm.FileTypeEntry.Text)
End Sub