-5

友人の助けを借りて、Facebookから公開会社情報をXMLで出力するローカルphpページの構築に取り組んでいます。そのページにウェブクロールし、Excelのワークブックに情報をダウンロードするVBAマクロを作成します。ただし、会社名の入力はスプレッドシートのセルからである必要があり、PHPファイルに直接書き込む以外に、これをGraphAPIに送信するリクエストに渡す方法がわかりません。VBAにスプレッドシートセル（A1 = Hiltonなど）からPHPに値を渡して、ハードコードされた会社名を置き換えて、これをどの会社でも使用できるようにするにはどうすればよいですか？

要件の明確化：

  1. VBAはセルA1から会社名を読み取ります
  2. VBAは会社名を変数としてPHPに送信します
  3. VBAから送信された会社名を使用したGraphAPIへのPHP投稿
  4. VBAマクロはローカルのPHPページをクロールし、XML出力をブックにダウンロードします
4

1 に答える 1

1

以下で作成したようなVBAマクロを使用できます。私の例では、ボタンクリックに関連付けられたマクロを作成しました

Sub Button1_Click()
    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
   URL = "http://www.yourdomain.com/page.php?variable=" & ActiveWorkbook.Worksheets(1).Range("A1").Value
   objHTTP.Open "GET", URL, False
   objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
   objHTTP.send ("")


End Sub

サーバー上のPHPスクリプトは次のようになります

<?php

$excelCellA1Value = $_GET["variable"];

//Work magic here such as posting to Facebook API

//TO DO: Profit!


?>
于 2013-02-27T03:11:34.250 に答える