将Excel作为网页发布

2019-09-12 02:19:10 207 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

weixin_38118043 墨衍会员 · AI 创作全网分发关注 + 加入社区

影刀RPA结合Excel实现微信视频号智能排期发布系统本文详细介绍了如何利用影刀RPA结合Excel表格，构建一套微信视频号智能排期发布系统。该系统通过Excel集中管理视频内容与发布时间，由影刀RPA实现批量自动上传与定时发布，将运营人员从重复的手动操作中解放出来，显著提升内容发布效率与规划能力。阅读详情

我尝试使用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

...全文