选择区域发邮件有时候出错

tommysailing

其实用的是RangeToHTML(rng As Range)这样一个标准的从网上下载下来的函数，把选择区域表格转换成HTML然后再发邮件出去。但是有些情况下很奇怪会出错（比如加了一句无关紧要的语句，哪怕删除这个语句复原成之前的样子也是同样出错），提示错在RangeToHTML(rng As Range)函数的这个位置，而且会生成一个新的Excel文档，其中文档的内容就是选择的区域：
    With TempWB.PublishObjects.Add( _
         SourceType:=xlSourceRange, _
         Filename:=TempFile, _
         Sheet:=TempWB.Sheets(1).Name, _
         Source:=TempWB.Sheets(1).UsedRange.Address, _
         HtmlType:=xlHtmlStatic)
        .Publish (True)
    End With


源代码请看附件：
谢谢！

tommysailing

我知道问题根源了，给其他有同样问题的人参考一下：
这个问题是由于选择了“R1C1引用样式”造成的，但是如果真的想用R1C1引用样式的话（有些时候看这个列数字很方便），该如何解决？