Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


66674 / 76734 ←次へ | 前へ→

【14622】Re:データベースイメージ(SQL)
回答  Jカーター  - 04/6/3(木) 10:34 -

引用なし
パスワード
   おじゃまします。
一応こんな方法もあります。
-------------------------------------------------------------------------
  Dim rs As DAO.Recordset
  With DBEngine.OpenDatabase(ThisWorkbook.FullName, 0, 0, "Excel 8.0;")
    Set rs = .OpenRecordset("SELECT COUNT(年齢), SUM(所持金) " & _
              "FROM [Sheet2$] WHERE 年齢 = 21 AND 性別 = '男';")
    Sheet1.Cells(1).CopyFromRecordset rs
    rs.Close
    .Close
  End With
  Set rs = Nothing

DAOに参照設定しておいて下さい。

出来なかったらすいません。
0 hits

【14596】データベースイメージ(SQL) レッサーパンダ 04/6/2(水) 17:16 質問
【14601】Re:データベースイメージ(SQL) ichinose 04/6/2(水) 18:26 回答
【14621】Re:データベースイメージ(SQL) レッサーパンダ 04/6/3(木) 10:21 お礼
【14622】Re:データベースイメージ(SQL) Jカーター 04/6/3(木) 10:34 回答
【14642】Re:データベースイメージ(SQL) ichinose 04/6/3(木) 18:52 発言
【14798】Re:データベースイメージ(SQL) レッサーパンダ 04/6/8(火) 10:04 お礼
【14853】Re:データベースイメージ(SQL) ichinose 04/6/8(火) 21:18 発言

66674 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free