2023/08/06

DAOでAccess･Excel･CSVへ接続・操作

• １．データベースへの接続方法
• ２．DAOの文法について
• 　２ー１．DAOオブジェクト生成
• 　２ー２．データベース接続
• 　２ー３．データベースとのデータやり取り
• 　　２ー３ー１．OpenRecordsetメソッド
• 　　２ー３ー２．Excecuteメソッド
• 　　２ー３ー３．パラメータの組み合わせについて
• 　　　２ー３ー３ー１．Accessとしての組み合わせ
• 　　　２ー３ー３ー２．Excel VBAとしてのTypeとOptionsパラメータの組み合わせ
• 　　　２ー３ー３ー３．Excel VBAとしてのLockEditパラメータの組み合わせ
• ３．コード例
• 　３ー１．テーブル名を指定する場合
• 　　３ー１ー１．Accessデータの場合
• 　　３ー１ー２．Excelデータの場合
• 　　　３ー１ー２ー１．Select相当
• 　　　３ー１ー２ー２．Insert、Update相当
• 　　３ー１ー３．CSVデータの場合
• 　３ー２．SQL文を指定する場合
• 　　３ー２ー１．Accessデータの場合
• 　　　３ー２ー１ー１．Select文
• 　　　３ー２ー１－２．Insert・Update・Delete文の場合
• 　　３ー２ー２．Excelデータの場合
• 　　　３ー２ー２ー１．Select文
• 　　　３ー２ー２－２．Insert・Update文の場合
• 　　３ー２ー３．CSVデータの場合
• 　　　３ー２ー３ー１．Select文
• 　　　３ー２ー３－２．Insert文の場合
• 　３ー３．データを一括で処理
• ４．Accessデータの作成について
• 　４ー１．Accessファイルの作成
• 　４ー２．Accessテーブルの作成
• 　４ー３．Accessレコードの作成
• アプリ実例・関連する項目
• サンプルファイル

１．データベースへの接続方法

アプリケーション（今回はExcel）から各種データベースに接続・操作する方式には、主に「ODBC」「DAO」「ADO」の３種あります。技術としての順序は、（古い）ODBC → DAO → ADO（新しい） となります。
世の中には数多くのデータベースがありますが、今回の対象はExcelから（ほぼ無料で）使えるデータベースとして「Microsoft Access」「Excelのワークシートを活用したデータベース」「CSVなどのテキストファイルをデータベースにしたもの」の３つとしました。図０１は、アプリ（今回ExcelのVBA等）から接続するルートとしてどのようなものがあるかをまとめたものです。

図０１別窓
図０１の一番左のルート（緑色の線）は「DAO（Data Access Objects）」です。その名前の通り「Access標準」のものですが、Excel・CSV等にも接続可能ですし、今回は対象としていませんがSQL_Server等にも使用できるようです。
一番右のルート（青色の線）は「ODBC（Open DataBase Connectivity）」です。Windowsが管理しているODBCドライバーを使用するため汎用性は高く、C言語などからは色々操作できるようですが、Excelに限ってみると「データの取得（Select文）」のみが可能なようです（Insert等の操作が可能か、までは調べきれませんでした）。
中央のルート（赤色の線）は「ADO（ActiveX Data Object）」です。このADO方式では、データベースに対応したプロバイダーを指定しますが、JET・ACE対応プロバイダーを使いJET・ACEエンジンを経由して、Microsoft系のデータベースを操作する事が可能です。
また、ODBCに対応するプロバイダー（MSDASQL）も用意されているため、ODBCドライバーを使用して多くのデータベースに対応することが可能です。
インターネットで「Excel～データベース」を調べると、多くのサイトがこのADO方式を説明しています。
図０１のルートを辿ってみても分かるように、ADOは単独で動いている訳では無く、ODBCやDAOといった旧方式も活用した形で成立しているようです。
今回の項では、DAO方式（図０２では、黒線のルート）について説明していきます。
アプリ（今回はExcel）からAccessデータベースへのルートは①、Excelシート上のデータベースへのルートは②、CSV等のテキストファイルへのルートは③と、いずれもJET・ACEエンジンを使います。

図０２別窓
DAO以外の接続・操作については、以下を参照下さい。
　・DAOでAccess･Excel･CSVへ接続・操作　　←今回
　・ADOでAccess･Excel･CSVへ接続・操作(JET･ACEプロバイダ編)
　・ADOでAccess･Excel･CSVへ接続・操作(MSDASQLプロバイダ編)
　・ODBCでAccess･Excel･CSVへ接続・操作

２．DAOの文法について

DAOの全体の手順として、以下のようになります。
図０３別窓
「DAOオブジェクト生成」から「データベース接続」までは同じですが、データのやり取りの部分（図０３のOpenRecordsetメソッド・Executeメソッド部）で二つに分かれます。

	①	テーブル名を指定して「全データ」を取得後、自分で（挿入・変更・削除も含めて）データを処理
	②	SQL文を指定。Select文では取得した「絞り込みデータ」を自分で処理し、それ以外（Insert、Update、Delete）ではデータベース側で処理が実行される

「テーブル名を指定」する処理方法を例えるとすれば、Excelのワークシート上のデータを上から順に調べながら、対象となるデータを変更したり削除したりするイメージです。SQL文が苦手な方には取り付き易い手法かもしれません。

２ー１．DAOオブジェクト生成

DAOオブジェクトを生成するには、事前バインディングと実行時バインディングの２種類の方法があります。
事前バインディングでは、図０４のように「Microsoft Office XX.X Access database engine Object Library」にチェックをし有効にします。

図０４別窓
実行時バインディングの場合は、下記のようにCreateObjectでオブジェクトを生成します。
「Set DBEngineのオブジェクト名 = CreateObject("DAO.DBEngine.120")」

なお対象がAccessの場合、拡張子が「.mbd」の古いAccess（2007未満）の時は、以下のように設定してもOKのようです。 　実行時バインディング：「Set DBEngineのオブジェクト名 = CreateObject("DAO.DBEngine.36")」 　事前バインディング：「Microsoft DAO 3.6 Object Library」を有効化 但しOfficeが64ビット版の場合は、これらの設定をしようとするとエラーが発生します。一方32ビット版では正常に設定できますが、新しい拡張子「.accdb」のデータベースファイルを操作しようとすると、やはりエラーが発生してしまいます。また、データベースファイルを作成した時のバージョンでも可不可が以下のように異なります。 操作するPC 64ビット版Office 32ビット版Office DBEngine.120 DBEngine.36 DBEngine.120 DBEngine.36 DB ﾌｧｲﾙ ACEで作成 .accdb 〇 － 〇 × .mdb 〇 － 〇 × JETで作成 .mdb 〇 － 〇 〇 図０５別窓

今回のサンプルコードでは、新しいAccessを対象とし、実行時バインディングでDAOオブジェクトを生成していきます。

２ー２．データベース接続

データベースに接続するには、下記のようにOpenDatabaseメソッドを使います。構文は以下のようになります。
　DBEngine.OpenDatabase(Name, Options, ReadOnly, Connect)
戻り値はデータベースオブジェクトになります。
パラメータは４つあり、それぞれの内容は以下のようになります。

OpenDatabaseメソッドのパラメータ

パラメータ		内容
Name	必須	DBファイル名
Options	省略可	True=排他ﾓｰﾄﾞ,False(既定)=共有ﾓｰﾄﾞ
ReadOnly	省略可	True=読取専用,False(既定)=読取/書込
Connect	省略可	ﾊﾟｽﾜｰﾄﾞ等の接続情報 Access以外へ接続する為の情報

図０６別窓
必須パラメータ（Name）である「データベースファイル名」のみを指定した場合は、以下のような感じになります。
　Set DBオブジェクト名 = DBEngineのオブジェクト名.OpenDatabase(データベースファイル名)
なお、ここで言う「データベースファイル」とは、対象のデータベースにより、ちょっとニュアンスが変わってきます。データベース毎にまとめたのが図０７です。併行して「テーブル」の定義も載せています。

	データベースファイル	テーブル
Access	*.accdb, *.mdb	テーブル名
Excel	*.xlsx 等	ワークシート名
CSV等	CSVﾌｧｲﾙがあるﾌｫﾙﾀﾞｰ	CSVﾌｧｲﾙ名

図０７別窓
AccessやExcelのように、ファイル内に複数のテーブルを持てるタイプでは「ファイル名＝データベースファイル」となりますが、CSVファイルのようにファイル＝テーブルのようなものは「フォルダー名＝データベースファイル」となります。

なおMicrosoftのサイトでは、Nameパラメータは「DBファイル名､又はODBCデータソース名(DSN)」と説明しています。 この説明だと「DAO → ODBC」というルートが可能となるのですが、DSNを指定してみても「見つかりませんでした」のようなエラーが発生してしまいます。ファイルDSNなども試してみましたが動作せず、今のところ設定の仕方が不明のままです。

第４パラメータの「Connect」を使用すると、ExcelやCSV等に接続することが可能となりますし、またデータの構造なども指定することができます。Connectに指定するキーワードを図０８に整理してみました（他にも項目は存在するようです）。

DAO接続情報（Connect）の内容

項目	内容
先頭部	無し=Access "Excel 12.0"：Excel2007～ "Excel 8.0"：～Excel2003 "Text"：CSVやﾃｷｽﾄﾌｧｲﾙ ""(空文字)：DATABASEの指定でもOK(Access以外)
HDR	YES(既定)=先頭行がタイトル NO=先頭行からﾃﾞｰﾀ
IMEX	0=書込(ﾃﾞｰﾀ型混在時はｴﾗｰ：以下で説明) 1=読取専用(ﾃﾞｰﾀ型混在時､文字列型で読込み：同) 2=読取/書込(ﾃﾞｰﾀ型混在時はｴﾗｰ：同)
FMT	ﾃｷｽﾄﾌｧｲﾙの区切り種類(ｶﾝﾏ区切りのみ) Delimited､又はCSVDelimited
DATABASE	DBの場所（最後の「¥」有無はどちらでも可） 先頭でDBのPathを指定した時は不要

図０８別窓
データベース名は通常「OpenDatabaseの第１パラメータ（Name）に設定」しますが、OpenDatabaseの第１パラメータ（Name）に「""（空文字）」を指定＋接続文字列のDatabaseに「Pathを含めたデータベース名」を指定　することでも正常に動作します。但しデータベースがAccessの場合には通じません。
HDRは、データの先頭行が「タイトル行（Yes）」か「データ（No）」かの指定です。
IMEXは開くモードの指定です。他サイトでは、以下のように説明しています。
　IMEX=0：書き込み（データ型が混在している時にはエラー発生）
　IMEX=1：読み取り専用（データ型混在時は文字列型で読み込む）
　IMEX=2：読み取り／書き込み（データ型が混在している時にはエラー発生）
この検証のため、第４パラメータが必須の「Excelシートデータベース」「CSVファイル」を対象にして、今回「コード例」内で条件を振って試してみた結果が図０９です。
なお図０９の、左端の「Excel」「CSV」は対象とするデータベースを、「Table」「SQL」はOpenRecordsetやExecuteメソッドへ指定する第１パラメータをテーブルにするかSQL文にするかを、「Read」「Write」は、処理が参照（Select）か変更（Insert,Update,Delte）かを表しています。

			IMEX
			0	1	2	省略
Excel	Table	Read	〇／△	〇／〇	〇／△	〇／△
		Write	〇／〇	×／×	×／×	〇／〇
	SQL	Read	〇／×	〇／〇	〇／×	〇／×
		Write	〇／〇	×／×	×／×	〇／〇
CSV	Table	Read	〇／〇	〇／〇	〇／〇	〇／〇
		Write	〇／〇	〇／〇	〇／〇	〇／〇
	SQL	Read	〇／×	〇／×	〇／×	〇／×
		Write	〇／〇	〇／〇	〇／〇	〇／〇

データ型：混在無し／混在有り
△印：混在データ型は空白データとなる
SQL×WriteのみExecute。他はOpenRecordset。
図０９別窓
この結果を見る限り、他サイトが説明している状態とはちょっと異なるようです。特にIMEX=2はExcelを使うと、書き込みが出来ない結果となりました。
また「IMEX=1」は、他サイトでも言われている通り「データ型混在時には文字列型で読み込み」となります。但し、先頭から８行までの間に異なるデータ型が出てこないと「全て同一のデータ型」と認識されてしまい、９行目以降で異なったデータ型が出てくるとエラーが発生してしまう事には注意が必要です。
なお、この為に「TypeGuessRows（データ形式の推測を行う行数）」が存在しているはずなのですが、TypeGuessRowsに何を指定しても、値は「８（8行分でデータ型を推定）」のままです。つまりDAOでは「９行目以降にデータ型が混在しているデータベースはエラーが発生」することになります。
なおIMEX省略時（≒既定値）は、図０９を見る限りでは「IMEX=0」のようです。
また「FMT」はテキストファイルのデータ間を何で区切るか（FMTはFormatの略）の指定です。元々は「CSVDelimited」がカンマ区切り、「TABDelimited」がTAB区切りだったようですが、「テキストファイルはカンマ区切りのみ」がデータベースとして操作可能です。「ACEではカンマのみだが、JETではTABも可能」との記述も見つけたのですが、うまくいきませんでした。
設定しなくても問題無いのですが、設定するのであれば「Delimited」か「CSVDelimited」を指定して下さい。
DATABASEには、データベースのパス名＋ファイル名を指定でき、その際には先頭部は「""（空文字）」でも良いとの説明をしましたが、現在のところ明確なメリットが見いだせずにいます。

２ー３．データベースとのデータやり取り

DAOでデータベース側とデータのやりとりを行うには、OpenRecordsetメソッド及びExecuteメソッドを使用します。図０３でも示したように、テーブル名を指定する方法ではOpenRecordsetメソッドのみを使用します。またSQL文を指定する方法では、Select文ではOpenRecordsetメソッドを使用し、それ以外（Insert,Update,Delete）ではExecuteメソッドを使用します。

２ー３ー１．OpenRecordsetメソッド

データベースからデータを取得するにはOpenRecordsetメソッドを使用します。構文は以下のようになり、戻り値はレコードセットオブジェクトとなります。
DBEngine.OpenRecordset(Name, Type, Options, LockEdit)
パラメータは図１０の４つです。第１パラメータのNameのみ必須で、ここに「テーブル名①」または「SQL文②（Select文）」を文字列で指定します。

OpenRecordsetのパラメータ

パラメータ		内容
Name	必須	Table名① SQL文②
Type	省略可	開く形（図１１参照）
Options	省略可	特性（図１２参照）
LockEdit	省略可	ロック方式（図１３参照）

図１０別窓
テーブル名は、データベースがAccessの時は「テーブル名」、Excelの時は「ワークシート名（両端の角カッコは不要）」、CSV等のテキストファイルを使う時は「ファイル名（両端の角カッコは不要）」となります。

なお、アプリであるAccessでもVBAが使えますが、AccessのVBAでのOpenRecordsetメソッドと、ExcelのVBAでのOpenRecordsetメソッドはちょっと異なっているようです。色々調べたり試したりしても、どうしてもスッキリとしないのは、世の中のサイトの説明が皆Access寄りであって、私が実行しているのがExcelの環境であるためでは？　と感じています。 以降の説明もAccess寄りになってしまうのですが、Excel VBAでの試行については「パラメータの組み合わせについて」を参考にして下さい。

第２パラメータのTypeは、レコードセットを開く形を図１１の様に指定します。

OpenRecordsetのType

定数	値	内容
dbOpenTable	1(既定①)	テーブルタイプで開く （テーブル全データをPCメモリー上に展開。ローカルデータのみが対象）
dbOpenDynaset	2(既定②)	ダイナセットタイプで開く （クエリを実行した結果を、更新可の状態で表示）
dbOpenSnapshot	4	スナップショットタイプで開く （クエリを実行した結果のため更新不可）
dbOpenForwardOnly	8	前方スクロールタイプで開く （スクロール方向が前方向のみで更新不可）
dbOpenDynamic	16	ダイナミックタイプで開く（ODBCDirectワークスペースのみで使用可）

図１１別窓
図１１の「テーブルタイプ」「ダイナセットタイプ」「スナップショットタイプ」「前方スクロールタイプ」「ダイナミックタイプ」の違いを色々調べてはみました。しかし違いが良く分からない上に、図１１内でカッコに記したような単純な動作では無いことも分かりました。図１６・図１８では、Nameパラメータ＋Typeパラメータ＋Optionパラメータの組み合わせ時にデータベースへの可能な実行内容をまとめましたので、参照下さい。
OpenRecordsetメソッドの第３パラメータ（Option）には、図１２のような値が設定可能です。

OpenRecordsetのOption

定数	値	内容
dbDenyWrite	1	他ユーザーはレコードの修正・追加が不可
dbDenyRead	2	他ユーザーはテーブルのデータの読み取り不可
dbReadOnly	4	読み取り専用として開く
dbAppendOnly	8	Insertは可。Select/Update/Deleteは不可
dbInconsistent	16	矛盾を許す更新を可能にする
dbConsistent	32	他のレコードに影響を与えないフィールドにのみ更新
dbSQLPassThrough	64	ODBC データベースに SQL ステートメントを送信します
dbFailOnError	128	エラーが発生した場合、更新をロールバック
dbForwardOnly	256	前方スクロールタイプのRecordsetを作成
dbSeeChanges	512	編集中データを他ユーザーが変更しようとした場合、エラーが発生
dbRunAsync	1024	クエリを非同期で実行
dbExecDirect	2048	SQLPrepare ODBC 関数を最初に呼び出さずに、クエリを実行

図１２別窓
第４パラメータのLockEditには、図１３のような値が設定可能です。

OpenRecordsetのLockEdit

定数	値	内容
dbOptimisticValue	1	列値に基づく共有的同時ロック（他ユーザーの変更を禁止・参照許可）(ODBCDirectﾜｰｸｽﾍﾟｰｽのみ)
dbPessimistic	2	排他的同時ロック（他ユーザーの参照・変更を禁止）LockEdits=True
dbOptimistic	3	レコードIDに基づく共有的同時ロック（他ユーザーの変更を禁止）LockEdits=False
dbOptimisticBatch	5	共有的バッチ更新を可能 (ODBCDirectﾜｰｸｽﾍﾟｰｽのみ)

図１３別窓

２ー３ー２．Excecuteメソッド

データベースのデータに変更を加えるにはExcecuteメソッドを使用します。構文は以下のようになります。
DBEngine.Excecute(Query, Options)
第１パラメータのQueryは、SQL文を文字列で指定します。
第２パラメータのOptions（省略可）は、図１４の値を指定します。なおMicrosoftサイトの説明では、図１２の「RecordsetOptionEnum定数」が使用可とも読み取ることが出来ます。試してみると確かに図１４以外の定数値でも動作しますし、図１４の中にも動かない定数もあります。この動作可不可については図１８で紹介します。

OpenRecordsetのOption

定数	値	内容
dbDenyWrite	1	他ユーザーはレコードの修正・追加が不可
dbInconsistent	16	矛盾を許す更新を可能にする
dbConsistent	32	他のレコードに影響を与えないフィールドにのみ更新
dbSQLPassThrough	64	ODBC データベースに SQL ステートメントを送信します
dbFailOnError	128	エラーが発生した場合、更新をロールバック
dbSeeChanges	512	編集中データを他ユーザーが変更しようとした場合、エラーが発生
dbRunAsync	1024	クエリを非同期で実行
dbExecDirect	2048	SQLPrepare ODBC 関数を最初に呼び出さずに、クエリを実行

図１４別窓

２ー３ー３．パラメータの組み合わせについて

２ー３ー３ー１．Accessとしての組み合わせ

OpenRecordsetメソッドの４つのパラメータと、Executeメソッドの２つのパラメータについて説明してきましたが、この全ての組み合わせが設定可能な訳ではありません。Microsoftを含む様々なサイトで調べてみると、TypeパラメータとOptionsパラメータの間には、図１５のような制限がありそうです。〇が使用可と言われているものです。

定数	値	Typeパラメータ値
		1	2	4	8
dbDenyWrite	1	〇	〇	〇	〇
dbDenyRead	2	〇
dbReadOnly	4	〇	〇	〇	〇
dbAppendOnly	8		〇
dbInconsistent	16		〇	〇
dbConsistent	32		〇	〇
dbSQLPassThrough	64			〇
dbFailOnError	128		(〇)
dbForwardOnly	256			〇
dbSeeChanges	512		〇
dbRunAsync	1024	？	？	？	？
dbExecDirect	2048	？	？	？	？

図１５別窓
但し、この対照表はAccessのVBAでの制限のようで、Excelから動かそうとした場合は違う組み合わせになるようです。なおTypeの定数dbOpenDynamic（値=16）については情報が全く無いため省略しました。

２ー３ー３ー２．Excel VBAとしてのTypeとOptionsパラメータの組み合わせ

今回ExcelのVBAで、OpenRecordsetの第２パラメータ（Type）と第３パラメータ（Options）実際に試してみると、図１５とは異なる結果となりました。まず第１パラメータにテーブルを指定した場合が図１６です。

定数	値	Typeパラメータ値
		1	2	4	8	16
dbDenyWrite	1	SIUD	SIUD	S･･･	S･･･	････
dbDenyRead	2	SIUD	SIUD	S･･･	S･･･	････
dbReadOnly	4	S･･･	S･･･	S･･･	S･･･	････
dbAppendOnly	8	SIUD	･I･･	S･･･	S･･･	････
dbInconsistent	16	SIUD	SIUD	S･･･	S･･･	････
dbConsistent	32	SIUD	SIUD	S･･･	S･･･	････
dbSQLPassThrough	64	SIUD	････	････	････	････
dbFailOnError	128	SIUD	SIUD	S･･･	S･･･	････
dbForwardOnly	256	SIUD	S･･･	S･･･	S･･･	････
dbSeeChanges	512	SIUD	SIUD	S･･･	S･･･	････
dbRunAsync	1024	････	････	････	････	････
dbExecDirect	2048	････	････	････	････	････

S=Select処理、I=Insert処理、U=Update処理、D=Delete処理
図１６別窓
表中の例えば「SIUD」の組み合わせでは、Select処理・Insert処理・Update処理・Delete処理が（Accessでは）実行可能を示しており、また「･I･･」はInsert処理のみ実行可能を示します。「････」は、どの処理も不可（≒レコードセットが作成できない）を表します。
なお図１６はAccessのデータベースファイルで試したものであり、ExcelのワークシートではDeleteは実行できず、CSVファイルではUpdateとDeleteが実行できませんのでご注意下さい。
図１５と図１６を比べると結構違います。とても同じ表とは思えません。そこでテーブルを指定し、TypeパラメータとOptionsパラメータを振った時のレコードセットのプロパティ（違いが出るものを抽出）を調べてみた結果が図１７です。
なお対象のデータベースは、Accessデータ（4レコード在中）を使用しています。

図１７別窓
Type=16とOptions=1024,2048はレコードセットが戻されないため省略していますが、赤字にした部分が周辺のプロパティ値と異なる事を強調しているつもりです。図１６での異なる部分と、図１７の異なる部分はほぼ一致している様に見えます。
また、第１パラメータにSQL文を指定する場合は、図１８のような結果です。Select文はOpenRecordsetメソッドを使いますし、それ以外はExecuteメソッドを使いますが、Optionsパラメータは同じ種類ですので同じ表としてまとめました。

Options定数	値	OpenRecordset					Execute
		Select文					Insert 文	Update 文	Delete 文
		Typeパラメータ値
		1	2	4	8	16
dbDenyWrite	1	×	〇	〇	〇	×	〇	〇	〇
dbDenyRead	2	×	〇	〇	〇	×	〇	〇	〇
dbReadOnly	4	×	〇	〇	〇	×	〇	〇	〇
dbAppendOnly	8	×	×	〇	〇	×	〇	〇	〇
dbInconsistent	16	×	〇	〇	〇	×	〇	〇	〇
dbConsistent	32	×	〇	〇	〇	×	〇	〇	〇
dbSQLPassThrough	64	〇	〇	〇	〇	×	〇	〇	〇
dbFailOnError	128	×	〇	〇	〇	×	〇	〇	〇
dbForwardOnly	256	×	〇	〇	〇	×	〇	〇	〇
dbSeeChanges	512	×	〇	〇	〇	×	〇	〇	〇
dbRunAsync	1024	×	×	×	×	×	×	×	×
dbExecDirect	2048	×	×	×	×	×	×	×	×

図１８別窓
SQL文を指定し、TypeパラメータとOptionsパラメータを振った時のレコードセットのプロパティの結果が図１９です。
こちらも、図１８のOpenRecordset部での異なる部分と図１９の異なる部分は、ほぼ一致している様に見えます。

図１９別窓
以上の結果を見てみると、一般的に言われている図１５のような適合可否は、Access上でOpenRecordsetやExecuteメソッドを使用する場合のものなのかもしれません（Accessを保有していないので未確認です）。ExcelのVBAで使用する限りでは、図１６や図１８を参考にしてパラメータを決めて頂ければ良いかと思います。

２ー３ー３ー３．Excel VBAとしてのLockEditパラメータの組み合わせ

第４パラメータのLockEditは、Accessでは「True（図１３のdbPessimistic相当）」が既定値のようです。第４パラメータを指定せずにOpenRecordsetメソッドを実行した際にも、図１７・図１９の表のLockEditsプロパティ値のように「True 又は 使用不可」となります。
LockEditパラメータは、このTrueとなっている組み合わせに対して「True=dbPessimistic（値=2）」「False=dbOptimistic（値=3）」を指定できるようです。

３．コード例

今回のコード例では、「Access」「Excel」「CSV（カンマ区切りテキスト）」のデータを扱います。そのデータは、以下のような形の「4列×4行」としました。St、Nu、Dt、BLが列名になります。Excel、CSVも先頭行は列名行としています。

St(String型)	Nu(Double型)	Dt(Date型)	BL(Boolean型)
"abc"	123	2023/1/2	True
"def"	123	2023/2/2	False
"abc"	456	2023/3/2	False
"def"	456	2023/4/2	True

図２０別窓
Excelデータは手書きでワークシート上に並べ、CSVデータはメモ帳などで手書き入力しました。なおAccessデータはAccessアプリで作成するのでは無く、「Accessデータの作成について」で紹介するように「Excel VBAからデータを生成」させています。
ファイル名等は、以下の通りになります。

	データベース	テーブル
Access	its-041.accdb	"testtable"
Excel	its-041.xlsm	"DB"
CSV	(ExcelのPath)	its-041.csv

図２１別窓

３ー１．テーブル名を指定する場合

３ー１ー１．Accessデータの場合

OpenRecordsetメソッドの第１パラメータに「Accessのテーブル名」を指定し、全データをレコードセットとして取り出した後に自分で処理を行うコードの例が図２２になります。

0. '==========　⇩(1)　Accessデータでテーブル名を指定する場合 ============
1. Sub DAO_Access01()
2. 　Dim DBEngine As Object 　 '←DBエンジン
3. 　Dim DBname As String 　　 '←データベース名
4. 　Dim DB As Object 　　　　 '←データベース
5. 　Dim SQL As String 　　　　 '←実行するテーブル名
6. 　Dim rs As Object 　　　　　 '←レコードセット
7. 　Dim i As Integer 　　　　　 '←書き込み行位置
9. 　Set DBEngine = CreateObject("DAO.DBEngine.120")
11. 　DBname = ThisWorkbook.Path & "¥" & "its-041.accdb"
12. 　Set DB = DBEngine.OpenDatabase(DBname)
14. 　SQL = "testtable"
15. 　Set rs = DB.OpenRecordset(SQL)
17. 　Sheet1.Range("B2").CurrentRegion.ClearContents
19. 　With Sheet1.Range("B2")
20. 　　Do While Not rs.EOF
21. 　　　.Offset(i, 0) = rs.Fields(0).Value
22. 　　　.Offset(i, 1) = rs.Fields(1).Value
23. 　　　.Offset(i, 2) = rs.Fields(2).Value
24. 　　　.Offset(i, 3) = rs.Fields(3).Value
26. 　　　rs.movenext
27. 　　　i = i + 1
28. 　　Loop
29. 　End With
31. 　rs.Close
32. 　DB.Close
34. 　Set rs = Nothing
35. 　Set DB = Nothing
36. 　Set DBEngine = Nothing
37. End Sub

図２２別窓
０９行目「Set DBEngine = CreateObject("DAO.DBEngine.120")」では、DAOのDBエンジンオブジェクトを生成します。
１１行目「DBname = ThisWorkbook.Path & "¥" & "its-041.accdb"」では、接続するデータベース（Accessの場合は、Accessファイル名）を変数DBnameに代入しています。
１２行目「Set DB = DBEngine.OpenDatabase(DBname)」で、データベースに接続します。
１４行目「SQL = "testtable"」は、取得するテーブル名を変数SQLとしています。
１５行目「Set rs = DB.OpenRecordset(SQL)」では、１４行目のテーブルの全データを取得し、レコードセット「rs」としています。レコードセットには、カーソルの位置にあるレコードのデータが見えていますので、列（フィールド）を指定することで、その値が取り出せます。
１７～２９行目では、データをExcelのシートに書き出しています。SQL文で言えばSelectに相当します。
まず１７行目「Sheet1.Range("B2").CurrentRegion.ClearContents」で、古いデータをクリアします。
１９行目「With Sheet1.Range("B2")」で、シートへの書き込みの基準セルを決めます。
２０～２８行目のDo～Loopで、データを最終行まで処理していきます。カーソルを移動させるのは２６行目「rs.movenext」です。
２０行目「Do While Not rs.EOF」で、レコードセットの最終行が来るまで繰り返します。
２１行目「.Offset(i, 0) = rs.Fields(0).Value」では、１列目（rs.Fields(0)）の値を１９行目で指定した基準セル列のｉ個下のセル（.Offset(i, 0)）に書き込みます（列番号はゼロ始まり）。
２２～２４行目も同様に、２～４列目の値を横に並べて書き込んでいきます。なお、今回は図２０のように各列を色々なデータ型にしています。もしセルに貼り付けた時に表示がおかしくなる（例えば、日付が数値として表示される）場合には、CDateやFormatなどを使って揃えて下さい。
なお列の値は「rs.Fields(0).Value」という書き方の他にも、列名を使って「rs.Fields("St").Value」「rs!St.Value」や「rs.Fields!St.Value」としてもOKです。
また「For j = 0 To rs.filelds.Count - 1」のように、カウンタ変数を列数分だけ回すようにすれば、２１～２４行目を１行で表すことも可能です。但し行毎に表示形式を変更するような細工は難しくなります。
２６行目「rs.movenext」では、レコードセットのカーソルを次の行に移動させています。レコードセットのAbsolutePositionプロパティが１つ増える形になります。
なお、カーソルを移動するにはMoveNextを含めて、以下の５種があります。
　MoveFirst：先頭レコードに移動
　MoveLast：最終レコードに移動
　MoveNext：次のレコードに移動
　MovePrevious： 1つ前のレコードに移動
　Move [行位置]：指定した行位置に移動
２７行目「i = i + 1」は、２１～２４行目の「書き込むセルの行位置」を下に移動させています。
レコードセットのカーソルが最終行（rs.EOF = True）まで達したら、３１行目「rs.Close」でレコードセットを閉じ、３２行目「DB.Close」でデータベースを閉じます。
図２２は「Select相当」のコードでしたが、レコードセットに対して「データを挿入（Insert相当）」するには図２３のようなコードにします。図２２の１７～２９行目を下記で置き換える形です。

40. '==========　⇩(2)　データの挿入 ============
41. 　rs.AddNew
42. 　　rs.Fields(0) = "PQR"
43. 　　rs.Fields(1) = 897
44. 　　rs.Fields(2) = #11/20/2000#
45. 　　rs.Fields(3) = True
46. 　rs.Update

図２３別窓
４１行目「rs.AddNew」で、レコードセットのEditModeプロパティ値が「0 → 2」に変更され、新たな行を準備します。Addしたからと言って、この段階ではテーブルの行数はまだ増えていません。
４２行目「rs.Fields(0) = "PQR"」では、１列目にデータを入れます。４３～４５行目も２～４列目にデータを入れます。
最後に４６行目「rs.Update」で、レコードセットを更新させることで、レコードセットに１行追加されます。
レコードセットに対して「データを変更（Update相当）」するには図２４のようなコードにします。図２２の１７～２９行目を下記で置き換える形です。

50. '==========　⇩(3)　データの変更 ============
51. 　Do While Not rs.EOF
52. 　　If CDate(rs.Fields(2).Value) = #11/20/2000# Then
53. 　　　rs.Edit
54. 　　　rs.Fields(0) = "XYZ"
55. 　　　rs.Update
56. 　　End If
58. 　　rs.movenext
59. 　Loop

図２４別窓
５１行目「Do While Not rs.EOF」で、レコードセットの最終行が来るまで繰り返します。
５２行目「If CDate(rs.Fields(2).Value) = #11/20/2000# Then」で、変更するレコードを探します。SQL文でのWhere句に相当します。レコードが見つかったら、５３～５５行目を実行します。
５３行目「rs.Edit」では、レコードセットのEditModeプロパティ値が「0 → 1」に変更され、編集モードになります。
５４行目「rs.Fields(0) = "XYZ"」で、目的の列の値を変更し、５５行目「rs.Update」でレコードセットを更新します。
５５行目の更新処理は、変更した各行毎（movenextをする前）に行う必要があります。
５８行目「rs.movenext」ではカーソル行を次行に移動させ、５２行目の検索を続けていきます。
レコードセットに対して「データを削除（Delete相当）」するには図２５のようなコードにします。図２２の１７～２９行目を下記で置き換える形です。

70. '==========　⇩(4)　データの削除 ============
71. 　Do While Not rs.EOF
72. 　　If CDate(rs.Fields(2).Value) = #11/20/2000# Then
73. 　　　rs.Delete
74. 　　End If
76. 　　rs.movenext
77. 　Loop

図２５別窓
７１行目「Do While Not rs.EOF」で、レコードセットの最終行が来るまで繰り返します。
７２行目「If CDate(rs.Fields(2).Value) = #11/20/2000# Then」で、削除するレコードを探します。SQL文でのWhere句に相当します。レコードが見つかったら、７３行目を実行します。
７３行目「rs.Delete」では、カーソルのあるレコードを削除します。Deleteの場合は、EditModeを経ることなく直接削除してしまいますので、挿入や変更の時のような「rs.Update」は不要です。
７６行目「rs.movenext」ではカーソル行を次行に移動させ、７２行目の検索を続けていきます。

３ー１ー２．Excelデータの場合

３ー１ー２ー１．Select相当

データがExcelのワークシート上（ここでは、Sheets("DB")上 ）にある場合は、OpenRecordsetメソッドの第１パラメータに「Excelのシート名」を指定することで、全データのレコードセットを取り出せます。

80. '==========　⇩(5)　Excelデータでテーブル名を指定する場合 ============
81. Sub DAO_Excel01()
82. 　Dim DBEngine As Object 　 '←DBエンジン
83. 　Dim DBname As String 　　 '←データベース名
84. 　Dim DB As Object 　　　　 '←データベース
85. 　Dim SQL As String 　　　 '←実行するテーブル名
86. 　Dim rs As Object 　　　　 '←レコードセット
87. 　Dim i As Integer 　　　　 '←書き込み行位置
89. 　Set DBEngine = CreateObject("DAO.DBEngine.120")
91. 　DBname = ThisWorkbook.Path & "¥" & ThisWorkbook.Name
92. 　Set DB = DBEngine.OpenDatabase(DBname, False, False, "Excel 12.0;HDR=Yes;IMEX=1;")
94. 　SQL = "DB$" 　　 '←データベースのシート名
95. 　Set rs = DB.OpenRecordset(SQL)
97. 　Sheet1.Range("B2").CurrentRegion.ClearContents
99. 　With Sheet1.Range("B2")
100. 　　Do While Not rs.EOF
101. 　　　.Offset(i, 0) = rs.Fields(0).Value
102. 　　　.Offset(i, 1) = rs.Fields(1).Value
103. 　　　.Offset(i, 2) = rs.Fields(2).Value
104. 　　　.Offset(i, 3) = rs.Fields(3).Value
106. 　　　rs.movenext
107. 　　　i = i + 1
108. 　　Loop
109. 　End With
111. 　rs.Close
112. 　DB.Close
114. 　Set rs = Nothing
115. 　Set DB = Nothing
116. 　Set DBEngine = Nothing
117. End Sub

図２６別窓
８９行目「Set DBEngine = CreateObject("DAO.DBEngine.120")」では、DAOのDBエンジンオブジェクトを生成します。
９１行目「DBname = ThisWorkbook.Path & "¥" & ThisWorkbook.Name」では、接続するデータベース（Excelの場合は、Excelファイル名）を変数DBnameに代入しています。今回は、マクロのあるブック上にデータベースがありますので、ThisWorkbookとなります。
９２行目「Set DB = DBEngine.OpenDatabase(DBname, False, False, "Excel 12.0;HDR=Yes;IMEX=1;")」で、データベースに接続しています。
Accessの時とは異なり、OpenDatabaseメソッドに４つのパラメータ（図０６参照）を指定する必要があります。
まず第１パラメータNameは、Accessの時と同じく「データベース名」です。
第２パラメータOptionsと第３パラメータReadOnlyは既定値（共有モード × 読取/書込）で良い場合でも値（今回は両方ともFalse）を指定しないと、エラーになるようです（Accessの時は、図２２の１２行目のように両方とも省略しても問題無い）。
第４パラメータConnectへは「Excelへの接続情報」として「"Excel 12.0;HDR=Yes;IMEX=1;"」を指定します。書き方としては項目を「;（セミコロン）」で区切り、全体としては文字列とします。
先頭の「Excel 12.0」は、接続するデータベースの種類としてExcelを指定します。且つバージョンがExcel2007以降ですので「12.0」となります。一方Excel2003以前の場合は「8.0」です。
次の「HDR=Yes」は先頭行がタイトル行か否かの設定です。Yesが既定値ですが、明示的に指定しています。
最後の「IMEX=1」は読取/書込の設定で、ここでは「読取（値=1）」を指定しています。なお、図０９でも説明したように、同じ列内にデータ型が混在していなければIMEX値は何でもOKですが、混在している場合に「0=書込」又は「2=読取/書込」を指定してしまうと「データ型の異なる値はNull」となりますので注意が必要です。

但し「1=読取」に設定したとしても、９行目以降に異なるデータ型が存在する場合は、同様にNullとなります。これは「データ型が揃っているか否かを調べる行数が８行」であるためです。 そのために「TypeGuessRows=」という設定が存在するはずなのですが、例え「TypeGuessRows=20;」等の設定を追加しても機能してくれず、「８行分しか調べない」のです。ですので、データ型は混在させない事が重要です。

９４行目「SQL = "DB$"」は、テーブル相当（ExcelシートDBの場合は、シート名＋「$」印）を変数SQLに代入します。
９５行目「Set rs = DB.OpenRecordset(SQL)」で、レコードセットを取得します。
以下は図２２の時と全く同じで、９７行目「Sheet1.Range("B2").CurrentRegion.ClearContents」でシート上の元データをクリアし、９９行目「With Sheet1.Range("B2")」でシートへの書き込みの基準セルを決め、１００行目「Do While Not rs.EOF」でデータを最終行まで処理し、１０１行目「.Offset(i, 0) = rs.Fields(0).Value」で、シート上に１列目の値を書き込みます。１０２～１０４行目も２～４列目の値を書き込んでいます。
１レコード文の処理が完了したら、１０６行目「rs.movenext」でカーソルを移動させ、書き込む行位置も１０７行目「i = i + 1」で下に移動させます。

３ー１ー２ー２．Insert、Update相当

図２６はレコードセットを取得後、シート上にデータを書き出すというSQLで言うSelect操作でした。同じ手法でInsert、Updateも可能ですが、一箇所注意しなければいけないところがあります。Insert相当のコードを図２７に示します。

120. '==========　⇩(6)　Excelデータの更新（挿入） ============
121. Sub DAO_Excel02()
122. 　Dim DBEngine As Object 　 '←DBエンジン
123. 　Dim DBname As String 　　 '←データベース名
124. 　Dim DB As Object 　　　　 '←データベース
125. 　Dim SQL As String 　　　 '←実行するテーブル名
126. 　Dim rs As Object 　　　　 '←レコードセット
127. 　Dim i As Integer 　　　　 '←書き込み行位置
129. 　Set DBEngine = CreateObject("DAO.DBEngine.120")
131. 　DBname = ThisWorkbook.Path & "¥" & ThisWorkbook.Name
132. 　Set DB = DBEngine.OpenDatabase(DBname, False, False, "Excel 12.0;HDR=Yes;IMEX=0;")
134. 　SQL = "DB$"
135. 　Set rs = DB.OpenRecordset(SQL)
137. 　rs.AddNew
138. 　　rs.Fields(0) = "PQR"
139. 　　rs.Fields(1) = 897
140. 　　rs.Fields(2) = #11/20/2000#
141. 　　rs.Fields(3) = True
142. 　rs.Update
144. 　rs.Close
145. 　DB.Close
147. 　Set rs = Nothing
148. 　Set DB = Nothing
149. 　Set DBEngine = Nothing
150. End Sub

図２７別窓
注意が必要なのは、１３２行目「Set DB = DBEngine.OpenDatabase(DBname, False, False, "Excel 12.0;HDR=Yes;IMEX=0;")」の「IMEX=0」の部分です。
Select相当の図２６では、データ型混在時も考慮して「IMEX=1」としました。しかしデータに変更を加えるInsert相当やUpdate相当（図０９の、Excel × Table × Write 行）では、「IMEX=1」又は「IMEX=2」を指定するとエラー（番号=3027:「データベースまたはオブジェクトは読み取り専用なので更新できません」）が発生してしまいます。
その他は同じで、１３７～１４２行目でデータ行の追加を行っています。内容はAccess時の図２３と全く同じです。
データ変更（Update相当）の場合は、図２７の１３７～１４２行目を図２８のように置き換えます。内容はAccess時の図２４と全く同じです。

160. '==========　⇩(7)　Excelデータの変更 ============
161. 　Do While Not rs.EOF
162. 　　If CDate(rs.Fields(2).Value) = #11/20/2000# Then
163. 　　　rs.Edit
164. 　　　rs.Fields(0) = "XYZ"
165. 　　　rs.Update
166. 　　End If
168. 　　rs.movenext
169. 　Loop

図２８別窓
なお、Excelシートをデータベースにする際は、「Select（参照）」「Insert（挿入）」「Update（変更）」操作のみが可能で、Delete（削除）操作を行おうとすると「このISAMではリンクテーブル内のデータを削除することはできません」と言う実行時エラーが発生します。

３ー１ー３．CSVデータの場合

データがCSV等のテキストファイル（ここでは、its-041.csv ）である場合は、OpenRecordsetメソッドの第１パラメータに「ファイル名」を指定することで、全データのレコードセットを取り出せます。

180. '==========　⇩(8)　CSVデータでファイル名を指定する場合 ============
181. Sub DAO_CSV01()
182. 　Dim DBEngine As Object 　 '←DBエンジン
183. 　Dim DBpath As String 　　 '←データベース名
184. 　Dim DB As Object 　　　　 '←データベース
185. 　Dim SQL As String 　　　 '←実行するテーブル名
186. 　Dim rs As Object 　　　　 '←レコードセット
187. 　Dim i As Integer 　　　　 '←書き込み行位置
189. 　Set DBEngine = CreateObject("DAO.DBEngine.120")
191. 　DBpath = ThisWorkbook.Path
192. 　Set DB = DBEngine.OpenDatabase(DBpath, False, False, "Text;HDR=Yes;")
194. 　SQL = "its-041.csv"
195. 　Set rs = DB.OpenRecordset(SQL)
197. 　Sheet1.Range("B2").CurrentRegion.ClearContents
199. 　With Sheet1.Range("B2")
200. 　　Do While Not rs.EOF
201. 　　　.Offset(i, 0) = rs.Fields(0).Value
202. 　　　.Offset(i, 1) = rs.Fields(1).Value
203. 　　　.Offset(i, 2) = rs.Fields(2).Value
204. 　　　.Offset(i, 3) = rs.Fields(3).Value
206. 　　　rs.movenext
207. 　　　i = i + 1
208. 　　Loop
209. 　End With
211. 　rs.Close
212. 　DB.Close
214. 　Set rs = Nothing
215. 　Set DB = Nothing
216. 　Set DBEngine = Nothing
217. End Sub

図２９別窓
１８９行目「Set DBEngine = CreateObject("DAO.DBEngine.120")」では、DAOのDBエンジンオブジェクトを生成します。
１９１行目「DBpath = ThisWorkbook.Path」では、接続するデータベース（テキストファイルの場合は、ファイルのおいてある場所）を変数DBpathに代入します。今回はマクロのあるブックと同じ場所にCSVファイルがあるので、ThisWorkbook.Pathとなります。
１９２行目「Set DB = DBEngine.OpenDatabase(DBpath, False, False, "Text;HDR=Yes;")」で、テキストファイルの存在する場所に接続しています。
Excelの時と同様に、OpenDatabaseメソッドに４つのパラメータ（図０６参照）を指定する必要があります。
第１パラメータNameには、テキストファイルの存在する場所を指定します。
第２パラメータOptionsと第３パラメータReadOnlyは、既定値（共有モード × 読取/書込）で良い場合でも値（今回は両方ともFalse）を指定しないと、エラーになります。
第４パラメータConnectへは「テキストファイルへの接続」、及びテーブルの「先頭がタイトル行」である事から「"Text;HDR=Yes;"」を指定します。
なお、ここではIMEXは指定していませんが、図０９でも分かる通り「CSV × Table」は、どれを指定しても〇のため指定していません。
１９４行目「SQL = "its-041.csv"」は、テキストファイル名を指定します。これがデータベースのテーブル相当になります。
１９５行目「Set rs = DB.OpenRecordset(SQL)」で、レコードセットを取得します。
以下は図２２と全く同じで、１９９行目「With Sheet1.Range("B2")」でシートへの書き込みの基準セルを決め、２００行目「Do While Not rs.EOF」でデータを最終行まで処理し、２０１行目「.Offset(i, 0) = rs.Fields(0).Value」で、シート上に１列目の値を書き込みます。２０２～２０４行目も２～４列目の値を書き込んでいます。
１レコード文の処理が完了したら、２０６行目「rs.movenext」でカーソルを移動させ、書き込む行位置も２０７行目「i = i + 1」で下に移動させます。
図２９はレコードセット取得後、Excelシート上にデータを書き出すSQLのSelect相当の処理でした。同じ手法で図２９の１９９～２０９行目を図３０で置き換えることで、Insert操作（レコード追加）が可能です。内容は図２３と全く同じです。

220. '==========　⇩(9)　CSVデータの追加 ============
221. 　rs.AddNew
222. 　　rs.Fields(0) = "PQR"
223. 　　rs.Fields(1) = 897
224. 　　rs.Fields(2) = #11/20/2000#
225. 　　rs.Fields(3) = True
226. 　rs.Update

図３０別窓
CSVファイルに対して図３０のコードでデータ挿入をすると、CSVファイル上は図３１の左図のような形に書き加えられます。また、そのCSVデータを読み取ってワークシート上に書き出したのが図３１の右側です。

図３１別窓
良く見てみると、まず３列目の日付型は、２２４行目「rs.Fields(2) = #11/20/2000#」では日付部分のみを指定しているのに、CSVファイル側は「2000/11/20 0:00:00」と時刻も共に書き込まれます。
また２２５行目「rs.Fields(3) = True」のBoolean型は、CSVファイル側には「-1」が「文字列」として書き込まれています。
日付型については、時刻部分が小数点以下に設定されているため、整数部だけでも午前零時と表示されても変ではありませんし、Boolean型については「True」をExcel上で数値で表すと「-1」になる為です（Falseはゼロ）。
但しマイナスが付いているとは言え、２列目の数値「897」には「ダブルクォーテーションが付いていない」のに対し、４列目の-1には「ダブルクォーテーションが付いている」のは不思議です。
そこで調べてみると、２２１行目のAddNewメソッドの実行時に作られる新しいレコード枠のデータ型は、その列の既存の値のデータ型で決まるようです。例えば４列目はTrueやFalseとBoolean型っぽく表示されていますが「TrueやFalseという文字列」です。つまり４列目は全て文字列なので「新たなレコード枠の４番目も文字列」となり、「-1」は文字列としてCSVファイルに追記されるようです。
なお、列内に複数のデータ型が混在している時には、最も多いデータ型になるようです。
このデータ型については「Microsoftのサイト」に載っています。このサイトでは、Typeプロパティは「取得／設定が可能」と書かれていますが、例えばBoolean型に設定しようとしてもエラーとなってしまいます。ですので、CSVファイルではデータ型を混在させないようにすることと、読み込み時にデータ型が混在している事も考慮して、CBoolなどの関数を使ってデータ型を揃える等の工夫は必要そうです。
なお、Excelのセル上に「"-1"」を書き出せば、Excel側で数値と判断して「-1」と修正してくれます（図３１の右側）。また「rs.Fields(3) = False」のようにFalseを挿入した際には、CSVファイルには「0」が文字列として書き込まれ、ワークシートに出力した際は「数値の0」となります。
上記のように、テキストファイルをデータベースにする際には「型変換」等の処理が必要そうですが、対策の１つとして「日付とBoolean型を文字列」にしてデータ挿入してみたのが図３２です。

230. '==========　⇩(10)　CSVデータの追加 ============
231. 　rs.AddNew
232. 　　rs.Fields(0) = "PQR"
233. 　　rs.Fields(1) = 897
234. 　　rs.Fields(2) = "2000/11/20"
235. 　　rs.Fields(3) = "True"
236. 　rs.Update

図３２別窓
その結果が図３３で、左側がCSVデータ、右側がシートに書き出したものです。

図３３別窓
日付型は変化無いものの、Boolean型を文字列にした場合は、CSVファイルには両端をダブルクォーテーションで囲まれた文字列「"True"（又は "False"）」として記録されます。見掛け上は、１～４行目の（手書きで作った）TRUE（又は FALSE）とは別のデータ型に見えますが、ダブルクォーテーションが無いだけで「どちらも文字列扱い」です。
ですので、ワークシートに出力した際にはExcelの機能で「Booleanの文字列 → Boolean型」に勝手に変換されるため、Boolean型として扱う事ができますが、データを配列等に入れて使う場合はダブルクォーテーション有り無しに関わらず「CBoolなどで変換」する必要が出てきます。
また、VBAではTrueは「-1」ですが、C言語やJava等ではTrueは「1」のようです。CSVデータを他のプログラム言語からも使用できるようにするため、文字列のTrue・Falseとして記録する方が良いように思います。
なお、テキストファイルのInsert操作時は、Excelの時（図２７）のように「IMEX=0」としなくても大丈夫です。これは図０９の「CSV × Table × Write 行」が全て〇であることからも分かります。
また、テキストファイルでは「Select」操作と「Insert」操作のみが可能で、Update・Delete操作を行おうとすると「このISAMではリンクテーブル内のデータを更新／削除することはできません」と言う実行時エラーが発生します。

３ー２．SQL文を指定する場合

３ー２ー１．Accessデータの場合

３ー２ー１ー１．Select文

実行するSQL文が「Select」の場合は、OpenRecordsetメソッドにSQL文を指定し、絞り込んだレコードセットオブジェクトを取得した後、データ処理をします。

240. '==========　⇩(11)　AccessデータをSelect文で取得 ============
241. Sub DAO_Access02()
242. 　Dim DBEngine As Object 　 '←DBエンジン
243. 　Dim DBname As String 　　 '←データベース名
244. 　Dim DB As Object 　　　　 '←データベース
245. 　Dim SQL As String 　　　 '←実行するSQL文
246. 　Dim rs As Object 　　　　 '←レコードセット
247. 　Dim i As Integer 　　　　 '←書き込み行位置
249. 　Set DBEngine = CreateObject("DAO.DBEngine.120")
251. 　DBname = ThisWorkbook.Path & "¥" & "its-041.accdb"
252. 　Set DB = DBEngine.OpenDatabase(DBname)
254. 　SQL = "select * from TestTable"
255. 　Set rs = DB.OpenRecordset(SQL)
257. 　Sheet1.Range("B2").CurrentRegion.ClearContents
259. 　With Sheet1.Range("B2")
260. 　　Do While Not rs.EOF
261. 　　　.Offset(i, 0) = rs.Fields(0).Value
262. 　　　.Offset(i, 1) = rs.Fields(1).Value
263. 　　　.Offset(i, 2) = rs.Fields(2).Value
264. 　　　.Offset(i, 3) = rs.Fields(3).Value
266. 　　　rs.movenext
267. 　　　i = i + 1
268. 　　Loop
269. 　End With
271. 　rs.Close
272. 　DB.Close
274. 　Set rs = Nothing
275. 　Set DB = Nothing
276. 　Set DBEngine = Nothing
277. End Sub

図３４別窓
２４９行目「Set DBEngine = CreateObject("DAO.DBEngine.120")」で、DAOのDBエンジンオブジェクトを生成します。
２５１行目「DBname = ThisWorkbook.Path & "¥" & "its-041.accdb"」で、接続するデータベース（Accessの場合は、Accessファイル名）を変数DBnameに代入します。
２５２行目「Set DB = DBEngine.OpenDatabase(DBname)」で、データベースに接続します。
２５４行目「SQL = "select * from TestTable"」は、実行するSQL文（Select文）を変数SQLとしています。
２５５行目「Set rs = DB.OpenRecordset(SQL)」は２５４行目のSelect文を実行し、絞り込んだデータをレコードセットとして取得します。
その後の処理はOpenRecordsetにテーブル名を指定した時と全く同じです。
２５７行目「Sheet1.Range("B2").CurrentRegion.ClearContents」でシート上のデータをクリアし、２５９行目「With Sheet1.Range("B2")」でシートへの書き込みの基準セルを決め、２６０行目「Do While Not rs.EOF」でデータを最終行まで処理します。２６１行目「.Offset(i, 0) = rs.Fields(0).Value」で、シート上に１列目の値を書き込み、同様に２６２～２６４行目も２～４列目の値を書き込んでいます。
１レコード文の処理が完了したら、２６６行目「rs.movenext」でカーソルを移動させ、書き込む行位置も２６７行目「i = i + 1」で下に移動させます。

３ー２ー１－２．Insert・Update・Delete文の場合

実行するSQL文が「Insert」「Update」「Delete」文の場合は、Executeメソッドを使用します。図３５はデータを追加（Insert）するコードです。

290. '==========　⇩(12)　AccessデータにInsert文で追加 ============
291. Sub DAO_Access03()
292. 　Dim DBEngine As Object 　 '←DBエンジン
293. 　Dim DBname As String 　　 '←データベース名
294. 　Dim DB As Object 　　　　 '←データベース
295. 　Dim SQL As String 　　　 '←実行するSQL文
297. 　Set DBEngine = CreateObject("DAO.DBEngine.120")
299. 　DBname = ThisWorkbook.Path & "¥" & "its-041.accdb"
300. 　Set DB = DBEngine.OpenDatabase(DBname)
302. 　SQL = "insert into TestTable (St,Nu,Dt,BL) values('PQR',897,#2000/11/20#,True)"
303. '　SQL = "update TestTable set St='XYZ' where DT=#2000/11/20#"
304. '　SQL = "Delete from TestTable where Dt = #2000/11/20#"
306. 　DB.Execute (SQL)
308. 　DB.Close
310. 　Set DB = Nothing
311. 　Set DBEngine = Nothing
312. End Sub

図３５別窓
２９７行目「Set DBEngine = CreateObject("DAO.DBEngine.120")」で、DAOのDBエンジンオブジェクトを生成します。
２９９行目「DBname = ThisWorkbook.Path & "¥" & "its-041.accdb"」で、接続するデータベース（Accessの場合は、Accessファイル名）を変数DBnameに代入します。
３００行目「Set DB = DBEngine.OpenDatabase(DBname)」で、データベースに接続します。
３０２行目「SQL = "insert into TestTable (St,Nu,Dt,BL) values('PQR',897,#2000/11/20#,True)"」のSQL文は、新たなレコードを追加するものです。
そのSQL文を３０６行目「DB.Execute (SQL)」で実行することで、Accessへデータを追加します。
ここではレコードセットを開いていないので、閉じるのはデータベースのみで、３０８行目「DB.Close」のみを行います。
ここまでデータ挿入（Insert）について説明しましたが、見え消しにしてあるSQL文の
　３０３行目「SQL = "update TestTable set St='XYZ' where DT=#2000/11/20#"」
　３０４行目「SQL = "Delete from TestTable where Dt = #2000/11/20#"」
のようなUpdate文、Delete文を使えば、レコード内容の変更・レコード削除が出来ます。
なおSQL文の構文などについては、他サイトや本サイト「データを操作するSQL文」を参照下さい。

３ー２ー２．Excelデータの場合

３ー２ー２ー１．Select文

実行するSQL文が「Select」の場合は、OpenRecordsetメソッドにSQL文を指定し、絞り込んだレコードセットオブジェクトを取得した後、データ処理をします。

320. '==========　⇩(13)　ExcelデータをSelect文で取得 ============
321. Sub DAO_Excel03()
322. 　Dim DBEngine As Object 　 '←DBエンジン
323. 　Dim DBname As String 　　 '←データベース名
324. 　Dim DB As Object 　　　　 '←データベース
325. 　Dim SQL As String 　　　 '←実行するSQL文
326. 　Dim rs As Object 　　　　 '←レコードセット
327. 　Dim i As Integer 　　　　 '←書き込み行位置
329. 　Set DBEngine = CreateObject("DAO.DBEngine.120")
331. 　DBname = ThisWorkbook.Path & "¥" & ThisWorkbook.Name
332. 　Set DB = DBEngine.OpenDatabase(DBname, False, False, "Excel 12.0;HDR=Yes;IMEX=1")
334. 　SQL = "select * from [DB$]"
335. 　Set rs = DB.OpenRecordset(SQL)
337. 　Sheet1.Range("B2").CurrentRegion.ClearContents
339. 　With Sheet1.Range("B2")
340. 　　Do While Not rs.EOF
341. 　　　.Offset(i, 0) = rs.Fields(0).Value
342. 　　　.Offset(i, 1) = rs.Fields(1).Value
343. 　　　.Offset(i, 2) = rs.Fields(2).Value
344. 　　　.Offset(i, 3) = rs.Fields(3).Value
346. 　　　rs.movenext
347. 　　　i = i + 1
348. 　　Loop
349. 　End With
351. 　rs.Close
352. 　DB.Close
354. 　Set rs = Nothing
355. 　Set DB = Nothing
356. 　Set DBEngine = Nothing
357. End Sub

図３６別窓
３２９行目「Set DBEngine = CreateObject("DAO.DBEngine.120")」で、DAOのDBエンジンオブジェクトを生成します。
３３１行目「DBname = ThisWorkbook.Path & "¥" & ThisWorkbook.Name」で、接続するデータベース（今回はマクロのあるExcelファイルにDBがあるため、自Excelファイル名）を変数DBnameに代入します。
３３２行目「Set DB = DBEngine.OpenDatabase(DBname, False, False, "Excel 12.0;HDR=Yes;IMEX=1") 」で、データベースに接続します。この時第４パラメータConnectは「"Excel 12.0;HDR=Yes;IMEX=1"」としています。接続するデータベース種はExcel2007以降のため「Excel 12.0」にし、Excelシートデータベースの先頭行はタイトルとなっているため「HDR=Yes」としています。
読取/書込のIMEXは図０９のように、データ型が混在している可能性も配慮し「IMEX=1」としています。なお、データ型の混在が無い場合は、IMEX値は0～2のどれでもOKですし、またIMEXを省略しても問題ありません。
３３４行目「SQL = "select * from [DB$]"」は、実行するSQL文（Select文）を変数SQLとしています。Excelのワークシートのデータをデータベースにする際は、テーブル名は「シート名＋$印 を角カッコで囲む」必要があります。
３３５行目「Set rs = DB.OpenRecordset(SQL)」は３３４行目のSelect文を実行し、絞り込んだデータをレコードセットとして取得します。
その後の処理はOpenRecordsetにテーブル名を指定した時と全く同じです。
３３７行目「Sheet1.Range("B2").CurrentRegion.ClearContents」でシート上のデータをクリアし、３３９行目「With Sheet1.Range("B2")」でシートへの書き込みの基準セルを決め、３４０行目「Do While Not rs.EOF」でデータを最終行まで処理します。３４１行目「.Offset(i, 0) = rs.Fields(0).Value」で、シート上に１列目の値を書き込み、同様に３４２～３４４行目も２～４列目の値を書き込んでいます。
１レコード文の処理が完了したら、３４６行目「rs.movenext」でカーソルを移動させ、書き込む行位置も３４７行目「i = i + 1」で下に移動させます。

３ー２ー２－２．Insert・Update文の場合

実行するSQL文が「Insert」「Update」文の場合は、Executeメソッドを使用します。図３７はデータを追加（Insert）するコードです。なおExcelシートをデータベースにする際は、「Delete文は使用不可」ですので注意が必要です。

370. '==========　⇩(14)　ExcelデータにInset文で挿入 ============
371. Sub DAO_Excel04()
372. 　Dim DBEngine As Object 　 '←DBエンジン
373. 　Dim DBname As String 　　 '←データベース名
374. 　Dim DB As Object 　　　　 '←データベース
375. 　Dim SQL As String 　　　 '←実行するSQL文
377. 　Set DBEngine = CreateObject("DAO.DBEngine.120")
379. 　DBname = ThisWorkbook.Path & "¥" & ThisWorkbook.Name
380. 　Set DB = DBEngine.OpenDatabase(DBname, False, False, "Excel 12.0;HDR=YES;IMEX=0")
382. 　SQL = "insert into [DB$] (St,Nu,Dt,BL) values('PQR',789,#2000/11/20#,False)"
383. '　SQL = "update [DB$] set St='XYZ' where DT=#2000/11/20#"
384. '　SQL = "Delete from [DB$] where Dt = #2000/11/20#"　　←エラーが出ます
386. 　DB.Execute (SQL)
388. 　DB.Close
390. 　Set DB = Nothing
391. 　Set DBEngine = Nothing
392. End Sub

図３７別窓
３７７行目「Set DBEngine = CreateObject("DAO.DBEngine.120")」で、DAOのDBエンジンオブジェクトを生成します。
３７９行目「DBname = ThisWorkbook.Path & "¥" & ThisWorkbook.Name」で、接続するデータベース（今回はマクロのあるExcelファイルにDBがあるため、自Excelファイル名）を変数DBnameに代入します。
３８０行目「Set DB = DBEngine.OpenDatabase(DBname, False, False, "Excel 12.0;HDR=YES;IMEX=0")」で、データベースに接続します。
この時第４パラメータConnectは「"Excel 12.0;HDR=YES;IMEX=0"」としています。接続するデータベース種はExcel2007以降のため「Excel 12.0」、Excelシートデータベースの先頭行はタイトルですので「HDR=Yes」としています。読取/書込のIMEXは図０９のように「IMEX=0」又は省略とする必要があります。「IMEX=1 or 2ではエラー発生」しますので注意が必要です。
３８２行目「SQL = "insert into [DB$] (St,Nu,Dt,BL) values('ABC',789,#2000/10/20#,False)"」のSQL文は、新たなレコードを追加するものです。
そのSQL文を３８６行目「DB.Execute (SQL)」で実行することで、Excelシートへデータを追加します。
ここではレコードセットを開いていないので、閉じるのはデータベースのみで、３８８行目「DB.Close」のみを行います。
ここまではデータ挿入（Insert）の説明でしたが、見え消しにしてあるSQL文の
　３８３行目「SQL = "update [DB$] set St='XYZ' where DT=#2000/11/20#"」
　３８４行目「SQL = "Delete from [DB$] where Dt = #2000/11/20#"」
の内、Update文はレコード内容の変更が出来ますが、「Delete文はExcelシートを使うデータベースではエラー発生」します。
なおSQL文の構文などについては、他サイトや本サイトの「データを操作するSQL文」を参照下さい。

３ー２ー３．CSVデータの場合

３ー２ー３ー１．Select文

実行するSQL文が「Select」の場合は、OpenRecordsetメソッドにSQL文を指定し、絞り込んだレコードセットオブジェクトを取得した後、データ処理をします。

400. '==========　⇩(15)　CSVデータをSelect文で取得 ============
401. Sub DAO_CSV02()
402. 　Dim DBEngine As Object 　 '←DBエンジン
403. 　Dim DBpath As String 　　 '←データベース（フォルダー名）
404. 　Dim DB As Object 　　　　 '←データベース
405. 　Dim SQL As String 　　　 '←実行するSQL文
406. 　Dim rs As Object 　　　　 '←レコードセット
407. 　Dim i As Integer 　　　　 '←書き込み行位置
409. 　Set DBEngine = CreateObject("DAO.DBEngine.120")
411. 　DBpath = ThisWorkbook.Path
412. 　Set DB = DBEngine.OpenDatabase(DBpath, False, False, "Text;HDR=Yes;")
414. 　SQL = "select * from [its-041.csv]"
415. 　Set rs = DB.OpenRecordset(SQL)
417. 　Sheet1.Range("B2").CurrentRegion.ClearContents
419. 　With Sheet1.Range("B2")
420. 　　Do While Not rs.EOF
421. 　　　.Offset(i, 0) = rs.Fields(0).Value
422. 　　　.Offset(i, 1) = rs.Fields(1).Value
423. 　　　.Offset(i, 2) = rs.Fields(2).Value
424. 　　　.Offset(i, 3) = rs.Fields(3).Value
426. 　　　rs.movenext
427. 　　　i = i + 1
428. 　　Loop
429. 　End With
431. 　rs.Close
432. 　DB.Close
434. 　Set rs = Nothing
435. 　Set DB = Nothing
436. 　Set DBEngine = Nothing
437. End Sub

図３８別窓
４０９行目「Set DBEngine = CreateObject("DAO.DBEngine.120")」で、DAOのDBエンジンオブジェクトを生成します。
４１１行目「DBpath = ThisWorkbook.Path」で、接続するデータベース（今回はマクロのあるExcelファイルと同じ場所にCSVファイル（DB相当）があるため、自ファイルのパス名となる）を変数DBpathに代入します。
４１２行目「Set DB = DBEngine.OpenDatabase(DBpath, False, False, "Text;HDR=Yes;")」で、データベースに接続します。この時第４パラメータConnectは「"Text;HDR=Yes;"」としています。接続するデータベース種はCSVファイルのため「Text」にし、CSVファイルの先頭行はタイトルとなっているため「HDR=Yes」としています。
読取/書込のIMEXは省略していますが、これは図０９でも分かる通り「CSV × SQL × Read 」の場合は、どれを設定しても同じ為です。尚データ型が混在している場合は、IMEXをどのように設定してもエラーが出ますので「CSVをデータベースにする際は、データ型を混在させない」事が必要です。
４１４行目「SQL = "select * from [its-041.csv]"」は、実行するSQL文（Select文）を変数SQLとしています。CSVファイルでのテーブル名は「ファイル名を角カッコで囲む」必要があります。
４１５行目「Set rs = DB.OpenRecordset(SQL)」は４１４行目のSelect文を実行し、絞り込んだデータをレコードセットとして取得します。
その後の処理はOpenRecordsetにテーブル名を指定した時と全く同じです。
４１７行目「Sheet1.Range("B2").CurrentRegion.ClearContents」でシート上のデータをクリアし、４１９行目「With Sheet1.Range("B2")」でシートへの書き込みの基準セルを決め、４２０行目「Do While Not rs.EOF」でデータを最終行まで処理します。４２１行目「.Offset(i, 0) = rs.Fields(0).Value」で、シート上に１列目の値を書き込み、同様に４２２～４２４行目も２～４列目の値を書き込んでいます。
１レコード文の処理が完了したら、４２６行目「rs.movenext」でカーソルを移動させ、書き込む行位置も４２７行目「i = i + 1」で下に移動させます。

３ー２ー３－２．Insert文の場合

実行するSQL文が「Insert」文の場合は、Executeメソッドを使用します。図３９はデータを追加（Insert）するコードです。なおCSVファイルをデータベースにする際は、「Update、Delete文は使用不可」ですので注意が必要です。

450. '==========　⇩(16)　CSVデータにInset文で挿入 ============
451. Sub DAO_CSV03()
452. 　Dim DBEngine As Object 　 '←DBエンジン
453. 　Dim DBpath As String 　　 '←データベース（フォルダー名）
454. 　Dim DB As Object 　　　　 '←データベース
455. 　Dim SQL As String 　　　 '←実行するSQL文
457. 　Set DBEngine = CreateObject("DAO.DBEngine.120")
459. 　DBpath = ThisWorkbook.Path
460. 　Set DB = DBEngine.OpenDatabase(DBpath, False, False, "Text;HDR=Yes;")
462. 　SQL = "insert into [its-041.csv] (St,Nu,Dt,BL) values('PQR',789,#2000/11/20#,'True')"
463. '　SQL = "update [its-041.csv] set St='XYZ' where DT=#2000/11/20#"　　←エラーが出ます
464. '　SQL = "Delete from [its-041.csv] where Dt = #2000/11/20#"　　←エラーが出ます
466. 　DB.Execute (SQL)
468. 　DB.Close
470. 　Set DB = Nothing
471. 　Set DBEngine = Nothing
472. End Sub

図３９別窓
４５７行目「Set DBEngine = CreateObject("DAO.DBEngine.120")」で、DAOのDBエンジンオブジェクトを生成します。
４５９行目「DBpath = ThisWorkbook.Path」で、接続するデータベース（今回はマクロのあるExcelファイルと同じ場所にCSVファイル（DB相当）があるため、自ファイルのパス名となる）を変数DBpathに代入します。
４６０行目「Set DB = DBEngine.OpenDatabase(DBpath, False, False, "Text;HDR=Yes;")」で、データベースに接続します。この時第４パラメータConnectは「"Text;HDR=Yes;"」としています。接続するデータベース種はCSVファイルのため「Text」にし、CSVファイルの先頭行はタイトルとなっているため「HDR=Yes」としています。
読取/書込のIMEXは省略していますが、これは図０９でも分かる通り「SQL × Read の場合は、どれを設定しても同じ」為です。
４６２行目「SQL = "insert into [its-041.csv] (St,Nu,Dt,BL) values('ABC',789,#2000/10/20#,'True')"」は、実行するSQL文（Select文）を変数SQLとしています。CSVファイルでのテーブル名は「ファイル名を角カッコで囲む」必要があります。
４６６行目「DB.Execute (SQL)」は４６２行目のInsert文を実行し、新たなレコードを追加します。
４６３～４６４行目では、Update文・Delete文も見え消しで紹介していますが、CSVファイルをデータベースとして使用する場合はUpdate・Deleteは使えませんので注意が必要です。
なお４６２行目のSQL文で「Boolean型のTrueは 'True'」としています。これは図３２でも紹介しましたが、単にTrueやFalseとしてしまうと「-1」や「0」として保存されるのを防ぐためです。VBAではTrueは「-1」ですが、C言語やJava等ではTrueは「1」のようなので、CSVデータを他のプログラム言語でも使用できるように、文字列であったとしても「True」の方が対応し易いと思い、このようにしました。なおSQL文の中での文字列なので、両端は「'（シングルクォーテーション）」となります。

３ー３．データを一括で処理

ここまでは取得したレコードセットをDo～Loop等を使い「１レコード単位」でデータ処理をしましたが、一括で配列の形としてデータを受け取る事も可能です。Select相当だけに使える手法ですが、Accessを例にすると図４０のようになります。
なお、図４０はOpenRecordsetにテーブル名を指定するコードですが、見え消しにしてあるSQL文でも使用できます。

530. '==========　⇩(10)　GetRowsでまとめてデータ取得 ============
531. Sub DAO_Access04()
532. 　Dim DBEngine As Object 　 '←DBエンジン
533. 　Dim DBname As String 　　 '←データベース名
534. 　Dim DB As Object 　　　　 '←データベース
535. 　Dim SQL As String 　　　　 '←実行するテーブル名・SQL文
536. 　Dim rs As Object 　　　　 '←レコードセット
537. 　Dim buf As Variant 　　　 '←データの配列
539. 　Set DBEngine = CreateObject("DAO.DBEngine.120")
541. 　DBname = ThisWorkbook.Path & "¥" & "its-041.accdb"
542. 　Set DB = DBEngine.OpenDatabase(DBname)
544. 　SQL = "testtable"
545. '　SQL = "select * from TestTable"
546. 　Set rs = DB.OpenRecordset(SQL, 2)
548. 　rs.MoveLast
549. 　rs.MoveFirst
550. 　buf = rs.getrows(rs.RecordCount)
552. 　With Sheet1.Range("B2")
553. 　　.CurrentRegion.ClearContents
554. 　　.Resize(UBound(buf, 1) + 1, UBound(buf, 2) + 1) = buf
555. 　End With
557. 　rs.Close
558. 　DB.Close
560. 　Set rs = Nothing
561. 　Set DB = Nothing
562. 　Set DBEngine = Nothing
563. End Sub

図４０別窓
５４４行目までは、図２２と同じです。
５３９行目「Set DBEngine = CreateObject("DAO.DBEngine.120")」で、DAOのDBエンジンオブジェクトを生成します。
５４１行目「DBname = ThisWorkbook.Path & "¥" & "its-041.accdb"」で、接続するデータベースを変数DBnameに代入します。
５４２行目「Set DB = DBEngine.OpenDatabase(DBname)」で、データベースに接続します。
５４４行目「SQL = "testtable"」で、取得するテーブル名を変数SQLとします。
５４６行目「Set rs = DB.OpenRecordset(SQL, 2)」では、全データのレコードセットを取得していますが、第２パラメータTypeに「dbOpenDynaset（値=2）」を指定しています。このパラメータ値の設定範囲については後述します。
５４６行目でレコードセットを取得した状態では、レコードセットのカーソル位置は先頭行にあります。５４８行目「rs.MoveLast」でカーソルを一旦最終行まで移動させた後、５４９行目「rs.MoveFirst」で再びカーソルを先頭に戻しています。
そして５５０行目「buf = rs.getrows(rs.RecordCount)」でGetRowsメソッドを使って、全データを一気に取得し変数bufに配列として代入しています。
なお見え消しにしていますが、５４５行目「SQL = "select * from TestTable"」を使えば、絞り込んだテーブルが一括で配列化できる事になります。
GetRowsメソッドに関して詳しく説明していきます。まず構文は以下のように「取り出す行数」をパラメータ指定します。
　レコードセット.GetRows(取得行数)
但しGetRowsメソッドを使うに当たり注意点が３つあります。

１：	パラメータ指定する「取り出す行数」を省略すると「１」を指定した事になる。 OpenRecordsetメソッド実行直後はカーソルが先頭にあり、指定するパラメータによってはレコードセットの「総レコード数（RecordCountプロパティ値）」が不明な状態となります。
２：	カーソルのある行位置がら後ろ側が取得対象となる。 例えばMoveNextやMoveLastメソッド等でカーソルを動かしてしまうと、全データが取得できないことになります。
３：	GetRowsで取得したデータ配列は「行列が逆転した配列」になる。 Transposeメソッドで行列を回転させる事は可能ですが、要素内に「Nullが入っているとエラー」が発生します。また1行しか取得できなかった場合に回転させると、二次元配列が一次元配列に変わってしまいます。

以上の特性を踏まえると、総レコード数を超える「とても大きな値」を指定してGetRowsメソッドを実行する手法も考えられます。しかしカーソルを一旦動かすとレコードセットの総レコード数を取得できるという特性を使い、「GetRowsメソッドに総レコード数を指定」する方法を今回は使用します。
カーソルを移動させることで得られる「行数」を整理したのが図４１です。
「移動前」がレコードセットを取得した直後を示し、その状態から「MoveLast」メソッドを実行した後が隣の列、レコードセット取得後「MoveNext」メソッドを実行した後がその隣の列･･･という具合に見て下さい。

OpenRecordsetのTypeとカーソル移動後のRecordCount値

定数	値	移 動 前	→MoveLast	→MoveNext	→GetRows
dbOpenTable	1(Table指定の既定)	(全行数)	全行数	全行数	全行数
dbOpenDynaset	2(SQL文指定の既定)	1	全行数	全行数	全行数
dbOpenSnapshot	4	1	全行数	全行数	全行数
dbOpenForwardOnly	8	1	×	2	2

図４１別窓
図４１のように、OpenRecordsetメソッドに指定するTypeパラメータにより、得られる行数が変わってくる事が分かります。なお移動前の「(全行数)」は、テーブルを指定（図１７参照）した時は全行数が得られるのですが、SQL文を指定（図１９参照）した場合は全行数が得られないことから、カッコ付としています。
全行数が得られる条件をまとめると、以下のようになります。
OpenRecordsetメソッドの第１パラメータに「テーブル名を指定」した場合は、第二パラメータの既定値はType=1ですので、レコードセットを取得した時点でそのまま全行数が取得できます。
一方第１パラメータに「SQL文を指定」した場合は、第二パラメータの既定値はType=2となり、そのままでは全行数が取得できません。しかし一旦カーソルを動かしておく事で全行数が取得できます。
つまり、第１パラメータが「テーブルでもSQL文でも成立」するためには、第二パラメータをType=2、またはType=4 とすることが必要です。その上でカーソルを一旦動かした後、カーソルを先頭に戻すようにします。
なお「Type=2」「Type=4」のどちらでも良さそうですが、図１７・図１９の表内で「LockEditsプロパティ」が使用できる方が安全と判断し、今回は「Type=2」を使用しました。
なおカーソルの動かし方については色々なパターンが考えられます。「MoveNext → MovePrevious」「GetRows → MoveFirst」等等ですが、今回はその内の「MoveLast → MoveFirst」を使っています。
図４０のコードでは、OpenRecordsetの第２パラメータを「dbOpenDynaset（値=2）」にしてレコードセットを取り出し、「MoveLast → MoveFirs」と続けて実行することでRecordCount値を全行数に変更した後、GetRowsメソッドで全データを一括取得しています。但し３つ目の注意点として、GetRowsメソッドで得られるデータは「行列が逆転した配列」であることです。
Transposeで行列変換をすることは可能ですが、データ内に「Null」が存在すると、変換時にエラーが発生してしまいます。今回は行列逆転したままの形でワークシートに貼り付けています。
５５２行目「With Sheet1.Range("B2")」で、書き出しの位置基準を示し、５５３行目「.CurrentRegion.ClearContents」で元データをクリアし、５５４行目「.Resize(UBound(buf, 1) + 1, UBound(buf, 2) + 1) = buf」で、行列逆転しているデータを一括で貼り付けています。

４．Accessデータの作成について

今回のサンプルコード用のAccessデータベースを作るマクロを以下で紹介します。詳細については「ExcelからAccessデータベースを作成・操作」を参照下さい。
ファイルを作るには、図４２を実行して下さい（サンプルファイルでは、Module2にコードを記載しています）。なおファイル名重複などのエラー処理はしていませんので、作り直す時は手動でAccessファイルを削除してから再実行して下さい。

600. '==========　⇩(14)　Accessサンプルデータ作成 ============
601. Sub make_Access_sampleData()
602. 　Call make_AccessDB
603. 　Call make_AccessTable
604. 　Call make_AccessData
605. End Sub

図４２別窓
まず６０２行目「Call make_AccessDB」で図４３を呼び出し、Accessファイル（≒データベース）を作成します。
次に６０３行目「Call make_AccessTable」で図４４を呼び出し、テーブルを作成します。
最後に６０４行目「Call make_AccessData」で図４５を呼び出し、レコードを４つ挿入します。

４ー１．Accessファイルの作成

図４３では、Accessファイルそのものを作成しています。

610. '==========　⇩(14)　Accessファイル作成 ============
611. Sub make_AccessDB()
612. 　Const DBname As String = "its-041.accdb" 　 '←DBの名前
613. 　Dim DBpath As String 　 '←DBの場所
614. 　Dim Cat As Object 　 '←Catalogオブジェクト
616. 　DBpath = ThisWorkbook.Path & "¥"
618. 　Set Cat = CreateObject("ADOX.Catalog")
620. 　Cat.Create "Provider=Microsoft.Ace.OLEDB.12.0;" & _
621. 　　　　　　　"Data Source=" & DBpath & DBname
623. 　Set Cat = Nothing
624. End Sub

図４３別窓
６１２行目「Const DBname As String = "its-041.accdb"」では、作成するAccessファイル名を定数宣言します。
６１６行目「DBpath = ThisWorkbook.Path & "¥"」では、作成場所を指定します。今回はこのExcelと同じ場所にしています。
６１８行目「Set Cat = CreateObject("ADOX.Catalog")」では、ADOXのCatalogオブジェクトを作成しています。
６２０～６２１行目「Cat.Create "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & DBpath & DBname」では、ADOXのCreateメソッドで「新規データベースファイル（≒Accessファイル）」を作成します。この際のProviderにはAceを使用し、場所はExcelファイルのあるフォルダー（変数DBpath）に、ファイル名は「its-041.accdb」という名前（定数DBname）で作成します。

４ー２．Accessテーブルの作成

図４４では、データベース（≒Accessファイル）内にテーブルを作成しています。テーブルの構成は図２０の通りです。

630. '==========　⇩(14)　Accessテーブル作成 ============
631. Sub make_AccessTable()
632. 　Const DBname As String = "its-041.accdb" 　 '←DBの名前
633. 　Const Tname As String = "TestTable" 　　　　 '←作成するテーブル名
634. 　Dim SQL As String 　　　　 '←SQL文
635. 　Dim cn As Object 　　　　 '←Connectionオブジェクト
636. 　Dim DBpath As String 　　 '←DBが存在する場所
637. 　
638. 　DBpath = ThisWorkbook.Path & "¥"
640. 　Set cn = CreateObject("ADODB.Connection")
641. 　cn.Provider = "Microsoft.ACE.OLEDB.12.0"
643. 　SQL = "Create Table " & Tname & " (" & _
644. 　　　　"St LONGTEXT," & _
645. 　　　　"Nu DOUBLE," & _
646. 　　　　"Dt DATETIME," & _
647. 　　　　"BL BIT" & _
648. 　　　　")"
650. 　cn.Open DBpath & DBname
651. 　cn.Execute SQL
653. 　cn.Close
654. 　Set cn = Nothing
655. End Sub

図４４別窓
６３２行目「Const DBname As String = "its-041.accdb"」では、データベース名を定数宣言しています。
６３３行目「Const Tname As String = "TestTable"」では、テーブル名を定数宣言しています。
６３８行目「DBpath = ThisWorkbook.Path & "¥"」はデータベース（≒Accessファイル）の場所を指定しています。
６４０行目「Set cn = CreateObject("ADODB.Connection")」でADOのConnectionオブジェクトを生成します。
６４１行目「cn.Provider = "Microsoft.ACE.OLEDB.12.0"」で、プロバイダはACEとします。
６４３～６４８行目でテーブルを作成するSQL文（Create Table文）を作成します。
まず６４３行目「SQL = "Create Table " & Tname & " (" & _ 」で、テーブル名を「TextTable（変数Tname）」とします。
６４４行目「"St LONGTEXT," & _」は１列目の列名を「St」、データ型を「LONGTEXT（VBAでString型相当）」にします。
６４５行目「"Nu DOUBLE," & _」は２列目の列名を「Nu」、データ型を「DOUBLE（VBAでDouble型相当）」にします。
６４６行目「"Dt DATETIME," & _」は３列目の列名を「Dt」、データ型を「DATETIME（VBAでDate型相当）」にします。
６４７行目「"BL BIT" & _」は４列目の列名を「BL」、データ型を「BIT（VBAでBoolean型相当）」にします。
６５０行目「cn.Open DBpath & DBname」ではデータベース（≒Accessファイル）を開きます。
６５１行目「cn.Execute SQL」では、６４３～６４８行目で作成したSQL文を実行し、テーブルを作成します。

４ー３．Accessレコードの作成

図４５では、テーブル内にレコードを作成しています。

660. '==========　⇩(14)　Accessレコード作成 ============
661. Sub make_AccessData()
662. 　Const DBname As String = "its-041.accdb"　 '←DBの名前
663. 　Const Tname As String = "TestTable"　　　　 '←テーブル名
664. 　Dim DBpath As String　　　　 '←DBの場所
665. 　Dim cn As Object 　　　　　　 '←Connectionオブジェクト
666. 　Dim SQL(1 To 4) As String 　 '←SQL文(4種)
667. 　Dim i As Integer 　　　　　　 '←カウンタ変数(列数)
669. 　DBpath = ThisWorkbook.Path & "¥"
671. 　Set cn = CreateObject("ADODB.Connection")
672. 　cn.Provider = "Microsoft.ACE.OLEDB.12.0"
674. 　SQL(1) = "insert into " & Tname & _
675. 　　　　　　" (St,Nu,Dt,BL)" & " values('abc',123,#2023/1/2#,True)"
676. 　SQL(2) = "insert into " & Tname & _
677. 　　　　　　" (St,Nu,Dt,BL)" & " values('def',123,#2023/2/2#,False)"
678. 　SQL(3) = "insert into " & Tname & _
679. 　　　　　　" (St,Nu,Dt,BL)" & " values('abc',456,#2023/3/2#,False)"
680. 　SQL(4) = "insert into " & Tname & _
681. 　　　　　　" (St,Nu,Dt,BL)" & " values('def',456,#2023/4/2#,True)"
683. 　cn.Open DBpath & DBname
685. 　For i = 1 To 4
686. 　　On Error Resume Next
687. 　　　cn.Execute SQL(i)
688. 　　　If Not Err.Number = 0 Then MsgBox Err.Description
689. 　　On Error GoTo 0
690. 　Next i
692. 　cn.Close
693. 　Set cn = Nothing
694. End Sub

図４５別窓
６６２行目「Const DBname As String = "its-041.accdb"」では、データベース名を定数宣言しています。
６６３行目「Const Tname As String = "TestTable"」では、テーブル名を定数宣言しています。
６６９行目「DBpath = ThisWorkbook.Path & "¥"」はAccessファイルの場所を指定しています。
６７１行目「Set cn = CreateObject("ADODB.Connection")」でADOのConnectionオブジェクトを生成します。
６７２行目「cn.Provider = "Microsoft.ACE.OLEDB.12.0"」で、プロバイダはACEとします。
６７４～６８１行目では、挿入レコードのSQL文を作成しています。今回は４つのSQL文（String型）を配列SQLに格納し、６８５～６９０行目のFor～Nextを回しながらレコード挿入をしていきます。
６７４～６７５行目「SQL(1) = "insert into " & Tname & " (St,Nu,Dt,BL)" & " values('abc',123,#2023/1/2#,True)"」が１個目のSQL文で、図４４で作成したテーブルに新たなレコードを挿入（Insert）しています。
他の３個のSQL文もほぼ同じで、挿入する値を少しずつ変えています。
６８３行目「cn.Open DBpath & DBname」で、Accessファイルを開きます。
６８５行目「For i = 1 To 4」でカウンタ変数ｉを回しながら、６８７行目「cn.Execute SQL(i)」で配列に格納したSQL文を１つずつ実行（＝レコード挿入）していきます。
なお、もしExecute実行時にエラーが出た際には、その内容が分かるように６８８行目「If Not Err.Number = 0 Then MsgBox Err.Description」でエラー内容（Err.Description）をメッセージ出力するようにしています。

アプリ実例・関連する項目

「ExcelからAccessデータベースを作成・操作」

サンプルファイル

DAOでAccess･Excel･CSVへ接続・操作（its-041.xlsm）
Accessデータファイル（its-041.accdb）
CSVデータファイル（its-041.csv）

セキュリティ向上を目的として「インターネット経由でダウンロードしたOfficeファイル（Excel等）のマクロは、既定でブロック」されるようにOfficeアプリケーションの既定動作が変更になりました。（2022年4月より切替開始） 解除の方法については「ダウンロードファイルのブロック解除方法」を参照下さい。