将Excel作为网页发布
我尝试使用VB脚本将Excel作为网页保存。我面临的问题是excel中的表名(例如Sheet1)也被保存在网页中。我不希望表格名称出现在网页中。
我发现的一个解决方案是,如果excel发布为网页(而不是保存为网页),那么它将不包含工作表名称。但我在使用VB脚本尝试时面临着一些问题。以下是代码:
Dim objApp, objBook, objRange, objSheet
Set objApp = CreateObject("Excel.Application")
objApp.Visible = False
Set objBook = objApp.Workbooks.Open("C:\Dashboard\excel_files\Account Executive.xlsx")
Set objSheet = objBook.worksheets("Account Executive")
Set objRange = objSheet.Range("C5:I30")
With objBook.PublishObjects.Add(xlSourceRange, "C:\EXCEL_TO_HTML_RANGE.htm", "Account Executive", objRange.Address, xlHtmlStatic, "Title of the page").Publish(True)
End With
objBook.Close
objApp.Quit
Set objSheet = Nothing
Set objRange = Nothing
Set objApp = Nothing
该代码给出了代码为800A03EC的未知运行时错误。 无论如何要纠正这些代码或其他方式从网页中删除工作表名称?
在此先感谢。 :)
由于@AxelRichter 与2010年Excel中的最后工作代码:
Dim objApp, objBook, objRange, objSheet
Set objApp = CreateObject("Excel.Application")
objApp.Visible = False
Set objBook = objApp.Workbooks.Open("C:\Dashboard\excel_files\OU Dashboard.xlsx")
Set objSheet = objBook.worksheets("OU Dashboard")
Set objRange = objSheet.Range("C5:J30")
Dim oPOs, oPO
Set oPOs = objBook.PublishObjects
Set oPO = oPOs.Add(4, "C:\Dashboard\EXCEL_TO_HTML_RANGE.htm", "OU Dashboard", "$C$5:$J$30", 0, "TableDIVID", "Title of the page")
oPO.Publish (True)
set oPO = Nothing
set oPOs = Nothing
Set objSheet = Nothing
Set objRange = Nothing
objBook.Close False
set objBook = Nothing
objApp.Quit
Set objApp = Nothing