Simpe VBA sub：函数启动错误，但不是之后

我有一个简单的function来select一个固定的范围，并准备电子邮件，这工作…但只有在第二次运行function后。 这个问题在我打开Excel电子表格后立即发生，然后我会“结束”脚本并重新运行它，然后就像魅力一样。

非常感谢您的帮助，非常想了解错误发生的原因。

错误： 运行时错误1004：工作表类的select方法失败。

在debugging时，“.Parent.Select”这一行然后从下面的脚本中突出显示。

Sub Select_Range_now() Dim Sendrng As Range Dim EndOfLine As Integer EndOfLine = Find_First() - 1 Set Sendrng = Worksheets("Output").Range("B1:I" & EndOfLine) ActiveWorkbook.EnvelopeVisible = True With Sendrng .Parent.Select .Select With .Parent.MailEnvelope With .Item .SentOnBehalfOfName = "[e-mail]" .To = "[e-mail]" .CC = "" .Subject = "Report" End With End With End With End Sub 

编辑：新发现：

当点击“邮件收件人”选项，我得到这个msgbox： msgbox对话框

电子邮件：您可以将整个工作簿作为电子邮件的附件发送，也可以将当前工作表作为电子邮件的正文发送。

• 作为附件发送整个工作簿
• 发送当前工作表作为邮件正文

再次单击该button将不会再次提示，脚本立即工作。 我猜测，第一次运行时似乎无法处理这个对话框，或者什么！

如果有人需要知道Find_First（）函数是什么，那么它就是用来查找ENDOFLINE文本的，所以我可以计算出我的select范围：

 Function Find_First() As String Dim FindString As String Dim Rng As Range FindString = "ENDOFLINE" With Sheets("Output").Range("A:I") Set Rng = .Find(What:=FindString, _ After:=.Cells(.Cells.Count), _ LookIn:=xlValues, _ LookAt:=xlWhole, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False) If Not Rng Is Nothing Then 'Application.Goto Rng, True 'MsgBox "row number: " & Rng.Row Find_First = Rng.Row Else 'MsgBox "Nothing found" End If End With End Function 

Answer 1

这应该做你正在寻找的东西。

根据我在几个星期前在SuperUser做出的答案修改了一下 ，Ron de Bruin给我添加了一些信息，其中一些代码在下面的RangeToHTML()函数中进行了修改。

 Sub PublishObjectFromFilteredRange() 'An example of applying autofilter to sheet ' and setting range variable = to the autofiltered cells/visible cells Dim ws As Worksheet Dim pObj As PublishObject Dim sndRange As Range Dim OutApp As Object Dim outmail As Object 'mail item Set ws = Sheets("Sheet1") Set sndRange = ActiveWorkbook.Sheets(1).Range("D7:G10") '<--- Modify this line to use your sendRange 'Create & publish the PublishObject ' Change the Filename to a location that works for you... Set pObj = ActiveWorkbook.PublishObjects.Add( _ SourceType:=xlSourceRange, _ Filename:="C:\Users\david_zemens\Desktop\publish.htm", _ Sheet:="Sheet1", _ Source:=sndRange.Address, _ HtmlType:=xlHtmlStatic) pObj.Publish True 'Create an instance of Outlook to send the email: Set OutApp = CreateObject("Outlook.Application") Set outmail = OutApp.CreateItem(0) With outmail .SentOnBehalfOfName = "Me!" .To = "email@address" .CC = "someoneelse@address" .Subject = "Report" .HTMLBody = RangetoHTML(sndRange) .Send 'Or use .Display to show the message. End With OutApp.Quit End Sub Function RangetoHTML(rng As Range) ' Changed by Ron de Bruin 28-Oct-2006 ' Working in Office 2000-2010 Dim fso As Object Dim ts As Object Dim TempFile As String Dim TempWB As Workbook 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 rng.Copy Set TempWB = Workbooks.Add(1) With TempWB.Sheets(1) .Cells(1).PasteSpecial Paste:=8 .Cells(1).PasteSpecial xlPasteValues, , False, False .Cells(1).PasteSpecial xlPasteFormats, , False, False .Cells(1).Select Application.CutCopyMode = False On Error Resume Next .DrawingObjects.Visible = True .DrawingObjects.Delete On Error GoTo 0 End With 'Publish the sheet to a htm file 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 'Read all data from the htm file into RangetoHTML Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2) RangetoHTML = ts.readall ts.Close RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", _ "align=left x:publishsource=") 'Close TempWB TempWB.Close savechanges:=False 'Delete the htm file we used in this function Kill TempFile Set ts = Nothing Set fso = Nothing Set TempWB = Nothing End Function 

Answer 2

尝试

 Sub Select_Range_now() .... Set Sendrng = ActiveWorkbook.WorkSheets("Output").Range("B1:I" & EndOfLine) .... End Sub 

和

 Function Find_First() As String .... With ActiveWorkbook.Sheets("Output").Range("A:I") .... End Sub 

如果您从Excel以外的应用程序运行这些函数，强烈build议您在ActiveWorkbook添加引用您的Excel实例的variables（ AppExcel.ActiveWorkbook... ），否则，如果Excel的第二个实例为打开。

抱歉，我目前无法解决您的问题的第二部分。