procedure TplExcelFormEx1.Button1Click(Sender: TObject);
var
  LDBPath      : string;
  LpConnectStr : OleVariant;
  LpSqlStr     : OleVariant;
  LpStartCell  : Txlf2000Range;
  LQueryTbl    : Excel2000._QueryTable;
begin
  // シートの内容 (書式や数式も) をクリア
  xlfExcelSheet.Cells.Clear;

  Screen.Cursor := crHourGlass;

  // JET データベースのファイルのフルパス
  // フルパスにしないと OLE 例外発生
  LDBPath := ExtractFilePath(Application.ExeName) + 'TestMDB.mdb';

  // 接続文字列 (ここでは OLEDB ドライバを使用
  // ADO 接続の時の接続文字列の先頭に OLEDB; を追加
  LpConnectStr := 'OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + LDBPath;

  // 出力先セル番地は A1
  LpStartCell := xlfExcelSheet.Range['A1', 'A1'];

  // 選択 SQL 文
  LpSqlStr := 'SELECT * FROM TESTTBL';

  try
    LQueryTbl := xlfExcelSheet.QueryTables.Add(LpConnectStr, LpStartCell, LpSqlStr);

    LQueryTbl.RefreshStyle      := xlOverwriteCells; // 上書き
    LQueryTbl.CommandType       := xlCmdTable;       // 読み込むのは DB の表である
    LQueryTbl.AdjustColumnWidth := True;             // 列幅自動調整
    LQueryTbl.BackgroundQuery   := True;             // バックグラウンド実行
    LQueryTbl.Refresh(EmptyParam);                   // 実行
  finally
    Screen.Cursor := crDefault;
  end;
end;