VBA : Microsoft Access(.accdb) の読み込み

Microsoft.ACE.OLEDB.12.0 を使用しているので、.accdb も .mdb も読み込めます。内容は、昔ながらの記述で特別なところはありません。実行すると、Sheet1 にデータが全てセットされます。

※ データの先頭に、シングルクォートをセットしているので、全て元データのままセルで表示されます。

Sub ボタン1_Click()

    Dim objCn As Object
    Dim objRs As Object
    Dim strConnection As String
    Dim strQuery As String
    Dim strBuffer As String
    Dim nRow As Integer
    
    
    Set objCn = CreateObject("ADODB.Connection")
    Set objRs = CreateObject("ADODB.Recordset")
    
    strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\user\lightbox\販売管理C.accdb;"
    
    On Error Resume Next
    objCn.Open strConnection
    If Err.Number <> 0 Then
        MsgBox "1:" & Err.Description
        Exit Sub
    End If
    On Error GoTo 0

    strQuery = "select * from 社員マスタ"

    On Error Resume Next
    objRs.Open strQuery, objCn
    If Err.Number <> 0 Then
        objCn.Close
        MsgBox "2:" & Err.Description
        Exit Sub
    End If
    On Error GoTo 0

    nRow = 0
    Do While Not objRs.EOF
    
        nRow = nRow + 1
        For i = 0 To objRs.Fields.Count - 1
            Worksheets("Sheet1").Cells(nRow, i + 5).Value = "'" & objRs.Fields(i).Value & ""
        Next
        
        objRs.MoveNext
    
    Loop

    objRs.Close
    objCn.Close
    
    Set objRs = Nothing
    Set objCn = Nothing
    
End Sub

VBA

VBA : 一ヶ月の予定リストの作成して、csv を読み込んでデータを表示する

Excel で 角丸四角形や1つの角を切り取った四角形で、角丸や切り取った長さを一定に設定する為の VBA Sub プロシージャ

Excel の VBA : ブックを開いたら、フォームを表示してボタンをクリックしたらセルにデータをセットする

VBA : livedoor お天気API の JSON データを読み込んで利用する

VBA : シートの保護と部分的なセル入力の許可

VBA : 挿入した『テキストボックス』にアクセスする

VBA : InternetExplorer.Application 経由で JSON.parse を使用する方法

VBA : FileSystemObject でテキストファイル(CSV) を読み込んでセルにセットする