0

我有一个非常小的数据库（100-200 行）需要处理的数据。K 列是有效期。我想标记任何已过期或已过期两周的日期。标记该单元格后，我想将数据从我编写的代码中提取到 TextBody 中，以向 myslef 发送电子邮件以通知我到期以及与到期相关的数据。

    Set objMessage = CreateObject("CDO.Message")
    objMessage.Subject = "Clumpy Milk Ahead"
    objMessage.From = """Expired Milk"" <omg@lol.com>"
    objMessage.To = "lol@lol.com"
    objMessage.TextBody = "Place pulled data here"

最终我需要一个看起来像这样的消息......

set Referencing_Expiration_Cell As RFC

  Brand: (RFC col A) 
  Type: (RFC col d) 
  Shipment: (RFC col E) 
  Distributor: (RFC col F)
  Pickup Driver: (RFC col H)
  Employee: (RFC col I)
  Expiration Date: (RFC col K)

此代码将放置在每天运行的按钮上。因此脚本不需要自动化。对此的任何帮助将不胜感激。我一直在研究一些不同的代码字符串，但我一生都无法弄清楚我的想法，以便一切顺利进行。

提前感谢您提供任何信息/帮助！

4

1 回答 1

0

我假设您的问题是询问如何连续提取值以在 VBA 中使用。以下代码将一次检索一行的值。它假设您的数据从 A2 开始并且至少有 2 行数据

Sub Macro1()

Dim endCell, currentCell As range
Set currentCell = Worksheets("Sheet1").range("A2")
Set endCell = currentCell.End(xlDown)

Do

     brand = currentCell.Value
     myType = currentCell.Offset(0, 3).Value 'Offset moves a column over to B in this case
     shipment = currentCell.Offset(0, 4).Value
     distributer = currentCell.Offset(0, 5).Value
     driver = currentCell.Offset(0, 6).Value
     employee = currentCell.Offset(0, 7).Value
     ExpireDate = currentCell.Offset(0, 9).Value

     If ExpireDate < Today() + 14

        'Do Stuff here

     End If

    Set currentCell = currentCell.Offset(1, 0) 'Offset moves to the next row down in this case

Loop Until currentCell = endCell.Offset(1, 0)
End Sub
于 2013-10-17T16:50:54.047 回答