将Excel数据导出到html页面时Excel挂起

使用下面的代码，我试图将excel数据导出到html页面，但excel挂起。请帮忙。第一个代码以前可以工作，但现在不行了。 我已经确保同一个工作表被激活，并且工作表中有11列216行的数据

Sub PublishOnWeb1()
Dim objPub As Excel.PublishObject
Set objPub = ThisWorkbook.PublishObjects.Add( _
SourceType:=xlSourceSheet, _
Filename:="C:\SLED\SLED_Time_Teams.htm", Sheet:="Teams", _
HtmlType:=xlHtmlStatic, Title:="SLED Time Teamwise")
objPub.Publish True
End Sub


Sub PublishOnWeb2()

 Dim rng As Range
 Sheets("Teams").Activate
 Set rng = Sheets("Teams").UsedRange
 file1 = "C:\SLED\SLED_Time_Teams.htm"

    With ActiveWorkbook.PublishObjects.Add(SourceType:=xlSourceRange, Filename:=file1, Sheet:=rng.Worksheet.Name, Source:=rng.Address, HtmlType:=xlHtmlStatic)
   .Publish (True)
    End With
    MsgBox "Done"
End Sub

工作表中有11列216行的数据

Sub PublishOnWeb1()
Dim objPub As Excel.PublishObject
Set objPub = ThisWorkbook.PublishObjects.Add( _
SourceType:=xlSourceSheet, _
Filename:="C:\SLED\SLED_Time_Teams.htm", Sheet:="Teams", _
HtmlType:=xlHtmlStatic, Title:="SLED Time Teamwise")
objPub.Publish True
End Sub


Sub PublishOnWeb2()

 Dim rng As Range
 Sheets("Teams").Activate
 Set rng = Sheets("Teams").UsedRange
 file1 = "C:\SLED\SLED_Time_Teams.htm"

    With ActiveWorkbook.PublishObjects.Add(SourceType:=xlSourceRange, Filename:=file1, Sheet:=rng.Worksheet.Name, Source:=rng.Address, HtmlType:=xlHtmlStatic)
   .Publish (True)
    End With
    MsgBox "Done"
End Sub

这对我很有用。

无需激活工作表。我没有使用

。激活/UsedRange

只是使用实际需要的东西。检查一下这对你是否有效？如果您的范围不同，那么我们可以稍后找到最后一行和最后一列，然后构造范围地址

Option Explicit

Sub Sample()
    Dim wb As Workbook
    Dim ws As String
    Dim rng As String
    Dim file As String

    Set wb = ThisWorkbook
    ws = "Teams"
    rng = "A1:K216"

    file = "C:\SLED\SLED_Time_Teams.htm"

    With wb.PublishObjects.Add(SourceType:=xlSourceRange, Filename:=file, _
                               Sheet:=ws, Source:=rng, HtmlType:=xlHtmlStatic)
        .Publish (True)
    End With

    MsgBox "Done"
End Sub

---

是的，我刚用其他电子表格检查过，效果很好。电子表格似乎有问题。这与打开或关闭自动发布有关吗？是，我将更改行。要查找最后一行/列，请参阅。