Excelのデータ抽出について

解決

ほやん 2002-07-25 12:57:37 No: 104563 IP: [192.*.*.*]

select構文を使用して、Excelのデータからデータを抽出したいのですが、
テーブル名の記載方法がわかりません。
Excelのファイル名、シート名の記述方法を教えてください。

EX)ファイル名名簿.xls シート名件数
シート"件数"からフィールド"町"のデータが、"港区"のものを抽出
sqlstr = "select *" & " FROM (テーブル名)" & " where (テーブル名).町 = " + 港区 + " "

この、（テーブル名）をなんと表示していいかわかりません。
よろしくお願いします。

編集削除

あんちゃん 2002-07-25 13:38:37 No: 104564 IP: [192.*.*.*]

メニュー → プロジェクト → 参照設定 → MicroSoft Excel 9.0 Object Library をチェック（Excelのバージョンは環境により変わる）

'▼Excel定義
Dim Excelブック As Excel.Workbook
Dim Excelシート As Excel.Worksheet

    Set Excelブック = GetObject("ファイル名")
    Set Excelシート = Excelブック.Worksheets(1)

    '▼定義
    With Excelシート
       データベースのレコード = .cell(1,1)
    End With

    '▼終了
    Set Excelブック = Nothing
    Set Excelシート = Nothing

SQLについて

Excel→データベース保存で使用
テーブル名は任意のレコードか空のレコード使用

編集削除

ほやん 2002-07-25 15:36:59 No: 104565 IP: [192.*.*.*]

解決いたしました。ありがとうございます。

編集削除

Say 2002-07-25 15:44:35 No: 104566 IP: [192.*.*.*]

たとえばこんなかんじ。

Private Sub Command1_Click()
    Dim dbs As DAO.Database
    Dim rst As DAO.Recordset
    Dim strSQL As String
    Set dbs = DBEngine.Workspaces(0).OpenDatabase _
    ("c:\名簿.xls", False, False, "Excel 8.0;")
    strSQL = "Select * FROM [件数$] WHERE [町] = ""港区"" "
    Set rst = dbs.OpenRecordset strSQL
  Do Until rst.EOF
    ............
    rst.MoveNext
  Loop
    rst.Close
    dbs.Close
    Set rst = Nothing
    Set dbs = Nothing
    MsgBox "おわったよん"
End Sub

編集削除

ほやん 2002-07-25 16:36:20 No: 104567 IP: [192.*.*.*]

Sayさんありがとうございました。
大変参考になりました。使用させていただきます。

編集削除