小编Dav*_*ey 的帖子

我写了一个宏,只需点击一下按钮就可以通过Outlook发送自动发送的电子邮件.一切都运行顺利,除了我无法弄清楚如何将文件附加到电子邮件.在我看过的每个地方,将文件附加到电子邮件的示例代码都是针对静态命名文件的,例如,您发送的文件名相同,每次都使用相同的路径.

如果它更方便,运行此宏的按钮位于我正在尝试附加的工作簿中.我不确定打开Windows资源管理器窗口是否最简单,并且以这种方式附加文件是最好的.

Sub mySub
    Dim objOutlook As Outlook.Application
    Dim objOutlookMsg As Outlook.MailItem
    Dim objOutlookRecip As Outlook.recipient
    Dim objOutlookAttach As Outlook.Attachment
    Dim WeekendingDate As Date

    With Worksheets("Macro Buttons")
        WeekendingDate = Range("N2").Value
    End With

    Set objOutlook = CreateObject("Outlook.Application")

    Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

    With objOutlookMsg
        Set objOutlookRecip = .Recipients.Add("blah@blah")
        objOutlookRecip.Type = olTo
       .Subject = "Blah " & WeekendingDate
       .Body = "blah blah blah"

       'Add attachments to the message
       [some code]


       For Each objOutlookRecip In .Recipients
           objOutlookRecip.Resolve
       Next
       If DisplayMsg Then
           .Display
       Else
           .Save …

我需要一些帮助在excel中的列中拖动一个字符串("Decliners").如果我知道哪个单元格是我的起点,我知道如何做到这一点,但我首先要找到数据集中的第一个空白行.
一旦我找到了我的第一个空白行,我需要从C3列中拖出我的字符串.
此字符串仅向下拖动一列.鉴于它是动态的,我也不知道这个数据集的范围.

基本上我只需要重新创建双击单元格右下角的操作,并将"Decliners"一词填充到数据集的底部.

用于选择工作表中第一个空白单元格的代码:

Dim Pastesheet As Worksheet
Dim Decliners As String
Decliners = "Decliners"

Set Pastesheet = Worksheets("Ent Gainers_Decliners")
Pastesheet.Range("C3").End(xlDown).Offset(1, 0).Select
'Where I need the word "Decliners" dragged down from the cell selected