SQLの窓

2017年08月10日


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 マクロ EXCEL VB
posted by lightbox at 2017-08-10 10:44 | Comment(0) | VBA | このブログの読者になる | 更新情報をチェックする
バッチ処理

Microsoft Office
container 終わり

フリーフォントで簡単ロゴ作成
フリーフォントでボタン素材作成
フリーフォントで吹き出し画像作成
フリーフォントではんこ画像作成
ほぼ自由に利用できるフリーフォント
フリーフォントの書体見本とサンプル
画像を大きく見る為のウインドウを開くボタンの作成

Android SDK ポケットリファレンス
改訂版 Webデザイナーのための jQuery入門
今すぐ使えるかんたん ホームページ HTML&CSS入門
CSS ドロップシャドウの参考デモ
Google Hosted Libraries
cdnjs
BUTTONS (CSS でボタン)
イラストAC
ぱくたそ
写真素材 足成
フリーフォント一覧
utf8 文字ツール
右サイド 終わり
base 終わり