webのデータを取得する方法教えてください (ID:10991)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

私の環境では，以下のコードでWeb上のデータを取得できました．

それにしても，ご自分の環境を書かれない方が多いですね．
また，このような質問の際は，具体的なURLを示されればテストがやり
やすいのではないかと思います．
質問される方が手をかけるか，レスする方に手をかけさせるかの選択の
問題ですけどね．

そのままコピペして実行してみてください．
[Servers]のコンポを使用していることがわかっていて，Delphiのバージョ
ンが書いてあれば，もっと早くレスしたんですけど...
この掲示板でもたまにあるように，違うんです，と言われるのがいやなので...

//====================================================================
//  エクセルを起動して指定URLのデータを取込む
//  新規プロジェクトに以下のコンポーネントを配置
//  [Servers] TExcelApolication
//  [Servers] TExcelWorkbook
//  [Servers] TExcelWorkSheet
//  [Standard] TButton
//  動作確認 WindowsXP + Delphi5 + Excel2000
//====================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
     URLName: String;
     pC: OleVariant;
     pD: Range;
begin
     //エクセル起動
     ExcelApplication1.Connect;
     //エクセル表示
     ExcelApplication1.Visible[0]  :=  True;
     //ブックとシートオブジェクト接続
     ExcelWorkbook1.ConnectTo(
           ExcelApplication1.Workbooks.Add(Null, 0));
     ExcelWorksheet1.ConnectTo(
           ExcelWorkbook1.Worksheets['Sheet1'] as _Worksheet);

//読込むCSVデータのURL}
     URLName :='http://www.pref.kanagawa.jp/guide/40/4006.html';
     pC        :='URL;'+URLName;
     //出力先セル(左上)の指定}
     pD :=ExcelWorkSheet1.Cells.Range_['A1','A1'];
     with ExcelWorkSheet1.QueryTables.Add(pC,pD,EmptyParam) do begin
       RefreshStyle           :=xlOverwriteCells;//上書き
       AdjustColumnWidth      :=True;            //列幅自動調整
       TextFileCommaDelimiter :=False;           //カンマ区切り
       Refresh(EmptyParam);                      //実行
     end;
end;
//====================================================================
//  エクセルオブジェクト使用終了
//  エクセルが先に閉じているのが条件
//====================================================================
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
     ExcelApplication1.Quit;
end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る