https://vba-excel-access.seesaa.net/ vba を使用すると、excelとaccessを簡単に接続でき、データのエクスポート・インポートなどの連携ができます。　両者にvba文法の違いがないので、excelのvba学習の知識をaccessでも活用できます。 Excelでデータ分析を、Accessでデータの蓄積をすると、データの管理が効率的で作業能率を高めることができます。確かめましょう！ ja https://vba-excel-access.seesaa.net/article/160897911.html vba を使用した excel と accessの接続は、ADOまたはオートメーションで簡単に実現できます！vba excel access 簡単です！ Homeへ接続vbaによる有効な２つの「接続」方法は、ado と オートメーションです。データ処理には軽快な ado 、データ以外のAccessオブジェクトには、オートメーションが有効です。　接続の動作確認は、Office 2007、2010で行いました。１．　ADO（ActiveX Data Objects）を利用して接続.. 接続 Yy 2010-08-29T05:33:19+09:00 vba を使用した excel と accessの接続は、ADOまたはオートメーションで簡単に実現できます！
vba excel access 簡単です！ Homeへ
接続

vbaによる有効な２つの「接続」方法は、ado と オートメーションです。

データ処理には軽快な ado 、データ以外のAccessオブジェクトには、オートメーションが有効です。
　接続の動作確認は、Office 2007、2010で行いました。
１．　ADO（ActiveX Data Objects）を利用して接続する方法
※　まず、VBEウィンドウの「ツール」ー「参照設定」で　Microsoft ActiveX Data Objects X.XX Library にチェックを入れます。
X.XX は、Libraryのバージョンです。　まず、最新版のLibraryをチェックしましょう。
接続 手順は、主に次の通りです。　
※　（ ）内の番号は、後半の vba ステートメントのコメントの番号と対応しています。
（１）　ADOのConnectionオブジェクトの変数を宣言します。
（２）　新しいConnectionオブジェクトを生成し、そのオブジェクトを「参照」するため、宣言した変数に代入します。
（３）　Office 2010 の「信頼できる場所」にあるaccdbと接続します。
　　　この場所のファイルは、信頼できる、とした結果保存する場所なので、ファイルを開く「警告」が表示されません。
　　　この例のADOの場合、別の保管場所でも動作します。
　　場所の選択は、「ファイル」－「オプション」ー「セキュリティーセンター」ー「セキュリティーセンター」ボタンを押し、「信頼できる場所」です。
　　Providerは、最新の Microsoft.ACE.OLEDB.12.0 を指定しなければなりません。
　　なお、Office 2000から2003までは、Microsoft.Jet.OLEDB.4.0です。
　　Office 97は、Microsoft.Jet.OLEDB.3.5.1 です。

（４）　接続を解除するには、Closeメソッドを実行します。　※　（５）のリソースをクリアする場合、省略できます。
（５）　オブジェクト参照に使用されたリソースをクリアし、使用可能メモリ容量を大きくする必要があります。
　　このリソース解除を行わない場合、使用可能メモリ容量が減るので、excelの動作が遅くなります。

次のステートメントは、上記で説明したADOを利用したaccessDBとの接続・解除の手順を実行します。
　　Dim oCn As ADODB.Connection　'（１）

　　Set oCn = New ADODB.Connection　'（２）
　　oCn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
　　　　　　　　　"Data Source=C:\Program Files\Microsoft Office\Office14\ACCWIZ\Imp_Accdb.accdb;"　'（３）

　　oCn.Close　'（４）
　　Set oCn = Nothing　'（５）

２．　オートメーションにより接続する方法
　この方法は、1993年にMicrosoftから発表されました。（※　OLE Automation Wikipedia より引用 ）
　Accessは、オートメーションに対応したアプリケーションです。　
　Officeのバージョンがオートメーションに対応している場合、活用できます。
したがって、その場合、excel　から vba により、accessの機能をオブジェクトを参照することにより利用できます。
オートメーションを利用した「接続」が簡単にでき、access のテーブルを操作できます。
その結果、データをインポート・エクスポート出来ることが分かります。
　実際、接続は、主に次の手順で実行できます。
　（ ）内の番号は、後半の vba ステートメントのコメントの番号と対応しています。
（１）　オブジェクトの変数を宣言します。
（２）　Accessが起動されている場合、そのAccessを利用して処理効率を向上させます。
　　　新しいAccessを起動するオーバーヘッド時間が無い場合、ユーザーのストレスを軽減する効果があります。
　　　１）　エラーが出た場合、次のステートメントを実行させます。
　　　２）　実行中のAccessのオブジェクトを参照するため、オブジェクト変数に代入します。
　　　３）　エラーが発生した場合、Accessが起動していないことが分かります。
　　　４）　エラーをクリアーします。
（３）　Accessオブジェクトを新しく作成し、そのオブジェクトを「参照」するため、宣言した変数に代入します。
（４） AccessDBに接続します。
　　　この場所のファイルは、信頼できる、とした結果保存する場所なので、ファイルを開く「警告」が表示されません。
　　　前の例と同様、この例の場合、「信頼できる場所」としています。　しかし、別の保管場所でも動作します。
　　場所の選択は、「ファイル」－「オプション」ー「セキュリティーセンター」ー「セキュリティーセンター」ボタンを押し、「信頼できる場所」です。
（５）　通常にaccessを使用できるため、acｃesｓが見える設定にします。
（６）　接続を解除するには、Closeメソッドを実行します。　※　（７）のリソースをクリアする場合、省略できます。
（７）　オブジェクト参照に使用されたリソースをクリアし、使用可能メモリ容量を大きくする必要があります。
　　このリソースクリアを行わない場合、使用可能メモリ容量が急速に減るため、excelの動作が遅くなってきます。
　　理由は、オートメーションのオブジェクトの参照で割り当てられるメモリ容量が大きいからです。

次のステートメントは、上記で説明したオートメーションを利用したaccessDBとの接続・解除の手順を実行します。
　　Dim oApp As Object　'（１）

　　On Error Resume Next　'（２）－１）
　　Set oApp = GetObject(, "Access.Application")　'（２）－２）
　　If Err.Number <> 0 Then　'（２）－３）
　　　　Err.Clear　'（２）－４）

　　　　Set oApp = CreateObject("Access.Application")　'（３）

　　End If　'（２）　－３）

　　oApp.OpenCurrentDatabase "C:\Program Files\Microsoft Office\Office14\ACCWIZ\Imp_Accdb.accdb"　'（４）
　　oApp.Visible = True　'（５）

　　oCn.Close　'（６）

　　Set oCn = Nothing　'（７）

※　上記２つのマクロの使用例は、「エクスポート」記事で説明しました。

ADOとオートメーションのvba を使用した excel と access の接続を活用しましょう！

vba excel access 簡単です！ Homeへ ]]> https://vba-excel-access.seesaa.net/article/160897912.html vba を使用して excel から access へエクスポートが簡単にできます！vba excel access 簡単です！ Homeへエクスポートvbaを使用して excel から access へデータをエクスポートできます。 ADOは、データをより簡単・高速にエクスポートできます。エクスポートの例として、次に説明した excel ワークシートの１０万行Ａ，Ｂ２列のテーブルを対象にしました。 （１）　１行目は、ヘッダーです。　Aceessのフィールド名に合わせました.. エクスポート Yy 2010-08-28T05:33:20+09:00 vba を使用して excel から access へエクスポートが簡単にできます！
vba excel access 簡単です！ Homeへ
エクスポート

vbaを使用して excel から access へデータをエクスポートできます。

ADOは、データをより簡単・高速にエクスポートできます。
エクスポートの例として、次に説明した excel ワークシートの１０万行Ａ，Ｂ２列のテーブルを対象にしました。

（１）　１行目は、ヘッダーです。　Aceessのフィールド名に合わせました。
（２）　ワークシートは、Sheet1 を利用しました。
（３）　データは、１０万行をエクスポートできます。

ID　　　　Data1　　　　Data2
0000001　A-0000001 B-0000001
0000002　A-0000002 B-0000002
　　　　・・・・・・・・・・・
（同様のエクスポート・データが１００，０００行続きます。）
　　　　・・・・・・・・・・・
0099999　A-0099999 B-0099999


一方、Accessは、上記のデータをインポートした結果作成できるテーブルを利用しました。
（１）　テーブルは、Sheet1 と命名しました。
（２）　テーブルは、３つのフィールドで構成させました。
　　　１）　ID　主キー　　　　
　　　２）　Data1 テキストフィールド　
　　　３）　Data2　テキストフィールド

１．　ADOを利用して excel から　access　のテーブルへエクスポートする方法
※　接続と解除、デバッグプリントについては、説明がありません。　「接続」記事を参照ねがいます。
主なポイントは、次の通りです。　（ ）内の番号は、説明の次にある各ステートメントのコメント内の番号と対応しています。
（１）　テーブル情報を変数として宣言します。
（２）　テーブル情報のオブジェクトを作成し、参照を変数に代入します。
（３）　レコードを追加する前に、テーブルのデータを削除します。
　　　１）　エクスポート先のSheet1テーブルのデータを全て削除します。
　　　２）　エクスポート先のSheet1テーブルを開きます。
（４）　セル範囲の列数より、フィールド数を求めます。
（５）　行番号を仮変数に代入します。　カーソルの位置と対応させています。
（６）　ワークシートのテーブルのセル範囲をループさせ、エクスポートします。
（７）　★　次の　Forループで情報をテーブルに追加します。
（８）　主キーID フィールドの隣のフィールドからエクスポート・データを入力します。
（９）　★　上記のForループでテーブルに追加した情報を含め、テーブルを更新します。
（１０）　次の行に移動します。
（１１）　テーブルを閉じます。
（１２）　テーブル情報のリソースをクリアーし、メモリを解放します。

Sub export_ws_ADO()
''VBEの「ツール」ー「参照設定」で　Microsoft ActiveX Data Objects X.XX Library にチェックを入れます。
　　Dim oCn As ADODB.Connection
　　Dim oRs As ADODB.Recordset　'（１）
　　Dim intL As Long, intMaxF As Integer　'使用する仮変数の宣言です。

　　Debug.Print "Start ADO " & Time

　　Set oCn = New ADODB.Connection
　　Set oRs = New ADODB.Recordset　　'（２）
　　oCn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
　　　　"Data Source=C:\Program Files\Microsoft Office\Office14\ACCWIZ\Imp_Accdb.accdb;"

　　oRs.Open "DELETE FROM Sheet1;", oCn　　'（３）－１）
　　oRs.Open "SELECT * FROM Sheet1;", oCn, adOpenDynamic, adLockOptimistic　'（３）－２）

　　intMaxF = Range("A1").CurrentRegion.Columns.Count - 1　'（４）

　　intL = 2　'（５）
　　Do While (Cells(intL, 1).Value <> "")　'（６）
　　　　oRs.AddNew　'（７）　★
　　　　For j = 0 To intMaxF
　　　　　　oRs.Fields(j + 1) = Cells(intL, j + 1).Value ' （８）
　　　　Next j
　　　　oRs.Update　'（９）　★
　　　　ntL = intL + 1　'（１０）
　　Loop
　　oRs.Close　'（１１）
　　oCn.Close

　　Set oRs = Nothing　'（１２）
　　Set oCn = Nothing

　　Debug.Print "END ADO " & Time

End Sub

２．　excel から　access　へテーブル（表・リスト）をオートメーションによりエクスポートする方法
オートメーションは、データ以外のフォームなど、ADOに無い accessオブジェクトの機能を使用する場合、活用できます。
このオートメーションは、Office 95などにも対応でき、応用範囲の比較的広い方法であることが分かります。
※　接続と解除、デバッグプリントについては、説明がありません。　「接続」記事を参照ねがいます。
ポイントは、２か所です。　（ ）内の番号は、説明の次にある各ステートメントのコメント内の番号と対応しています。
（１）　エクスポート・データを追加する前に、Sheet1テーブルのデータを全て削除します。
（２）　excel のワークシートは、セル範囲まとめて access へエクスポート転送できます。
　　　accessのインポートモードにより、シートの１０万行のセル範囲を転送します。
　　　エクスポートのオートメーションは、vba ステートメントがより単純なことが分かります。
Sub export_ws_automation()
　　Dim oApp As Object

　　Debug.Print "Start AutoMation " & Time
　　On Error Resume Next
　　Set oApp = GetObject(, "Access.Application")
　　If Err.Number <> 0 Then
　　　　 Err.Clear

　　　　Set oApp = CreateObject("Access.Application")

　　End If

　　oApp.OpenCurrentDatabase "C:\Program Files\Microsoft Office\Office14\ACCWIZ\Imp_Accdb.accdb"
　　oApp.Visible = True

　　oApp.Docmd.RunSQL "DELETE FROM Sheet1"　'（１）

　　oApp.Docmd.TransferSpreadsheet acImport, 8, "Sheet1", "C:\Documents and Settings\Administrator\デスクトップ\Exp_Book1.xlsm", True, "A1:B100000"
　　　　　　　　　　　　　　　　　　　　　　　　'（２）
　　Set oApp = Nothing

　　Debug.Print "END AutoMation " & Time

End Sub


３．　ADOとオートメーションのエクスポート処理スピード結果・比較

　データのエクスポートのベンチマークテストを行った結果、ADOがより高速に処理できました。
　実際、１０万行２列のexcelデータをaccessへエクスポートしました。
　結果は、次の通りです。
　　　（１）　ADO　　約４７秒
　　　（２）　オートメーション　約２分
したがって、エクスポート速度は、ADOがオートメーションより約３倍ほど速いことが分かりました。
　テスト環境は、次の通りです。
　　　（１）PentiumR 4 CPU 2.60 GHz
　　　（２）OS　Windows XP　Professional　SP3
　　　（３）Office　２０１０
※　エクスポート・テストは、前半で説明に使用したマクロで行いました。
　　なお、処理時間は、Alt ＋ F11 キーを押して表示させたVBEウィンドウの「イミディエイト ウィンドウ」にプリントされます。

※　vba ステートメントの詳細は、「接続」記事など関連した記事を参照願います。

ADOとオートメーションのvba を使用した excel と access の接続を活用しましょう！

vba excel access 簡単です！ Homeへ ]]> https://vba-excel-access.seesaa.net/article/160897913.html vba を使用して excel と access との連携が簡単にできます！vba excel access 簡単です！ Homeへ連携vba使用し、 excel と access とを連携させ、データをインポート・エクスポートできます。ADOとオートメーションを使用する２通りの vba を使用した連携ができます。連携によるエクスポートについて、別のページ「エクスポート」記事を参照願います。ここで説明した連携によるインポートは、excel へ access からデータをインポ.. 連携 Yy 2010-08-27T05:33:20+09:00 vba を使用して excel と access との連携が簡単にできます！
vba excel access 簡単です！ Homeへ
連携

vba使用し、 excel と access とを連携させ、データをインポート・エクスポートできます。

ADOとオートメーションを使用する２通りの vba を使用した連携ができます。
連携によるエクスポートについて、別のページ「エクスポート」記事を参照願います。
ここで説明した連携によるインポートは、excel へ access からデータをインポートすることを意味します。
省略した説明は、「接続」、「エクスポート」記事にあります。　参照願います。

「連携」とは、お互いに連絡をとりあって物事をおこなうこと。（※　岩波書店、広辞苑より引用）
この内容をexcelとaccess連携に適用すると、excelとaccessは、お互いにADOを使用して連絡をとりあい、
データをexcelのセルからaccessのレコードのフィールドへエクスポートすることです。
また、excelのセルへaccessのフィールドデータをインポートすることで連携する、と言えます。
データのインポート・エクスポートが「連携」の目的であり、軽快なＡＤＯが活用される理由となっています。

１．　ADOを利用して excel へ access　連携させ、テーブルからデータをインポートする方法
連携するための主なポイントは、ひとつです。
（１） access テーブルから全てのデータをセルにコピーできます。
　　※　その他のステートメントの詳細は、「接続」、「エクスポート」記事を参照願います。
Sub import_ws_ADO()
''VBEの「ツール」ー「参照設定」で　Microsoft ActiveX Data Objects X.XX Library にチェックを入れます。
　　Dim oCn As ADODB.Connection
　　Dim oRs As ADODB.Recordset　

　　Debug.Print "Start ADO " & Time

　　Set oCn = New ADODB.Connection
　　Set oRs = New ADODB.Recordset　
　　oCn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
　　　　"Data Source=C:\Program Files\Microsoft Office\Office14\ACCWIZ\Imp_Accdb.accdb;"

　　oRs.Open "SELECT * FROM Sheet1;", oCn, adOpenStatic, adLockReadOnly　

　　WorkSheets("Sheet1").Activate
　　Cells(1, 1).Value = "Data1"
　　Cells(1, 2).Value = "Data2"

　　Range("A2").CopyFromRecordset oRs　'（１）　テーブルのデータをまとめてコピーできます。

　　Set oRs = Nothing　
　　Set oCn = Nothing

　　Debug.Print "END ADO " & Time

End Sub


２．　excel へ access　のデータをオートメーションによる連携でインポートする方法
連携のポイントは、１か所です。　（ ）内の番号は、説明の次にある各ステートメントのコメント内の番号と対応しています。
（１）　excel のワークシートは、セル範囲まとめて access へ転送できます。
　　　この連携は、accessのエクスポートモードによりデータが転送され、シートの　excelセルA1 が転送先の基準セルです。
　　　１行目は、ヘッダーを入力させるため、　引数「True」を指定します。
Sub import_ws_automation()
　　Dim oApp As Object

　　Debug.Print "Start AutoMation " & Time

　　On Error Resume Next
　　Set oApp = GetObject(, "Access.Application")
　　If Err.Number <> 0 Then
　　　　 Err.Clear

　　　　Set oApp = CreateObject("Access.Application")

　　End If

　　oApp.OpenCurrentDatabase "C:\Program Files\Microsoft Office\Office14\ACCWIZ\Imp_Accdb.accdb"
　　oApp.Visible = True

　　oApp.Docmd.TransferSpreadsheet acExport, 8, "Sheet1", "C:\Documents and Settings\Administrator\デスクトップ\Exp_Book1.xlsm", True
　　　　　　　　　　　　　　　　　　　　　　　　'（１）
　　Set oApp = Nothing

　　Debug.Print "END AutoMation " & Time

End Sub

ADOとオートメーションのvba を使用した excel と access の接続を活用しましょう！

vba excel access 簡単です！ Homeへ ]]> https://vba-excel-access.seesaa.net/article/160897914.html vba を使用した excel と accessの接続は、ADOで簡単・高速、軽快に動作します！vba excel access 簡単です！ Homeへadovbaで簡単に使えるADO(ActiveX Data Objects)は、高速・小容量メモリのため軽快に動作します。ADOでレコードの追加・更新・削除・検索が簡単にできます。１．　まず始めに、ADOで接続するために Dim文でProgIDが「ADODB.Connection」であるオブジェクト変数を宣言します。''VBE.. ado Yy 2010-08-26T05:33:20+09:00 vba を使用した excel と accessの接続は、ADOで簡単・高速、軽快に動作します！
vba excel access 簡単です！ Homeへ
ado

vbaで簡単に使えるADO(ActiveX Data Objects)は、高速・小容量メモリのため軽快に動作します。

ADOでレコードの追加・更新・削除・検索が簡単にできます。

１．　まず始めに、ADOで接続するために Dim文でProgIDが「ADODB.Connection」であるオブジェクト変数を宣言します。
''VBEの「ツール」ー「参照設定」で　Microsoft ActiveX Data Objects X.XX Library にチェックを入れます。
※　詳細は、「接続」記事を参照願います。

２．　次に、レコードセットに対してADOでは、 Dim文で ADODB.Recordset オブジェクト変数を宣言します。
※　詳細は、「エクスポート」、「連携」記事を参照願います。

３．　ADOの接続は、Set文でオブジェクトの参照を代入した変数に対して行われます。
※　詳細は、「エクスポート」、「連携」記事を参照願います。

４．　カーソル（Cursor）は、一連のデータに順にアクセスする際の検索条件および「現在位置」を保持するデータベースの要素です。
※　カーソル（データベース） Wikipediaより引用
　次の図の黄色の部分は、一連のデータの３番目を「現在位置」としたカレントレコードです。
図の右辺には、カーソルタイプに従い、カレントレコードを移動させるメソッドを５種類示しました。
レコードの位置は、Move n によりカレントレコードから「移動するレコード数」 ｎ 分移動できます。
カーソルを開いたとき、レコードの位置は、先頭レコードですので、 ｒecordｓet.Move　２ により　３番目のレコードに移動します。
RecordSetオブジェクトの Move メソッドを使用してカレントレコードの位置を移動できます。
MoveNextにより次のレコードに移動でき、MovePreviousにより前のレコードに移動できることを示します。
また、MoveFirstにより先頭レコードに移動でき、MoveLastにより最終レコードに移動できることを示しています。
ただし、レコード位置を１つの方向・順方向にのみ移動制限するタイプがあります。　
※　詳細は、後半の　（３）カーソルタイプの説明を参照願います。



上記の一連のデータは、レコードセットの「カーソル」を開いた結果として得ることができます。
次のステートメントは、レコードセット・オブジェクトのメソッド Ｏｐｅｎ の引数(省略可能）を示しています。

recordset.Open Source, ActiveConnection, CursorType, LockType, Options

（１）　最初の引数 Sourceは、ＳＱＬ文、テーブル名、クエリ名、有効な Command オブジェクトなどを指定します。
（２）　ActiveConnectionは、オブジェクトの参照を代入した変数または接続情報文字列を指定します。
（３）　CursorTypeは、次の３つのカーソルの機能を指定する定数です。
　　　　【a】 カレントレコード位置の移動性
　　　　【b】 データの更新可能性
　　　　【c】 他のユーザーが行ったデータベースの変更結果の可視性

これにより一連のデータにアクセスする方向や追加・編集・削除・検索したレコードが参照可能か否かを明確にできます。
このカーソルタイプには、次の種類があります。
　　　１）　adOpenForwardOnly　：　既定値　順方向のみ
　　　　　　レコード位置が順方向にのみ移動でき、個々のレコードを検索できず、レコード数を返しません。
　　　　　　参照のみ可能であり、高速に動作できます。　他のユーザーによる更新レコードを表示できません。
　　　２）　adOpenStatic　：　静的
　　　　　　レコード位置が順・逆の２方向に移動でき、Findを使用でき、レコード数を返すことができます。
　　　　　　他のユーザーによる更新レコードを表示できません。
　　　３）　adOpenDynamic　：　動的
　　　　　　レコード位置を全ての方向に移動でき、Findを使用でき、レコード数を返すことができます。
　　　　　　レコードの全ての更新を表示できます。
　　　４）　adOpenKeyset　：　キーセット
　　　　　　レコード位置を全ての方向として順・逆方向に移動でき、Findを使用でき、レコード数を返します。
　　　　　　既に記録されていたレコードの更新を表示できます。
　　　　　　削除されたレコード、新しく記録されたレコードの更新を表示出来ません。
　　　５）　adOpenUnspecified　：　指定せず
　　　　　　カーソルの種類を指定しません。

（４）　LockTypeは、編集時 recordset を開くときに使用するロック（同時作用）の種類を指定する定数です。
このロックタイプには、次の種類があります。
　　　１）　adLockReadOnly　：　既定値　読み取り専用、データを変更できません。
　　　２）　adLockPessimistic　：　レコード単位の排他的ロック、編集直後にデータソースでレコードをロックします。
　　　３）　adLockOptimistic　：　レコード単位の共有的ロック、Update メソッドを呼び出した場合のみロックします。
　　　４）　adLockBatchOptimistic　：　共有的バッチ更新を示しています。　バッチ更新モードの場合に設定します。
　　　５）　adLockUnspecified　：　指定せず。　ロックの種類を指定しません。

（５）　Optionsは、省略可能です。　
　　　※　詳細は、Ｍｉｃｒｏｓｏｆｔ　Ａｃｃｅｓｓ　の開発者リファレンスを参照願います。

５．　ADOによるレコードの追加・編集・削除・検索・抽出
先ず最初にVBEの「ツール」－「参照設定」で Microsoft ActiveX Data Objects X.XX Libraryにチェックを入れます。
ADOのレコードに対する機能は、主にRecordSetオブジェクトのメソッドまたはプロパティにより実現できます。
（１）追加　　AddNew、Updateメッソドを使用します。
Sub 　ado_add()
　　Dim oCn As ADODB.Connection
　　Dim oRs As ADODB.Recordset

　　Set oCn = New ADODB.Connection
　　Set oRs = New ADODB.Recordset
　　oCn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
　　　　"Data Source=C:\Program Files\Microsoft Office\Office14\ACCWIZ\Imp_Accdb.accdb;"

　　oRs.Open "SELECT * FROM Sheet1;", oCn, adOpenDynamic, adLockOptimistic
　　'*************
　　oRs.AddNew
　　　For j = 1 To (oRs.Fields.Count - 1)
　　　　　　oRs.Fields(j).Value = Cells(1, j).Value
　　　Next j
　　oRs.Update
　　'*************
　　oRs.Close
　　oCn.Close

　　Set oRs = Nothing
　　Set oCn = Nothing

End Sub

上記のマクロは、アクティブシートの１行目をレコードに追加しています。
最初のフィールドは、主キーとして使用しているので、２番目のフィールドから入力し、最終レコードの次に追加します。
ADOのCloseメソッドに対する注意があります。
このメソッドを使用してRecordSetを閉じる前にConnection オブジェクトを閉じる場合があります。
その場合、その接続に関連するアクティブな Recordset オブジェクトもすべて閉じてしまいます。
この結果、保留中の更新または編集がキャンセルされますので、注意が必要です。
最初に RecordSet オブジェクトを Close し、保留中の更新または編集を完了しなければなりません。

（２）編集　　ADOのUpdateメッソドを使用します。
上記のマクロの一部を「編集」用に修正しました。
　　'*************
　　Do
　　　　For j = 1 To (oRs.Fields.Count - 1)
　　　　　oRs.Fields(j).Value = oRs.Fields(j).Value & "z"
　　　　Next j
　　　　oRs.Update
　　　　oRs.MoveNext
　　Loop Until oRs.EOF
　　'*************

このマクロは、１番目のレコードから最終のレコードまでデータの末尾に　z　を追加します。

（３）削除　　ADOのDeleteメソッドを使用します。
上記のマクロの一部を「削除」用に修正しました。
　　'*************
　　Do
　　　　oRs.Delete
　　　　oRs.MoveNext
　　Loop Until oRs.EOF
　　'*************

このマクロは、開いたレコードセットのすべてのレコードを削除します。

（４）検索　　ADOのFindメソッドを「ただ１つのフィールド名」に対して使用します。
書式は、Recordset.Find 検索条件, SkipRows, SearchDirection, Start　です。
１）検索条件は、列の名称１つだけ指定できます。
２）SkipRowsは、読み飛ばすレコード数を指定します。省略時、カレントレコードから検索します。
３）SearchDirectionには、adSearchBackward, adSearchForward の２つがあります。
省略可能です。検索が成功しなかった場合、それぞれBOF、EOFに移動して止まります。
４）Stratは、検索開始位置を指定できます。省略すると、カレントレコードから検索を開始します。
上記のマクロの一部を「検索」用に修正しました。
　　'*************
　　oRs.MoveFirst '検索は、開始するカレントレコードを明確に設定する必要があります。
　　Do
　　　　oRs.Find oRs.Fields(1).Name & " Like '%333%' "
　　　　If Not (oRs.EOF) Then
　　　　　　Debug.Print oRs.Fields(1).Value
　　　　Else
　　　　　　Exit Do
　　　　End If
　　　　oRs.MoveNext
　　Loop Until oRs.EOF
　　'*************

このマクロは、２番目のフィールドデータに文字列　333　を含む場合、イミディエイトウィンドウに出力します。

（５）抽出　　ADOのFilterプロパティを使用します。複数フィールドでも使用できます。
上記のマクロの一部を「抽出」用に修正しました。
　　'*************
　　oRs.Filter = "Data1 Like '%333%' OR Data2 Like '%333%' "
　　If oRs.RecordCount = 0 Then
　　　　MsgBox "抽出できるレコードがありません"
　　Else
　　　　Do
　　　　　　Debug.Print oRs.Fields(1).Value
　　　　　　oRs.MoveNext
　　　　Loop Until oRs.EOF
　　End If
　　oRs.Filter = "" '空白を代入し、フィルタを解除します。
　　'*************

このマクロは、２、３番目のフィールドデータに文字列　333　を含む場合、イミディエイトウィンドウに出力します。

５．　ADO X によりテーブルやフィールドを新しく作成する方法
　ADOには、ADOX(ADO Extensions for DDL and Security)と呼ばれるADOの拡張コンポーネントがあります。
このADOXには、データベースの構造を保守するための各種プロパティとメソッドがサポートされています。
ADOXにより、Table や Field を新規に作成することができます。
Office 2010 をインストールしている環境で、実際にテーブルとフィールドを作成し、削除するサンプルを示しました。
先ず最初にVBEの「ツール」－「参照設定」で Microsoft ADO Ext. X.X for DDL and Security にチェックを入れます。

Sub Main_table_add_delete()
On Error GoTo CreateTableError

Dim tbl As New Table
Dim cat As New ADOX.Catalog

'カタログを開きます。
cat.ActiveConnection = "Provider='Microsoft.ACE.OLEDB.12.0';" & _
"Data Source='C:\Documents and Settings\Administrator\My Documents\ノースウィンド.accdb';"

tbl.Name = "MyTable"
tbl.Columns.Append "Column1", adInteger
tbl.Columns.Append "Column2", adInteger
tbl.Columns.Append "Column3", adVarWChar, 50
cat.Tables.Append tbl
Debug.Print "テーブル 'MyTable' を追加しました。."

'実際に作成したテーブルを削除します。
cat.Tables.Delete tbl.Name
Debug.Print "テーブル 'MyTable' を削除しました。"

'接続を解除し、リソースメモリを解放します。
Set cat.ActiveConnection = Nothing
Set cat = Nothing
Set tbl = Nothing
Exit Sub

CreateTableError:

Set cat = Nothing
Set tbl = Nothing

If Err <> 0 Then
MsgBox Err.Source & "エラー：　" & Err.Description, , "Error"
End If
End Sub

※　詳細は、Access 2010の開発者用リファレンス「１５章：　ADOXに関する基本事項」を参照願います。
　　なお、接続は、"Provider='Microsoft.ACE.OLEDB.12.0';"であることが必要です。

ADOとオートメーションのvba を使用した excel と access の接続を活用しましょう！

vba excel access 簡単です！ Homeへ ]]> https://vba-excel-access.seesaa.net/article/160897915.html excel と access のvbaの文法の違いは、ありません。同じプログラミング言語 VBAです！vba excel access 簡単です！ Homeへ違いexcelとaccessで vba の文法の違いは、ありません。１．excel で学んだ vba　の知識は、 そのまま access で役立ちます。同じ vba で excel と access を操作できます。　違いは、ありません。excel で vba は、マクロを作成するプログラミング言語です。access で.. 違い Yy 2010-08-25T05:33:20+09:00 excel と access のvbaの文法の違いは、ありません。同じプログラミング言語 VBAです！
vba excel access 簡単です！ Homeへ
違い

excelとaccessで vba の文法の違いは、ありません。

１．excel で学んだ vba　の知識は、 そのまま access で役立ちます。
同じ vba で excel と access を操作できます。　違いは、ありません。
excel で vba は、マクロを作成するプログラミング言語です。
access でも vba は、excel と同様のマクロを作成するプログラミング言語です。
『Visual Basic for Applications（ビジュアルベーシック・フォー・アプリケーションズ、VBA）は、マイクロソフト社製のMicrosoft Officeシリーズに搭載されているプログラミング言語である。』
（※　vba Wikipediaより引用）

vba は、Excel 5.0より使用できるプログラミング言語です。
vba は、例えば excel の「ワークシート」に対して次の操作・値取得・アクション発生を知ることができます（excel 2010）。
（１）　Activate, Copy などの操作は、---> 「メソッド」
（２）　Cells, Range などの状態の値取得は、---> 「プロパティ」
（３）　Activate, Change などのアクション発生のメッセージは、---> 「イベント」
　　この３つは、それぞれ、３０、５５、１４　計９９個あります。
このように、vba は、メソッド、プロパティ、イベントを記述できる言語、となっています。
メソッド、プロパティ、イベントの記述の仕方は、excel と access　との間で違いがありません。
したがって、excel で 習得した vba の知識は、access で活用できることが分かります。

excel と access との違いは、メソッド、プロパティ、イベントの種類の違いです。
excel は、セルやワークシートなどを操作します。
一方、access は、テーブル、クエリーまたフォームやレポートなどを取り扱います。


２．Excel 2010は、Excel ４ マクロを作成、編集、実行できます。
vba が発表される前、Ｅｘｃｅｌには Excel 4 マクロと呼ばれるマクロ機能がありました。
このマクロのファイルは、拡張子を　ＸＬＭ としていたので、Excel 4 マクロをＸＬＭと呼んでいました。
ＸＬＭは、関数を中心とした「関数型」言語で記述されます。
例えば、印刷は、次のＰＲＩＮＴ関数を使用します。

=PRINT()
　印刷ダイヤログを表示する
=PRINT(「印刷範囲」「,先頭ページ」「,終了ページ」「,部数」「,画像」「,プレビュー」「,メモ印刷」「,カラー印刷」「,給紙方法｣「,品質｣「,解像度」「,印刷対象」)

実は、vba は、この２つ目の印刷ができません。
したがって、Excel 4 マクロを使用できることが、　excel 2010の開発目標の１つとなりました。
印刷の他に、グラフのプロパティなども vba にはありません。
関数型言語は、簡潔に記述できることが最大の特徴です。
したがって、このExcel 4 マクロに強い関心が寄せられる理由が分かります。

PRINT関数の詳細を示しました。
Excel 4.0 マクロヘルプの英文を訳した内容です。
１）印刷範囲
　1　又は　2　で指定
　1　全てを印刷する
　2　指定ページを印刷する

２）先頭ページ　省略可
　「印刷範囲」で2を指定した時の先頭ページを数値で指定する。

３）終了ページ　省略可
　「印刷範囲」で2を指定した時の終了ページを数値で指定する。

４）部数　省略可
　印刷部数を数値で指定する。
　省略すると1

５）画像　省略可
　TRUE　または　FALSEで指定

　TRUE　画像を印刷しない
　FALSE　画像を印刷する

　省略すると現在の設定を使用する。

６）プレビュー　省略可
　TRUE　または　FALSEで指定

　TRUE　プレビューを表示する
　FALSE　プレビューを表示しない

　省略するとFALSE

７）メモ印刷　省略可
　1 -3　を数値で指定する。

　1　ワークシートのみ印刷
　2　メモのみ印刷
　3　ワークシートとメモを両方印刷

　省略すると現在の設定を使用する。

８）カラー印刷　省略可
　Macintosh版EXCELのみで使用
　TRUE　または　FALSEで指定
　省略すると現在の設定を使用する。

９）給紙方法　省略可
　Macintosh版EXCELのみで使用
　1　または　2　で指定する

　1　用紙カセット
　2　手差し

　省略すると現在の設定を使用する。

１０）品質　省略可
　WINDOWS版EXCELのみで使用
　印刷品質をDPIで指定する
　省略すると現在の設定を使用する。

１１）解像度　省略可
　WINDOWS版EXCELのみで使用
　縦方向解像度をDPIで指定する
　省略すると現在の設定を使用する。

１２）印刷対象　省略可
　1 - 3　を数値で指定する

　1　選択されているシートの現在選択されているセル範囲
　2　選択されているシートの定義されている印刷範囲　または　シート全体
　3　ブックに含まれるシートすべての定義されている印刷範囲　または　シート全体

ADOとオートメーションのvba を使用した excel と access の接続を活用しましょう！

vba excel access 簡単です！ Homeへ ]]>