やってみよう！Excel VBAで業務改善！｜持続可能なスキーム編

テーブルのデータを取得

「よし！なんとか今日中に、テーブルのデータを取得するとこまでこぎつけたぞ」

八木くんは作成したコードを眺めながら、満足気にうなずきました。

Function DB接続() As Boolean
    On Error GoTo エラー
    
    If CN.State = adStateClosed Then
        CN.Provider = "Microsoft.ACE.OLEDB.12.0"
        CN.Open ThisWorkbook.Path & "\" & "営業進捗データベース.accdb"
    End If
    
    DB接続 = True
    Exit Function
    
エラー:
    MsgBox "データベースへの接続に失敗しました"
    DB接続 = False
End Function
────────────────────────────────

Sub データ取得()
    Dim RS  As New ADODB.Recordset
    Dim SQL As String
    Dim i   As Long

    If DB接続 Then
        SQL = "SELECT * FROM 進捗TBL"
        RS.Open SQL, CN
        i = 2
        Rows("2:" & Rows.Count).ClearContents
        
        Do Until RS.EOF
            Cells(i, 1).Value = RS.Fields("番号").Value
            Cells(i, 2).Value = RS.Fields("案件").Value
            Cells(i, 3).Value = RS.Fields("担当").Value
            Cells(i, 4).Value = RS.Fields("進捗").Value
            Cells(i, 5).Value = RS.Fields("企業名").Value
            Cells(i, 6).Value = RS.Fields("備考").Value
            Cells(i, 7).Value = RS.Fields("前回訪問日").Value
            RS.MoveNext
            i = i + 1
        Loop
    End If
End Sub