Question

我希望设置一个宏来保存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

Answer 1

fName需要连接到路径的末尾，PublishObject应该是PublishObjects：

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

将Excel工作表另存为包含当前日期的HTML

1 个答案: