VBでEXCELデータの操作について (ID:79548)

名前

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

本文

どうコーディングされているか知りませんが、

(1)先頭行が項目行の例
Sheetデータ
A    B    C
--------------
ID  NAME  DATA
1   AAA   111
2   AAB   112
3   ABB   122
4   BBB   222
5   ABA   121
6   BAB   212
--------------
コード例
    Dim daoDB As DAO.Database
    Dim daoRs As DAO.Recordset
    Dim strXLSName As String
    Dim strSQL As String
    strXLSName = App.Path & "\DBTest.xls"
    Set daoDB = DBEngine.Workspaces(0).OpenDatabase(strXLSName, _
        False, False, "EXCEL 8.0; HDR=YES;")
    strSQL = "Select ID,NAME,DATA FROM [Sheet1$] " & _
             "WHERE NAME LIKE 'A*' "
    Set daoRs = daoDB.OpenRecordset(strSQL, dbOpenDynaset)
    Do Until daoRs.EOF
        List1.AddItem daoRs("ID").Value & vbTab & _
            daoRs("NAME").Value & vbTab & daoRs("DATA").Value
        daoRs.MoveNext
    Loop

(2)先頭行が項目行でない例
Sheetデータ
A    B    C
--------------
1   AAA   111
2   AAB   112
3   ABB   122
4   BBB   222
5   ABA   121
6   BAB   212
--------------
コード例
    Dim daoDB As DAO.Database
    Dim daoRs As DAO.Recordset
    Dim strXLSName As String
    Dim strSQL As String
    strXLSName = App.Path & "\DBTest.xls"
    Set daoDB = DBEngine.Workspaces(0).OpenDatabase(strXLSName, _
                False, False, "EXCEL 8.0; HDR=NO;")
    strSQL = "Select [F1],[F2],[F3] FROM [Sheet2$] " & _
              "WHERE [F2] LIKE 'A*' "
    Set daoRs = daoDB.OpenRecordset(strSQL, dbOpenDynaset)
    Do Until daoRs.EOF
        List1.AddItem daoRs("[F1]").Value & vbTab & _
            daoRs("[F2]").Value & vbTab & daoRs("[F3]").Value
        daoRs.MoveNext
    Loop

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

戻る