Date 使用当前日期将Excel工作表另存为HTML

我期待着建立一个宏保存6个不同的工作表作为个人的HTML文件每天与当前日期。我可以找到保存为当前日期的代码和保存为HTML的代码，但我不知道如何使它们一起工作。我的6张工作表中的第一张名为Admin。谢谢你对我学习这本书的帮助

以下是我当前正在尝试并获得错误的代码：

Sub SaveAsHTML()
'
' SaveAsHTML Macro
'
' Keyboard Shortcut: Ctrl+h
'
  Dim newFile As String, fName As String
    fName = Range("A1").Value
    newFile = fName & " " & Format$(Date, "mmddyy") & ".htm"
    With ActiveWorkbook.PublishObject.Add(xlSourcePrintArea, _
        "J:\Service Technology\Daily Stats\CSC Daily Report\Archive\Admin\fname" _
        , "Admin", "", xlHtmlStatic, "CSCDailyReport_29344", "")
        .Publish (True)
        .AutoRepublish = False
    End With
End Sub

---

fName

需要连接到路径的末尾，并且

PublishObject

应该是

PublishObjects

：

...
    With ActiveWorkbook.PublishObjects.Add(xlSourcePrintArea, _
    "J:\Service Technology\Daily Stats\CSC Daily Report\Archive\Admin\" & fName _
...

---

我做了改变。我遇到运行时错误“438”对象不支持此属性或方法。它突出显示了“J:\Service Technology\Daily Stats\CSC Daily Report\Archive\Admin\”和fName、“Admin”、“xlHtmlStatic”、“CSCDailReport\U 29344”部分。@Rich Answer修订版，

PublishObjects

是您使用的

Add

方法的集合。