小编ksc*_*ndl的帖子

使用Ron de Bruin 的RangeToHTML函数,我将一个范围粘贴到Outlook电子邮件中.但是,似乎正在将一个额外的空白行粘贴到电子邮件中,如下所示:

我已经确认该Source:=TempWB.Sheets(1).UsedRange.Address行正确地只抓取数据本身而不是额外的行.我也确认输入范围RangetoHTML()也是正确的.我唯一的猜测是该.ReadAll方法以某种方式在文件中添加了一行,但我不知道如何调试它.这是RangetoHTML我正在使用的功能,以便于参考:

Function RangetoHTML(rng As Range)
' By Ron de Bruin.
Dim fso As Object
Dim ts As Object
Dim TempFile As String
Dim TempWB As Workbook

Application.ScreenUpdating = False
Application.EnableEvents = False

TempFile = Environ$("temp") & "/" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"

'Copy the range and create a new workbook to past the data in
If rng Is Nothing Then GoTo Skip

rng.Copy
Set TempWB …