excel - Excel VBA 中的错误 70

Question

我正在尝试将图片/图表从 excel 直接上传到 Sharepoint 组 URL。这是脚本：

---

子导出图表JPG()

ActiveChart.Export 文件名：="http://sharepoint.ap.xxxxxxxxxxxxxx.com/xxxxxx/xxxxxxxxxxxxxx/Pictures/MyChart.jpg", _FilterName:="jpeg"

结束子

---

那可能吗？如果不是，那么您能建议另一种方法吗？谢谢

Answer 1

您只能导出到文件，不能导出到 URL。因此，您可以导出到磁盘上的临时文件，然后将该文件提交到您的 Web 服务器。您当然需要 Web 服务器能够接收文件。

等一下，从 URL 看，它是 SharePoint 服务器，是吗？大概是一个 SharePoint 文档库？在这种情况下，您需要编写一些代码来使用以下技术之一来上传文件：

• SharePoint 网络服务
• 网络视频
• FrontPage 扩展

如果您想在 VBA 中执行此操作，那么 MSXML3 库可能会很有用，因为它可以让您执行 HTTP 请求。

---

编辑：好的，根据您的评论，这里有一个简单的 VBScript 脚本可以帮助您入门。这将在已知位置打开一个 Excel 工作簿，并导出第一个图表工作表。

将此保存为“test.vbs”，然后双击它运行它（已创建合适的 Excel 文件等）。

Dim oExcel : Set oExcel = CreateObject("Excel.Application")

Dim oWorkbook : Set oWorkbook = oExcel.Workbooks.Open("C:\test.xls")

Dim oChart : Set oChart = oWorkbook.Charts(1)

oChart.Export "C:\chart.jpg", "JPEG"

oWorkbook.Close False

oExcel.Quit

正如我在评论中所说，VBScript 非常像 VBA，但缺点是没有强类型，所以你没有 Intellisense 等。在你有 Intellisense 的 VBA 中创建脚本可能更容易（和调试器等），然后将其“移植”到 VBScript。