Ошибка 70 в Excel VBA - PullRequest
0 голосов
/ 21 июля 2009

Я пытаюсь загрузить изображение или диаграмму из Excel в URL-адрес группы Sharepoint. Вот скрипт:


Sub ExportChartJPG ()

ActiveChart.Export Имя файла: = "http://sharepoint.ap.xxxxxxxxxxxxxx.com/xxxxxx/xxxxxxxxxxxxxx/Pictures/MyChart.jpg", _FilterName: =" jpeg "

End Sub


Это возможно? Если нет, то можете ли вы предложить другой способ сделать это? Спасибо

1 Ответ

0 голосов
/ 21 июля 2009

Вы можете экспортировать только в файл, а не в URL. Таким образом, вы можете экспортировать во временный файл на диске, а затем отправить файл на ваш веб-сервер. Конечно, вам понадобится веб-сервер, чтобы иметь возможность получать файлы.

Подождите, с URL, это сервер SharePoint, да? Предположительно библиотека документов SharePoint? В этом случае вам нужно написать некоторый код, чтобы использовать один из следующих методов для загрузки файла:

Если вы хотите сделать это в 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 и т. Д. Возможно, будет проще создать сценарий в VBA, где вы do имеет Intellisense (и отладчик и т. Д.), А затем "переносит" его на VBScript.

...