0

Excel から SharePoint グループの URL に画像/グラフを直接アップロードしようとしています。スクリプトは次のとおりです。

サブ ExportChartJPG()

ActiveChart.Export ファイル名:="http://sharepoint.ap.xxxxxxxxxxxxxx.com/xxxxxx/xxxxxxxxxxxxxx/Pictures/MyChart.jpg", _FilterName:="jpeg"

サブ終了

それは可能ですか？そうでない場合は、別の方法を提案できますか？ありがとう

4

1 に答える 1

0

ファイルにのみエクスポートでき、URL にはエクスポートできません。したがって、ディスク上の一時ファイルにエクスポートしてから、そのファイルを Web サーバーに送信できます。もちろん、ファイルを受信できるようにするには、Web サーバーが必要です。

ちょっと待って、URLから見ると、これはSharePointサーバーですよね？おそらく SharePoint ドキュメント ライブラリですか? その場合、次の手法のいずれかを使用してファイルをアップロードするコードを記述する必要があります。

これを VBA で実行する場合は、HTTP 要求を実行できる MSXML3 ライブラリが役立つ場合があります。

EDIT : OK、あなたのコメントに基づいて、ここにあなたが始めるための簡単な 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 に "移植" します。

于 2009-07-21T09:41:06.177 に答える