小编evo*_*ndy的帖子

我正在尝试从excel生成电子邮件,但想要添加到电子邮件正文文本的超链接.我希望超链接显示为文本而不是文件路径.

我该怎么做呢？

我使用以下代码.

    strBody = "Hello " & Range("QuoteFirstName").Value & "," & _
       vbNewLine & _
       vbNewLine & _
           "It was good to speak with you earlier today/yesterday." & _
       vbNewLine & _
       vbNewLine & _
           "[Any personal message]" & _
       vbNewLine & _
       vbNewLine


On Error Resume Next
With OutMail
    .To = StrTo
    .CC = ""
    .BCC = ""
    .Subject = StrSubject
    .Body = StrBody
    .Attachments.Add FileNamePDF
    If Send = True Then
        .Send
    Else
        .Display
    End If
End With …

有没有办法进行全局错误处理？

我可以在工作簿代码中放入一些代码来捕获所有模块中发生的任何错误吗？

我可以在每个模块中放置相同的错误处理程序,但我正在寻找更通用的东西.

我问,因为我有工作表名称存储为这样的全局变量Sheets(QuoteName).如果存在错误,则这些全局变量将丢失.我有一个宏将重命名全局变量,但我把它放在内Workbook_BeforeSave.

我希望它转到全局错误处理程序并重命名全局变量,如果我得到一个下标超出范围错误Sheets(QuoteName)

我在工作表中有两个宏.第一个检查某些单元是否被寻址并且具有某些值然后运行另一个宏.以下代码用于此:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("K10:K1000")) Is Nothing And Target.Value = "Trapezoidal       roof 0.6mm and above" Or Target.Value = "LightBox ballasted" Then

Application.ScreenUpdating = False

Call PPAPricePerkWp

End If

End Sub

这样就可以了.

单击按钮时会运行第二个宏.此宏将单元格/行复制并粘贴到电子表格的其他部分.

当宏运行时,我得到错误,Runtime error 7 - out of memory并在上面的代码中断.

有没有其他方法可以检查某列中的单元格是否已被寻址并具有某些值,并且不会导致上述错误？