excel vba输入框

Question

我有以下用于 excel vba 的代码，它将通过电子邮件发送我工作表中的一系列地址。但是，我希望可以使用输入框来确定我想通过电子邮件发送的范围。我遇到的麻烦是让输入成为函数 mailid 理解的值。有什么建议么？

Sub EmailActiveSheetWithOutlook2()

Dim oApp, oMail As Object, _
tWB, cWB As Workbook, _
FileName, FilePath As String

Application.ScreenUpdating = False

'Set email id here, it may be a range in case you have email id on your worksheet

 Sheets("Sheet1").Select
 mailId = Range("b4:b5").Value


'Write your email message body here , add more lines using & vbLf _ at the end of each line

Body = "Hello, it appears you have not yet filled out the transportation contact information excel sheet. This sheet was emailed to you, please complete this and send to me  saved as your firstnamelastname.xls at your earliest convience." & vbLf _
& vbLf _
& "Thanks & Regards" & vbLf _
& vbLf _
& "-Ryan " & vbLf _

'通过 Outlook 发送电子邮件

Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.CreateItem(0)
With oMail
    .To = mailid
    .Subject = "Transportation Committee Notice"
    .Body = Body
    '.Attachments.Add tWB.FullName
    .send
End With


End Sub

Answer 1

要复制当前代码使用的效果

mailid = Application.InputBox(Prompt:="Select Range", Type:=8)

其中Type:=8 指定返回类型Range。这会将所选范围的Value 属性返回到mailid

交替使用

Dim rng as Range
Set rng = Application.InputBox(Prompt:="Select Range", Type:=8)
mailid = rng.Value

rng 然后设置为选定的范围，并且可以在使用前进行验证

请注意，您应该添加错误处理来解决，例如用户取消输入框

在发出InputBox 之前不要设置Application.ScreenUpdating = False，因为这会阻止用户与屏幕交互。

顺便说一句，您的代码错误地使用了Dim：Dim'ing 没有As 子句的变量将其声明为`Variant。
例如

Dim oApp, oMail As Object

实际上将oApp 声明为Variant，使用

Dim oApp As Object, oMail As Object