Excelを使いこなしてもっと楽をしたい、業務を効率化したい人がすぐに試すことができるマクロコード
“`vba
Sub ConnectToDatabase()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
Dim sheet As Worksheet
Set conn = New ADODB.Connection
conn.Open “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\YourDatabase.accdb;”
sql = “SELECT * FROM YourTable”
Set rs = conn.Execute(sql)
Set sheet = ThisWorkbook.Sheets(“Sheet1”)
sheet.Cells.ClearContents
sheet.Range(“A1”).CopyFromRecordset rs
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub
“`
1. データベース接続の基本
Excel マクロを使ってデータベースに接続することで、大量のデータを効率的に処理できます。上記のコードは、Microsoft Accessデータベースに接続し、指定したテーブルのデータをExcelシートに取り込む基本的な例です。
このマクロでは、ADO（ActiveX Data Objects）を使用しています。ADOは、データベースやその他のデータソースにアクセスするためのMicrosoftの技術です。コード内の「ADODB.Connection」と「ADODB.Recordset」オブジェクトがADOの主要コンポーネントです。
接続文字列（conn.Open文の中身）を変更することで、様々なタイプのデータベースに接続できます。例えば、SQLServerやMySQLなどにも対応可能です。
2. データの取得と処理
データベースに接続したら、SQLクエリを使ってデータを取得します。上記の例では単純な「SELECT * FROM YourTable」を使用していますが、より複雑なクエリも使用可能です。
“`vba
sql = “SELECT Column1, Column2 FROM YourTable WHERE Condition = ‘Value'”
“`
このように、必要なカラムだけを選択したり、条件を指定したりすることで、必要なデータのみを効率的に取得できます。
取得したデータは、Excelのシートに直接書き込むことができます。「CopyFromRecordset」メソッドを使用すると、レコードセット全体を一度にシートにコピーできます。大量のデータを扱う場合、これは非常に効率的な方法です。
3. エラー処理とパフォーマンス最適化
実際の業務で使用する場合、エラー処理は非常に重要です。以下のようなエラー処理を追加することをお勧めします：
“`vba
On Error GoTo ErrorHandler
‘ … (既存のコード) …
Exit Sub
ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description
‘ 必要に応じてクリーンアップ処理
End Sub
“`
また、大量のデータを扱う場合は、パフォーマンスの最適化も考慮する必要があります。例えば：
1. 画面更新を一時的に無効にする（Application.ScreenUpdating = False）
2. 大量のセル操作を行う前に計算を手動に設定する（Application.Calculation = xlCalculationManual）
3. データを一度に書き込むのではなく、配列に格納してから一括で書き込む
これらの技術を組み合わせることで、Excel マクロを使ったデータベース連携の効率を大幅に向上させることができます。データ処理の自動化や大規模なデータ分析など、様々な場面で活用できるでしょう。
