procedure TplExcelFormEx1.Button1Click(Sender: TObject);
var
  URLName     : String;
  pConnectStr : OleVariant;
  pStartCell  : Txlf2000Range;
  pQTabel     : Excel2000._QueryTable;
begin
  //読込むURL
  URLName     := Edit1.Text;
  pConnectStr := 'URL;'+URLName;

  try
    //出力先セル(左上)の指定
    pStartCell := xlfExcelSheet.Cells.Range['A1', 'A1'];

    pQTabel :=  xlfExcelSheet.QueryTables.Add(pConnectStr, pStartCell, EmptyParam);
    pQTabel.RefreshStyle        := xlOverwriteCells;  //上書き
    pQTabel.AdjustColumnWidth   := True;              //列幅自動調整
    pQTabel.Refresh(EmptyParam);                      //実行
  except
    Application.MessageBox('取得に失敗しました', '情報', MB_OK);
  end;
end;