捕获不同工作表上的字段中的数据

时间:2016-03-21 19:46:25

标签: excel excel-vba vba

我目前正在尝试将表单中的名称添加到Outlook上的电子邮件中。但是,我只能从一个成功运作的工作表中捕获:

 .Subject = "New Form Name: - " & Worksheets("Form1").Range("C50")

但是我希望代码能够检查是否填写了另一个字段中的另一个工作表,并使用其中包含数据的工作表。

我试过这个(使用Or),但没有运气:

.Subject = "New Form Name - " & Worksheets("Form1").Range("C50") Or Worksheets("Form2").Range("A25") Or Worksheets("Form3").Range("B19")

以上内容不会在电子邮件的主题行中生成任何内容。

有没有办法让它显示哪个工作表中有数据并捕获它。

任何帮助都会很棒!

1 个答案:

答案 0 :(得分:0)

假设您要检查您编写的订单,请使用此选项:

Dim sName as String

sName = Worksheets("Form1").Range("C50") 
If sName = "" Then sName = Worksheets("Form2").Range("A25")
If sName = "" Then sName = Worksheets("Form3").Range("B19")

.Subject = "New Form Name - " & sName 

如果这三个人都没有名字并且按照特定顺序查看,则会显示sName的空白,但这足以满足您的确切需求。