AccessVBA | VBA・GAS・Pythonで仕事を楽しく効率化

AccessVBAでExcelを操作する2つの方法と使い分けについて

okumasahito — Tue, 17 Dec 2019 14:56:19 +0000

AccessVBAでExcelを操作すると遅くなる
復習：Excelを操作するAccessVBAについて
AccessVBAでExcelを操作するのは時間がかかる

AccessVBAでExcelを操作すると遅くなる

以前こちらの記事でAccessVBAでExcelを操作する方法をご紹介しました。

実際にこの方法を用いてAccessのデータベースから出力したテーブル・クエリ結果などをExcelを用いて加工していたのですが、少し複雑な処理をしたところスピードが大きく下がり、日常的に支障が出ることがありました。

その際AccessVBAでExcelを操作する別の方法を用いて解決できたので備忘録も兼ねてこちらのページで手順を紹介します。

復習：Excelを操作するAccessVBAについて

AccessVBAでExcelを操作する場合、下記のようなコードを書きます。

実行するにあたっては参照設定で「Microsoft Eccel 〇〇 Object Library」にチェックを入れるのを忘れないようにしてください。

参照設定の方法はこちらのページで紹介しています。

ExcelVBAでOutlookを操作するための参照設定の手順を書いていますが、AccessVBAでExcelを操作する場合もチェックするLibraryが異なるだけで手順自体は同じです。

Sub Excel操作1()

Dim 開始時間
Dim 終了時間

開始時間 = Time

Dim ExApp As Object
Set ExApp = CreateObject(“Excel.Application”)
Dim FSO As Object
Set FSO = CreateObject(“Scripting.FileSystemObject”)
Dim i

ExApp.Visible = True
ExApp.Workbooks.Open FileName:=Application.CurrentProject.Path & “” & “Excel検証用.xlsx”, readOnly:=True

With ExApp

.Workbooks(.Workbooks.Count).Activate
.Workbooks(.Workbooks.Count).Sheets(1).Select
.Cells(1, 1) = 1

’繰り返しの実行
For i = 2 To 1000
If .Cells(i － 1, 1) = 1 Then
.Cells(i, 1) = 2
Else
.Cells(i, 1) = 1
End If
Next i

End With

Set ExApp = Nothing
終了時間 = Time
Debug.Print Format(終了時間－開始時間, “hh:mm:ss”)

End Sub

これはAccessのファイルと同じフォルダに格納されているExcel検証用.xlsxというExcelファイルを開いて、シート1のA列の1行目から1,000行目に「1」「2」を交互に入力するコードになります。

実際AccessでExcelを操作する際はExportしたテーブルやクエリを操作することが多いですが、今回は検証として単純にExcelファイルを開いて操作するだけにしています。

AccessVBAでExcelを操作するのは時間がかかる

先ほど復習としてご紹介したExcel操作ですが、1,000回くらいの比較的短い繰り返しだと問題なく実行され、Excel単体で処理するのとさほど体感的に変わらない時間で処理が終了しますが、繰り返しが多くなったり条件分岐が増えてくると徐々に遅くなってしまいます。

10,000行まで同じ処理を繰り返すようにした場合、20秒くらいかかるようになりました。
もちろんExcel単体で実行した場合1～3秒くらいの時間しかかかりません。

AccessでExcelワークシート上に何か書き込むのに時間がかかることがわかったので、改善方法としてExcelのVBAを格納したファイルを用意して、それをAccessVBAで実行する方法を考えました。

少しだけ仕事で付き合いのあるSEの方はこういう方法のことを「ExcelVBAをキックする」と言っていました。
開始処理を加えることをそう呼んだりするようです。

Sub Excelマクロ実行1()

Dim 開始時間
Dim 終了時間

開始時間 = Time

Dim ExApp As Object
Set ExApp = CreateObject(“Excel.Application”)
Dim FSO As Object
Set FSO = CreateObject(“Scripting.FileSystemObject”)

ExApp.Visible = True
ExApp.Workbooks.Open FileName:=Application.CurrentProject.Path & “” & “Excel検証用マクロファイル.xlsm”, readOnly:=True
ExApp.Workbooks.Open FileName:=Application.CurrentProject.Path & “” & “Excel検証用.xlsx”, readOnly:=True

With ExApp

.Workbooks(.Workbooks.Count).Activate
.Workbooks(.Workbooks.Count).Sheets(1).Select
.Run “Excel検証用マクロファイル.xlsm!検証用マクロ1”

End With

ExApp.Workbooks(1).Close
Set ExApp = Nothing

終了時間 = Time
Debug.Print Format(終了時間－開始時間, “hh:mm:ss”)

End Sub

AccessVBAで起動するExcel検証用マクロファイル.xlsmの検証用マクロ1は下記のようなコードになっています。

Sub 検証用マクロ1()

Cells(1, 1) = 1
’繰り返しの回数
For i = 2 To 1000
If Cells(i － 1, 1) = 1 Then
Cells(i, 1) = 2
Else
Cells(i, 1) = 1
End If
Next i

End Sub

この処理だとExcel操作自体はExcelVBAで実行するので処理時間がかなり短縮されます。
10行、100行、1,000行、10,000行、100,000行繰り返す際にかかる時間を検証した結果は下記の表のとおりです。

繰り返し回数	10	100	1000	10000	100000
直接Excel操作	1秒	2秒	3秒	17秒	2分39秒
ExcelVBA実行	2秒	3秒	3秒	3秒	5秒

ExcelVBAでワークシートを操作する方がかなり早く処理が進むことがわかりました。

シートに値を格納するだけなら配列に入れた値を一気に入力するなどの方法で解決できるかもしれませんが、列を追加して項目を増やしたり、罫線を入れたり、背景色を変えたり、フォーマットを変更するなどの処理を条件分岐・繰り返しを使いながらワークシートの操作を行う場合、ExcelVBAを使った方がよさそうです。

今後AccessVBAのみでExcel操作をするのは簡単なもののみにしようと思います。

AccessでApplication.GetOpenFileNameのようなダイアログを表示してファイルを選択する方法

okumasahito — Sat, 28 Sep 2019 09:09:58 +0000

GetOpenFileNameはExcelだけの機能
AccessでExcelを操作する応用でApplication.GetOpenFileNameメソッドを使用する
Application.FileDialogオブジェクト
Application.FileDialogオブジェクトのサンプルコード

GetOpenFileNameはExcelだけの機能

以前からExcelVBAでファイルをダイアログで選択して開く方法として「Application.GetOpenFileName」メソッドを使用していましたが、このメソッドはExcelしか使えなくて、AccessなどでExcelファイルを開くときに使うには非常に面倒で不便なことに気づきました。

今回はAccessでApplication.GetOpenFileNameを使う方法と、より便利な代替方法をご紹介します。

AccessでExcelを操作する応用でApplication.GetOpenFileNameメソッドを使用する

ExcelVBAでしか使えないメソッドなので、Excelを操作する際のように下記コードを記入すれば使えるようになります。

Dim ExApp As Object
Set ExApp = CreateObject(“Excel.Application”)

正しい説明なのかどうかわかりませんが、変数「ExApp」にExcelオブジェクト格納し、そこからプロパティ・メソッドを呼び出す手順だと思います。
コードの全体は下記のような感じになります。

Sub ExcelでGetOpenFileName()

Dim ExApp As Object
Set ExApp = CreateObject(“Excel.Application”)

ExApp.Visible = True

Dim ExBook As Variant ’宣言はString型かVariant型を使うその後の分岐の条件が変わる
ExBook = ExApp.Application.GetOpenFileName(“Microsoft Excelブック,*.xls?”)

If ExBook <> False Then
ExApp.Workbooks.Open ExBook
Else
MsgBox “中止します”
Exit Sub
End If

Set ExBook = Nothing
Set ExApp = Nothing

End Sub

VBAで他のアプリケーションを使う際によく使う手法ですが、Application.GetOpenFileNameの場合、初期表示するフォルダを選択できない致命的な問題が生じます。

通常Application.GetOpenFileNameはカレントフォルダを最初に開く設定になっているので、ChDriveとChDirを使うことで最初に表示するフォルダを指定することができます。

しかし、Accessや他のアプリケーションでExcelを起動してApplication.GetOpenFileNameを使用してもExcel上のカレントフォルダを変更することができないようです。

私の使用しているPCの環境ではOneDriveのドキュメントフォルダが初期表示される設定を変えることができませんでした。

Excel以外のAccessやOutlook、WordのVBAの際は下記のApplication.FileDialogを使用する方が使いやすい環境を作ることができます。

Application.FileDialogオブジェクト

Application.GetOpenFileNameはExcelの環境に依存してしまうためAccessなど他のアプリケーションでは上記の通り使いにくく、操作性に問題が生じてしまいます。

Accessで使いやすい形でファイル選択ダイアログを開くにはApplication.FileDialogオブジェクトを使用する方が便利だと思います。
このApplication.FileDialogメソッドはApplication.GetOpenFileNameと異なり、下記の点が優れています。

①ExcelだけでなくAccessやOutlookなど、どのVBAでも使用できる

②初期フォルダの設定が可能

③ファイルの指定だけでなく、フォルダの指定も可能

④ファイルの指定時、複数ファイルを指定してそれぞれを取得できる

⑤ファイルの選択ではフィルター表示を複数設定できる

逆にデメリットとしては下記の通りです。

①設定項目・プロパティが多いのでコードが複雑になりやすい

②参照設定「Microsoft Office 〇〇 Object Library」をする必要がある（Verの違いでエラーになることがあるので注意）

Application.FileDialogオブジェクトのサンプルコード

Sub フォルダを選択してパスを取得するコード()

Dim WSH As Object
Set WSH = CreateObject(“Wscript.Shell”)
Dim DesktopPath As String
DesktopPath = WSH.SpecialFolders(“Desktop”)

With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = DesktopPath & “￥” ’初期フォルダをデスクトップに最後の「\」は必要なのか不明
.AllowMultiSelect = False ’複数選択をしない（フォルダはできない）
.Title = “フォルダの選択” ’ダイアログのタイトル
If .Show = True Then
MsgBox “選択フォルダは” & vbLf & .SelectedItems(1)
End If
End With
Set WSH = Nothing

End Sub

Sub ファイルを選択してパスを取得するコード()

Dim i
Dim WSH As Object
Set WSH = CreateObject(“Wscript.Shell”)
Dim DesktopPath As String
DesktopPath = WSH.SpecialFolders(“Desktop”)

With Application.FileDialog(msoFileDialogFilePicker) ’Excel以外は.Executeで開かないのでmsoFileDialogOpenは使わない
.InitialFileName = DesktopPath & “￥” ’初期フォルダをデスクトップに最後の「\」は必要なのか不明
.AllowMultiSelect = True ’複数選択をする
.Title = “ファイルの選択” ’ダイアログのタイトル
If .Show = True Then
For i = 1 To .SelectedItems.Count ’選択したファイルのファイル名をすべて取得する
MsgBox “選択ファイルは” & vbLf & .SelectedItems(i)
Next i
End If
End With
Set WSH = Nothing

End Sub

初期フォルダをデスクトップにするためにWSHを使用してデスクトップを指定しています。
私の環境では.InitialFileNameでフォルダパスの最後に「\」を付けないとうまく動作しませんでした。

Accessで現在のデータベースのPathを取得する

okumasahito — Sat, 27 Jul 2019 14:13:00 +0000

現在のファイルの指定方法
現在のデータベースのPath・ファイル名を参照するAccessVBAコード
CurrentProject.Pathを使ったVBAサンプルコード

現在のファイルの指定方法

今回ご紹介するコードはすごく簡単なのですが、Accessでの現在のファイルのPathを指定するコードです。

ExcelVBAでは「ThisWorkbook.Path」で覚えているのですが、Accessのファイルを指定する方法については今まで何度か忘れて→調べて思い出すを繰り返していたので、備忘録として残しておきます。

現在のデータベースのPath・ファイル名を参照するAccessVBAコード

現在のデータベースのパス・ファイル名を参照するには主に下記の3つのコードを用います。

①Application.CurrentProject.Path

現在のデータベースファイルが格納されているフォルダを参照します。

②Application.CurrentProject.Name

現在のデータベースファイルのファイル名を参照します。

③Application.CurrentProject.FullName

現在のデータベースファイルのフルパスを参照します。
①+②（厳密には①+”\”+②）を一度に参照します。

CurrentProject.Pathを使ったVBAサンプルコード

私がよく使うのはデータベースファイルと同じフォルダにある別のファイルを開いたり参考にする時によく使います。

下記のサンプルはエクスプローラーでデータベースファイルが格納されているフォルダを開くコードになります。

Sub エクスプローラーでフォルダを開く()
Shell “C:WindowsExplorer.exe ” & Application.CurrentProject.Path, vbNormalFocus
End Sub

データベースから参考にしたいファイルが多いときに便利です。
またExcelファイル操作する場合などでは下記のように同じフォルダにあるExcelファイルを指定したりします。

このコードを実行するには「ツール」→「参照設定」の「Microsoft Excel 〇〇 Object Library」を有効にしておく必要があります。
手順がわからない方はこちらを参考にしてください。
ExcelVBAでOutlook Object Libraryの参照方法を記していますが、基本的には同じ操作でMicrosoft Excel 〇〇 Object LibraryをAccessVBAで有効にすればOKです。

Sub Excel操作()

Dim ExApp As Object
Set ExApp = CreateObject(“Excel.Application”)
ExApp.Visible = True

Dim ExBook As Object
Set ExBook = ExApp.Workbooks.Open(Application.CurrentProject.Path & “” & “エクセルファイル.xlsx”)

’処理を記入する

Set ExBook = Nothing
’ExApp.Quit ’処理を加えて閉じるところまで実行するなら「’」を外す
Set ExApp = Nothing

End Sub

条件に一致するレコードの件数を調べるAccessVBA

okumasahito — Sun, 09 Dec 2018 14:23:24 +0000

Accessでのシステムを構築する際にレコードの件数を取得する方法を調べました
今回作成したフォームとテーブル・レコードの説明
レコードの件数を取得する2通りの方法について
関数を使用する方法
ADOを使用する方法

Accessでのシステムを構築する際にレコードの件数を取得する方法を調べました

最近仕事でAccessを使用して価格POP（店で価格を表示している紙）を作るシステムを作成しました。

複数のサイズで印刷できるように条件を設定し、レポートで出力する仕組みで作成していたのですが、不要なレポートを開かないようにするために、条件に合うレコードの件数を取得する方法を調べました。

今回はAccessVBAで対象レコードの件数を取得する方法を紹介します。

今回作成したフォームとテーブル・レコードの説明

今回作成したシステムのメインのフォームとテーブルは下記のようになっています。

必要な商品のJANコードを読み込ませると商品マスタテーブルから商品名や規格・価格を取得する仕組みです。
印刷したいサイズのチェックボックスにチェックをつけることで印刷ボタンをクリックした際に表示させることができる仕様です。

3パターンあるPOPをレポートで印刷するのですが、件数が1件もない場合レポートを表示させないようにするためレコードの件数を取得する必要がありました。

よく「レポート件数取得 Access」などでGoogle検索して出てくる方法で、レポート自体のコントロールに件数を表示させる方法もあったのですが、VBAで表示する前のレポートの表示後の件数を取得することができなかったのでその方法は使えませんでした。

今回紹介する方法はテーブルのデータを読み取ってレポートを表示する条件のレコードを取得する方法で、レポートの表示・非表示にかかわらず件数を取得できます。

レコードの件数を取得する2通りの方法について

レコードの件数を取得する方法は関数を用いる方法とADOを使用する方法があります。

関数を使用する方法はピンポイントで件数だけを取得するのに手軽で便利な方法です。

逆にADOは参照設定や宣言が必要なので少しコードが複雑になりますが、件数の取得だけでなくレコードの検索・追加や全フィールドの値を取得したりなど、幅広い処理が可能です。

関数を使用する方法

DCount関数を使用し、「DCount(“*”, “テーブル名”, “取得するレコードの条件”)」の記載方法で件数を取得します。

MsgboxやDebug.Printなどで出力すれば件数が表示できます。

DCount関数の最初の引数はフィールド名を記載するのが本来の使い方のようですが、「*」が使用できるので「*」を用いた方が汎用性があって便利です。

Private Sub 印刷_Click()

Me.Requery

’[印刷する_2031]=にチェックがついているレコードがあればレポートをプレビュー表示する
If DCount(“*”, “T_POP”, “[印刷する_2031]=TRUE”) <> 0 Then
DoCmd.OpenReport “R_POP書式20×31”, acViewPreview, “”, “[印刷する_2031]=TRUE”, acWindowNormal
End If

’[印刷する_4031]=にチェックがついているレコードがあればレポートをプレビュー表示する
If DCount(“*”, “T_POP”, “[印刷する_4031]=TRUE”) <> 0 Then
DoCmd.OpenReport “R_POP書式40×31”, acViewPreview, “”, “[印刷する_4031]=TRUE”, acWindowNormal
End If

’[印刷する_4063]=にチェックがついているレコードがあればレポートをプレビュー表示する
If DCount(“*”, “T_POP”, “[印刷する_4063]=TRUE”) <> 0 Then
DoCmd.OpenReport “R_POP書式40×63”, acViewPreview, “”, “[印刷する_4063]=TRUE”, acWindowNormal
End If

End Sub

ADOを使用する方法

ADOを使用して、対象とするテーブルや選択クエリの件数を取得することができます。

ADOを使用する際はMicrosoft ActiveX Data Objects 〇〇 Libraryにチェックを入れる必要があります。

テーブルの中から特定の条件のレコード件数を取得するためには条件をSQLで指定します。

Private Sub 印刷_Click()

Me.Requery

’Microsoft ActiveX Data Objects 〇〇 Libraryの参照設定にチェックを入れる
Dim RS(2) As ADODB.Recordset
Set RS(0) = New ADODB.Recordset
Set RS(1) = New ADODB.Recordset
Set RS(2) = New ADODB.Recordset
Dim CN As ADODB.Connection
Set CN = CurrentProject.Connection

Dim SQL(2) As String
SQL(0) = “SELECT [T_POP].* FROM [T_POP] WHERE ([T_POP].[印刷する_2031])=True;”
SQL(1) = “SELECT [T_POP].* FROM [T_POP] WHERE ([T_POP].[印刷する_4031])=True;”
SQL(2) = “SELECT [T_POP].* FROM [T_POP] WHERE ([T_POP].[印刷する_4063])=True;”

RS(0).Open SQL(0), CN, adOpenKeyset, adLockOptimistic
RS(1).Open SQL(1), CN, adOpenKeyset, adLockOptimistic
RS(2).Open SQL(2), CN, adOpenKeyset, adLockOptimistic

’RS(0)のレコード件数が0でなければレポートを開いてプレビューを表示する
If RS(0).RecordCount <> 0 Then
DoCmd.OpenReport “R_POP書式20×31”, acViewPreview, “”, “[印刷する_2031]=TRUE”, acWindowNormal
End If

’RS(1)のレコード件数が0でなければレポートを開いてプレビューを表示する
If RS(1).RecordCount <> 0 Then
DoCmd.OpenReport “R_POP書式40×31”, acViewPreview, “”, “[印刷する_4031]=TRUE”, acWindowNormal
End If

’RS(2)のレコード件数が0でなければレポートを開いてプレビューを表示する
If RS(2).RecordCount <> 0 Then
DoCmd.OpenReport “R_POP書式40×63”, acViewPreview, “”, “[印刷する_4063]=TRUE”, acWindowNormal
End If

RS(0).Close
RS(1).Close
RS(2).Close

Set CN = Nothing
Set RS(0) = Nothing
Set RS(1) = Nothing
Set RS(2) = Nothing

End Sub

ADOはテーブルやクエリの情報をすべて取得できるので関数で指定するよりもコードが長くなりますが、レコードを1件ずつ全て取得したり、細かく条件を設定して変換したり、レコードを新たに追加したり様々なことができるのでとても便利です。

イメージとしてはテーブルをExcelVBAでワークシートを操作するような感じで編集することが可能になる感じです。

ADOの使ってテーブルを追加したり編集したりする手順についてはまた別の機会にご紹介します。

AccessVBAで変数を活用したクエリ（SQL）の作成

okumasahito — Tue, 08 May 2018 05:03:02 +0000

変数を活用するとVBAでのクエリ（SQL）実行でより自由度の高くなる
SQL文の文字列を変数で置き換える
変数に置き換える手順

変数を活用するとVBAでのクエリ（SQL）実行でより自由度の高くなる

以前にAccessVBAでクエリ（SQL）を実行するコードを紹介しましたが、VBAでのSQLの実行は変数を用いるとより自由度の高い複雑な処理が可能になります。

今回はAccessVBAでクエリ（SQL）を実行する際に変数を用いる方法を紹介します。

SQL文の文字列を変数で置き換える

クエリを構成するSQL構文は文字列なので、その中の一部を置き換えることでVBAの変数を使用することができます。

例として前回紹介したAccessVBAコードに下記のようなクエリ（SQL）を実行するコードを用います。
こちらのAccessVBAコードは「仕入伝票一覧」というテーブルの中に格納されているデータのうち、「店番」フィールドの値が「1」のものを削除するクエリを実行します。

Sub Accessで削除クエリ実行()

Dim StrSQL As String

StrSQL = “DELETE [仕入伝票一覧].[店番] ” & _
“FROM [仕入伝票一覧] ” & _
“WHERE [仕入伝票一覧].[店番]=””1″”;”

DoCmd.SetWarnings False ’アラートを出なくする
DoCmd.RunSQL (StrSQL)
DoCmd.SetWarnings True ’アラートを出るように戻す

End Sub

この条件式で変数を使用したい場合、下記のように変更します。

Sub 変数を使用したSQL文の作成()

Dim StrSQL As String
Dim joken As String
joken = “1”

StrSQL = “DELETE [仕入伝票一覧].[店番] ” & _
“FROM [仕入伝票一覧] ” & _
“WHERE [仕入伝票一覧].[店番]=””” & joken & “””;”

’DoCmd.SetWarnings False ’アラートを出なくする
DoCmd.RunSQL (StrSQL)
’DoCmd.SetWarnings True ’アラートを出るように戻す

End Sub

変数に置き換える手順

元々の文字列を表す「”」と文字列の中の「”」を表す「””」が混在しているので理解しにくいですが、下記のような記載の順序を覚えておくとエラーが起こさずに変数に置き換えることができます。

①変数に置き換えたい文字の部分を「&」と「”」を用いて切り離す

文字列をつなぎ合わせた状態にするイメージで切り離す文字の前後に「” & “」を挿入します

“WHERE [仕入伝票一覧].[店番]=””1″”;”
↓
“WHERE [仕入伝票一覧].[店番]=””” & “1” & ““”;”

②切り離された「”1″」の部分を変数に置き換える

「”1″」を変数「joken」に置き換えます。

“WHERE [仕入伝票一覧].[店番]=””” & “1” & “””;”
↓
“WHERE [仕入伝票一覧].[店番]=””” & joken & “””;”

予備知識：「””」は「’」で置き換えるとわかりやすい

文字列中のダブルコーテーションを表す2連続の「””」は数が多くなってややこしければシングルコーテーション「’」で代用することも可能です。

“WHERE [仕入伝票一覧].[店番]=“”” & joken & ““”;”
↓
“WHERE [仕入伝票一覧].[店番]=‘” & joken & “‘;”

このような形で変数を使えるとFor~Nextなどでjokenの値を変えながら、複数条件で削除クエリを実行させることも可能です。

下記は「店番」フィールドが1～100までのレコードを削除するAccessVBAコードです。
この場合、変数jokenを数値型で宣言しておいて、後でFormat関数を用いて文字列型に変更する方がより正しいコードになります。
（数値型のままでもVBAが自動的に変換してくれるので動きますが念のため。）

Sub 削除クエリを色々な条件式で実行する()

Dim StrSQL As String
Dim joken As Long

DoCmd.SetWarnings False ’アラートを出なくする
For joken = 1 To 100
StrSQL = “DELETE [仕入伝票一覧].[店番] ” & _
“FROM [仕入伝票一覧] ” & _
“WHERE [仕入伝票一覧].[店番]=””” & Format(joken, “0”) & “””;”

DoCmd.RunSQL (StrSQL)
Next joken
DoCmd.SetWarnings True ’アラートを出るように戻す

End Sub

もちろん今回のjokenの値を変更しながら繰り返し削除するだけならクエリだけの機能でも可能ですが、今回のように条件が100個あるような場合、一回で済ませるクエリを作るのは条件式が長くなり面倒です。

その点VBAで変数を使えば繰り返しを実行するだけで済むのでかなり楽になります。

注意点はきちんとアラートを非表示にしてから実行しないと繰り返しの数だけ確認画面が表示されることで、失敗するとずっとEnterキーを押し続ける羽目になります。

AccessVBAでクエリ（SQL）を実行する

okumasahito — Sun, 29 Apr 2018 15:11:56 +0000

AccessVBAで更新クエリ・削除クエリなどを連続して実行できる
AccessVBAでクエリを修正するコードはすべてのクエリで共通
更新・削除クエリを実行するAccessVBAのコード
アラートを消すコードを付けてデータを消したり、更新する際にアラートが出ないようにする

AccessVBAで更新クエリ・削除クエリなどを連続して実行できる

選択クエリ・集計クエリなどレコードを変更しないクエリに関してはAccessVBAで修正するメリットは少ないですが、更新クエリ・削除クエリなどに関しては「実行する」ステップがあるため、AccessVBAを使用することでより柔軟な処理が可能になります。

特にある順序で連続してクエリを実行したり、パラメータを少し変更したクエリを複数回実行するなどの処理においてAccessVBAは非常に有用です。
今回はAccessVBAでクエリを実行するコードを紹介します。

AccessVBAでクエリを修正するコードはすべてのクエリで共通

クエリを修正するAccessVBAコードは前回紹介したようにどんなクエリでも同じように使用可能です。
更新クエリ・削除クエリなどを実行する場合はさらにそこから「実行する」コードを追加することになります。

更新・削除クエリを実行するAccessVBAのコード

クエリを実行するコードは以下のようになります。

DoCmd.RunSQL (“実行するクエリのSQL”)

クエリをデータベース上に保存していて、そのSQLを呼び出す場合は次のように記載します。
こちらはデータベース上の「Q_お試し」というクエリを実行するAccessVBAコードになります。

Sub クエリ実行()

Dim StrSQL As String
StrSQL = CurrentDb.QueryDefs(“Q_お試し”).SQL
DoCmd.RunSQL (StrSQL)

End Sub

変数StrSQLにクエリ「Q_お試し」のSQLを代入し、実行する流れになります。

SQLを一から作成する場合は以下のように記載します。

Sub クエリ実行2()

Dim StrSQL As String
StrSQL = “DELETE [仕入伝票一覧].[店番] ” & _
“FROM [仕入伝票一覧] ” & _
“WHERE [仕入伝票一覧].[店番]=””1″”;”

DoCmd.RunSQL (StrSQL)

End Sub

クエリの修正の際と同じくStrSQLに直接SQLを記載します。
改行の際は前後のどちらかに半角スペースをつけるのを忘れないようにしましょう。

アラートを消すコードを付けてデータを消したり、更新する際にアラートが出ないようにする

削除クエリや更新クエリを実行すると「〇〇件のレコードが指定したテーブルから削除されます」や「〇〇件のレコードが更新されます」などのアラートが表示されます。

このアラートが出るとVBAが中断されるため、連続で色々な処理を実行する際は以下のコードを追加し、アラートを表示させないようにしておく必要があります。

DoCmd.SetWarnings False

ExcelVBAでいうところのApplication.DisplayAlertsと同じ処理ですが、Excelよりも扱いに気を付けないといけないのは「解除を忘れるとそのVBAの実行中だけでなく、ファイルを閉じるまでずっとアラートが出てこなくなる」ことです。

下記のようにクエリの実行後に「DoCmd.SetWarnings True」と必ず記載して、アラートが出るように戻しましょう。

Sub アラートを表示させないようにクエリ実行()

Dim StrSQL As String
StrSQL = “DELETE [仕入伝票一覧].[店番] ” & _
“FROM [仕入伝票一覧] ” & _
“WHERE [仕入伝票一覧].[店番]=””1″”;”

DoCmd.SetWarnings False ’アラートを出なくする
DoCmd.RunSQL (StrSQL)
DoCmd.SetWarnings True ’アラートを出るように戻す

End Sub

AccessVBAでクエリ（SQL）を修正する

okumasahito — Thu, 26 Apr 2018 14:35:09 +0000

SQLの文字列をVBAで修正する
クエリは大きく2つに分けられる
AccessVBAでクエリを修正する意味
AccessVBAでクエリを修正するコード
AccessVBAでクエリを修正する際の注意点
1. ①複数行の場合、改行前もしくは改行後に半角のスペースが必要
2. ②SQLの中で「”」を使う場合「””」のように二重にするもしくは「’」を使用する

SQLの文字列をVBAで修正する

前回AccessVBAでクエリを作成・実行するでクエリを作成したり、削除したりするAccessVBAコードを紹介しましたが、AccessVBAではその他にも作成したクエリを修正することも可能です。
今回はクエリを修正するVBAコードを紹介します。

クエリは大きく2つに分けられる

選択クエリ・集計クエリ・更新クエリ・削除クエリなど、クエリの種類はたくさんありますが、AccessVBAでクエリの修正を行うにあたっては、これらのクエリが大きく2つに分類されることを把握しておかなければなりません。

その分類は「実行することでデータベースに格納されているデータを変更するかどうか」ということです。

選択クエリ・集計クエリなどは今のデータの中で必要なレコードを抜き出したり、または集計したりするクエリなので、これらは「実行する」というステップがありません。

クエリを設計し、開くと値が表示されますが、データベースのレコードに影響はないからです。

それに対し、更新クエリ・削除クエリなどはデータベースのレコードを変更するもので、これらのクエリは設計後、実行することで機能するものになります。

AccessVBAでクエリを修正する意味

個人的な意見かもしれませんが、選択クエリ・集計クエリなどは、AccessVBAで修正する必要がない場合がほとんどです。

強いていうなら色々な人がデータベースを扱う中で勝手にクエリを変更されたり、壊されたりしないように修正するコードは作れますが、そこまで意味がないと思います。
（そもそもクエリを編集できないようにしておけば問題にならないため。）

AccessVBAでクエリを修正することに価値を見出しやすいのは更新クエリ・削除クエリなど、実行することで初めて機能するクエリです。

これらのクエリについてはAccessVBAを用いることで、条件を変更したクエリを複数連続で実行するなどの機能が使えるようになるため、より柔軟な処理が可能になります。

クエリを実行するコードについてはこちらのページで紹介しています。

AccessVBAでクエリを修正するコード

AccessVBAでクエリを修正するコードは以下のようなものになります。

Sub クエリを修正する()

Dim StrSQL As String
StrSQL = “SELECT ID,店番,取引先コード,日付 FROM 仕入伝票一覧;”
CurrentDb.QueryDefs(“Q_お試し”).SQL = StrSQL

End Sub

今回のサンプルコードは既存のクエリをAccessVBAで指定したSQLに置き換えるコードとなります。
下記のように削除クエリに修正することも可能で、もともとのクエリの種類にかかわらず、置き換えることができます。

Sub クエリを修正する()

Dim StrSQL As String

StrSQL = “DELETE [仕入伝票一覧].[店番] ” & _
“FROM [仕入伝票一覧] ” & _
“WHERE [仕入伝票一覧].[店番]=””01″”;”

CurrentDb.QueryDefs(“Q_お試し”).SQL = StrSQL

End Sub

こちらは仕入伝票一覧というテーブルから、店番の値が「01」（文字列）のレコードを削除するというコードです。
コードを記載するにあたっては下記を参考にしてください。

AccessVBAでクエリを修正する際の注意点

AccessVBAでSQLを記載する場合、下記の点に注意が必要です。

①複数行の場合、改行前もしくは改行後に半角のスペースが必要

SQLは単語と単語の間には半角スペースが入ります。
改行は単語と単語の間になりますので、どちらかに半角のスペースがないとクエリがきちんと作成できません。

②SQLの中で「”」を使う場合「””」のように二重にするもしくは「’」を使用する

SQLを文字列で表すので、すでに開始位置、終了位置にダブルコーテーション「”」が入っています。

SQLの中でさらに「”」を使用する場合は、二重にするかシングルコーテーション「’」を使用してください。
Where条件式などでよく使われます。

条件式が数字を表す場合はダブルコーテーション「”」やシングルコーテーション「’」は不要ですので、こちらも逆に注意が必要です。

条件式を変数で置き換えることで自由度が高い処理が可能になります。
その手順についてはAccessVBAでクエリを実行するで紹介します。

AccessVBAでクエリ（SQL）を作成・削除する

okumasahito — Tue, 24 Apr 2018 15:00:17 +0000

AccessVBAでクエリを作成・削除できるとクエリ一覧がすっきりする
AccessVBAでクエリを作成
AccessVBAでクエリを削除

AccessVBAでクエリを作成・削除できるとクエリ一覧がすっきりする

少し複雑なデータベースを作成し、クエリを作りっぱなしにしていると、ちょっとした条件違いのクエリが大量にできあがり、管理が面倒になってしまいます。

AccessVBAでクエリをすべて操作できるようになると、自動で使用するクエリを作成し、不要になれば削除できるので管理がしやすくなります。
今回はAccessVBAでできるクエリの操作のうち、クエリを作成・削除するVBAコードを紹介します。

AccessVBAでクエリを作成

AccessVBAでクエリを作成するサンプルコードは以下のような形式になります。
このサンプルコードでは「T_仕入一覧」というテーブルのID、店番、取引先コードを抜き出す「Q_お試し」という選択クエリを作成するコードです。

Sub クエリ作成()

Dim Qdf As Object
Dim SQL As String
SQL = “SELECT ID,店番,取引先コード FROM T_仕入一覧”

Set Qdf = CurrentDb.CreateQueryDef(“Q_お試し”, SQL)
Set Qdf = Nothing

End Sub

AccessVBAでクエリを削除

VBAでクエリを削除するにはクエリの名前を指定する必要があります。
「Q_お試し」というクエリを削除するVBAコードは以下のようなものになります。

Sub クエリ削除1()

Dim SQL As String
Dim Obj As AccessObject

DoCmd.DeleteObject acQuery, “Q_お試し”
’CurrentDb.QueryDefs.Delete “Q_お試し”’これでもOK

End Sub

一度作成したものを削除する場合には通常あり得ないことですが、例えば「Q_お試し」というクエリが存在するかどうか不明で、存在していた場合にのみ削除するというVBAコードは以下のようになります。

すべてのクエリに対してクエリ名を確認し、該当の名前のクエリを削除するという流れです。

Sub クエリ削除2()

Dim Obj As AccessObject

For Each Obj In CurrentData.AllQueries
If Obj.Name = “Q_お試し” Then
DoCmd.DeleteObject acQuery, “Q_お試し”
’CurrentDb.QueryDefs.Delete “Q_お試し”’これでもOK
Exit Sub
End If
Next

End Sub

クエリの削除については、DoCmd.DeleteObject acQuery, “クエリ名”かコメントで記しているCurrentDb.QueryDefs.Delete “クエリ名”のいずれを使用しても削除できます。

削除した際のAccess上の挙動は微妙に変わっていて、DoCmd.DeleteObject acQuery, “クエリ名”を使用した場合はすぐにAccessオブジェクトの一覧から削除したクエリが消されますが、CurrentDb.QueryDefs.Delete “クエリ名”を使用した場合、オブジェクト一覧を最小化したり更新しないと表示が残ったままになるようです。

ただ、消えていないわけではないのでどちらを使用しても大きな違いはないと思います。

AccessVBAでクエリを操作する

okumasahito — Tue, 24 Apr 2018 14:54:55 +0000

クエリ（SQL）の設計や実行はAccessの中で最も使う機能の一つ
AccessVBAでクエリを操作するメリット
AccessVBAでできるクエリの操作

クエリ（SQL）の設計や実行はAccessの中で最も使う機能の一つ

Accessなどのデータベースソフトが持つ優れた機能の一つが「クエリ」です。
ある条件を満たすレコードを抽出したり、合計したり、または削除したりさまざまな処理を簡単に実行できるのが特徴です。

クエリ単独で使用してもかなり便利ですが、VBAと掛け合わせることでさらに自由度の高い処理ができるようになりますので、VBAでのクエリの操作・記載方法についてご紹介します。

AccessVBAでクエリを操作するメリット

クエリはとても優れた機能ですが、1つのクエリでできる操作が1つであったり、色々な条件を組み合わせるのが難しいことがあります。

そういったときにAccessでクエリを2つ連続で実行したり、少しだけ条件を入れ替えたクエリを複数作成したりすることで自動化できる範囲が広がります。

また選択クエリなどの場合、選択の条件などを簡単に書き換えて都度実行することにより不要なクエリをたくさんデータベースに残す必要がなくなることも管理する上で大きなメリットです。

AccessVBAでできるクエリの操作

AccessVBAでクエリの操作に関してできることは主に以下の内容です。

①クエリ（SQL）を作成・削除する

②クエリ（SQL）を修正する

③クエリ（SQL）を実行する

これらはそれぞれリンク先のページで内容を紹介します。

もともと何かのクエリを作っていれば、②修正→③実行を繰り返すだけでもVBAとしては十分な機能になります。

また「実行する」という概念のない選択クエリなどの場合は②しか行わなくても十分ですし、場合によってはクエリを作るだけでデータベースとしては十分な機能になる場合もあります。

AccessVBAでExcelを操作する

okumasahito — Sat, 21 Apr 2018 15:24:08 +0000

AccessからExcelを操作すると便利なことがたくさん
AccessからExcelを操作する手順
Excelを操作するAccessVBAのサンプルコード

AccessからExcelを操作すると便利なことがたくさん

Accessはすごくたくさんの機能がありますが、テーブルの構造を変更したり、格納されたデータを少し入れ替えたりする場合Excelを利用する方が融通が利く場合があります。

AccessのVBAを使用してExcelを操作できると色々な操作が自動化できるようになります。
今回はAccessのVBA でExcelを起動する方法と基本的なワークシートの操作についてご紹介します。

AccessからExcelを操作する手順

まず、CreateObject(“Excel.Application”)を用いて、Excelをオブジェクト型変数に格納しVBAで操作できるようにします。
その後はExcelVBAで使用するコードをほぼそのまま使用することができます。

プロパティを指定する際、Excelを格納した変数を頭に記入しないとExcelVBAの操作であることが認識されないので注意が必要です。
つい忘れがちになるので、Excelの操作ステップが多いならWithステートメントを使用してコードを省略した方がわかりやすくなります。

Excelを操作するAccessVBAのサンプルコード

今回紹介するAccessVBAコードは①新しくExcelファイルを新規作成し、セルA1に「aaaa」と入力してデスクトップに保存するものと、②既存のExcelファイルを起動してセルA1に「aaaa」と入力して上書き保存するコードになります。

いずれの場合もExcelの操作の場合はWithステートメントを使用して、コードを理解しやすくしています。

①Excelファイルの新規作成と保存

Sub AccessVBAでExcelファイルの新規作成と保存()

Dim ExApp As Object
Set ExApp = CreateObject(“Excel.Application”)
ExApp.Visible = True
Dim DesktopPath As String, FilePath As String, WSH As Variant
Set WSH = CreateObject(“Wscript.Shell”)
DesktopPath = WSH.SpecialFolders(“Desktop”)
FilePath = DesktopPath & “\作成したExcelファイル.xlsx”

ExApp.Workbooks.Add
With ExApp.Workbooks(ExApp.Workbooks.Count)
.Sheets(1).Cells(1, 1) = “aaaaa”
.SaveAs FileName:=FilePath
.Close
End With
ExApp.Quit

Set ExApp = Nothing
Set WSH = Nothing

End Sub

②既存Excelファイルの起動と上書き保存

Sub Accessで既存のExcelファイル起動と編集()

Dim ExApp As Object
Set ExApp = CreateObject(“Excel.Application”)
ExApp.Visible = True
Dim DesktopPath As String, FilePath As String, WSH As Variant
Set WSH = CreateObject(“Wscript.Shell”)
DesktopPath = WSH.SpecialFolders(“Desktop”)
FilePath = DesktopPath & “\元Excelファイル.xlsx”

ExApp.Workbooks.Open FileName:=FilePath
With ExApp.Workbooks(ExApp.Workbooks.Count)
.Sheets(1).Cells(1, 1) = “aaaaa”
.Save
.Close
End With
ExApp.Quit

Set ExApp = Nothing
Set WSH = Nothing

End Sub