VB実用Ⅲ②　オフィスオートメーションⅠ

Transcription

1 オフィスオートメーション Ⅰ VB オートメーション 2 プログラムの概要 マイクロソフト社の提唱する処の オートメーション とは 或る Office アプリケーションから他の Office アプリケーションのオブジェクトを VB や VBA を使用して操作する事 即ち Office アプリケーションをプログラム的に統合する事を意味する Office アプリケーションは其の何れもが単体でも優れたアプリケーションで有るが 個々の Office アプリケーションが持つ様々な機能を 1 個のカスタムソリューションに統合する事で 其の優れた性能と機能とを更に高める事が出来る Office アプリケーションで公開されて居るオブジェクト群は 部品の集合体と仕て扱う事が出来る為 自作のソリューションに組み込む事が可能で有る 然うする事で Office ソフトウェアの設計 開発 試験に懸けられた労力を有効利用出来る丈でなく 開発期間の短縮も図る事が出来る 其処で 今回は 事務処理に於いて 業界標準 (De Facto Standard) で有る Microsoft Office のオブジェクトを VB から操作する方法を重点的に学ぶ 此処では Access オブジェクトを用いて XLS 形式 RTF 形式 HTML 形式と相互変換する方法を説明する 今回の課題項目 参照設定 (Microsoft Access Excel DAO x.x Object Library) Access オブジェクト (Application オブジェクト DoCmd オブジェクト ) Application オブジェクト (Quit OpenCurrentDatabase CloseCurrentDatabase メソッド ) DoCmd オブジェクト (TransferText TransferSpreadsheet OutputTo メソッド ) Excel オブジェクト (Application オブジェクト Workbook オブジェクト ) Application オブジェクト (Workbooks コレクション Add メソッド Close メソッド ) Workbook オブジェクト (SaveAs メソッド ) DAO オブジェクト (Database DBEngine Workspace TableDef オブジェクト ) 今回の重点項目 参照設定 (Microsoft Access Excel DAO x.x Object Library) Access オブジェクト (Application オブジェクト DoCmd オブジェクト ) Application オブジェクト (Quit OpenCurrentDatabase CloseCurrentDatabase メソッド ) DoCmd オブジェクト (TransferText TransferSpreadsheet OutputTo メソッド ) Excel オブジェクト (Application オブジェクト Workbook オブジェクト ) Application オブジェクト (Workbooks コレクション Add メソッド Close メソッド ) -1-

2 オブジェクト プロパティ一覧 フレーム 1 フレーム 2 コマンドボタン 1 コマンドボタン 3 コマンドボタン 2 コマンドボタン 4 フレーム 3 コマンドボタン 5 コマンドボタン 6 チェックボックス 1 チェックボックス 2 コモンダイアログ コマンドボタン 7 コントロールの種類 プロパティ プロパティの設定値 フォーム オブジェクト名 frmmain BorderStyle 1 - 固定 ( 実線 ) Office オートメーション StartUpPosition 2 - 画面の中央 フレーム1 オブジェクト名 fracsv CSV 変換 フレーム2 オブジェクト名 fraexcel EXCEL 変換 フレーム3 オブジェクト名 frartf RTF 変換 フレーム4 オブジェクト名 frahtml HTML 変換 コマンドボタン1 オブジェクト名 cmdcsvtoaccess CSV ACCESS コマンドボタン2 オブジェクト名 cmdaccesstocsv ACCESS CSV コマンドボタン3 オブジェクト名 cmdexceltoaccess EXCEL ACCESS -2-

3 コントロールの種類 プロパティ プロパティの設定値 コマンドボタン4 オブジェクト名 cmdaccesstoexcel ACCESS EXCEL コマンドボタン5 オブジェクト名 cmdaccesstortf ACCESS TRF コマンドボタン6 オブジェクト名 cmdaccesstohtml ACCESS HTML コマンドボタン7 オブジェクト名 cmdfinish 終了 チェックボックス1 オブジェクト名 chkopenrtf 作成後 ファイルを開く チェックボックス2 オブジェクト名 chkopenhtml 作成後 ファイルを開く コモンダイアログ オブジェクト名 cdlfile CancelError True フォームモジュールの追加 下図の様に メニューバーの プロジェクト をクリックして表示されるドロップダウンメニューより フォームモジュールの追加 をクリックすると プロジェクトに新しいフォームが追加される 複数のフォームを使用する場合は 夫々れにオブジェクト名を付ける事が望ましい ( 勿論 Form1 Form2 でも構わないが 用途を表す名前を付けた方が紛らわしくなくて良い ) Font プロパティ等に付いては 各自の好みで適宜設定する コモンダイアログは メニューバーの プロジェクト コンポーネント で追加する -3-

4 フレーム テキストボックス コマンドボタン 1 コマンドボタン 2 コントロールの種類 プロパティ プロパティの設定値 フォーム オブジェクト名 frmtableinp Office オートメーション StartUpPosition 2 - 画面の中央 フレーム オブジェクト名 fratable テーブル名入力 テキストボックス オブジェクト名 txttable Text 空白 コマンドボタン1 オブジェクト名 cmdfixed 決定 コマンドボタン2 オブジェクト名 cmdcancel キャンセル フレーム コンボボックス コマンドボタン 1 コマンドボタン 2 コントロールの種類 プロパティ プロパティの設定値 フォーム オブジェクト名 frmtablesel テーブル指定 StartUpPosition 2 - 画面の中央 フレーム オブジェクト名 fratable テーブル指定 コンボボックス オブジェクト名 cbotable Text 空白 コマンドボタン1 オブジェクト名 cmdfixed 決定 コマンドボタン2 オブジェクト名 cmdcancel キャンセル -4-

5 Option Explicit プログラムリスト (frmmain) ' Microsoft Access x.x Object Library の参照設定を行う ' Microsoft Excel x.x Object Library の参照設定を行う ' Microsoft DAO x.x Object Library の参照設定を行う Private Ac Private Sd As Access.Application As String ' フォームが読み込まれた時の処理たパスを取得し 末尾に が付い Private Sub Form_Load( ) て居ない場合は を付ける ' 起動パスの設定 Sd = App.Path: If Not Right$( Sd, 1 ) = " " Then Sd = Sd & " " ' Access オブジェクトのインスタンス生成 Set Ac = New Access.Application 此処で宣言した変数の有効期間は 宣言された時点から プログラム の終了迄で有る App.Path でプログラムを起動し オブジェクト変数にオブジェクト への参照を代入する時には Set ス テートメントを使用する ' ダイアログボックスの設定 cdlfile.initdir = Sd CancelError プロパティを設定し cdlfile.cancelerror = True て キャンセルが選択された何うか判定出来る様にする ' フォームが閉じられ様と仕た時の処理 Private Sub Form_QueryUnload( Cancel As Integer, UnloadMode As Integer ) ' Access の終了 Ac.Quit Quit メソッドで Access を終了し ' Access の解放てから Access のインスタンスを Set Ac = Nothing メモリから開放する ' コマンドボタン ( 終了 ) がクリックされた時の処理 Private Sub cmdfinish_click( ) Unload Me End '====================== ' CSV アクセス変換 '====================== ' コマンドボタン (CSV ACCESS) がクリックされた時の処理 Private Sub cmdcsvtoaccess_click( ) Dim Src As String Dim Dest As String Dim Tname As String Unload ステートメントは オブジェクトをメモリから消去するステートメントで有る End ステートメントは プログラムを強制的に終了するステートメントで有る 此処で宣言した変数の有効期間は宣言された時点から プロシージャの終了迄で有る ' CSV ファイル名の設定 Src = SetFileName( ".csv", "CSV ファイル (*.csv) *.csv 総てのファイル (*.*) *.*", "SRC" ) If Src = "CANCEL" Or Src = "NOEXIST" Then Exit Sub ' ACCESS ファイル名の設定 Dest = SetFileName( ".mdb", "ACCESS ファイル (*.mdb) *.mdb 総てのファイル (*.*) *.*", "DEST" ) If Dest = "CANCEL" Or Dest = "EXIST" Then Exit Sub If Dir( Dest ) = "" Then Call CreateAccessFile( Dest ) -5- Call ステートメントは ジェネラルプロシージャ ( サブルーチン ) を呼び出す ( 制御を移す )

6 ' テーブル名の設定 Load frmtableinp frmtableinp.show vbmodal Tname = lbltablename. If Tname = "" Then Exit Sub ' Access ファイルのオープン Ac.OpenCurrentDatabase ( Dest ) ' CSV ファイルのインポート On Error Resume Next Ac.DoCmd.TransferText acimportdelim,, Tname, Src, True If Not Err.Number = 0 Then MsgBox CStr( Err.Number ) & ":" & Err.Description & vbcrlf & _ " 見出し行が不適切な場合に此のエラーが発生します ", vbcritical, " エラー " Else MsgBox "CSV ファイルのインポートが完了しました ", vbokonly, " 通知 " End If On Error Goto 0 On Error Goto 0 は On Error ' Access ファイルのクローズ Ac.CloseCurrentDatabase Load ステートメントは オブジェ クトをメモリに読み込むステート メントで有る モーダルでフォームを表示すると 其のフォームを閉じる迄 他のフ ォームを操作する事は出来ない で設定したエラートラップを解除 する構文で有る ' コマンドボタン (ACCESS CSV) がクリックされた時の処理 Private Sub cmdaccesstocsv_click( ) Dim Src As String Dim Dest As String Dim Tname As String Dim Ret As Integer 此処で宣言した変数は宣言したサ ブプロシージャ内でしか値の参照 と設定を行う事が出来ない ' ACCESS ファイル名の設定 Src = SetFileName( ".mdb", "ACCESS ファイル (*.mdb) *.mdb 総てのファイル (*.*) *.*", "SRC" ) If Src = "CANCEL" Or Src = "NOEXIST" Then Exit Sub ' テーブル名の設定 Tname = SetTableName( Src ) If Tname = "" Then Exit Sub 同じ様な処理を行う時は ジェネラルプロシージャに纏めて置いた方が 保守性も良く成る ' CSV ファイル名の設定 Dest = SetFileName( ".csv", "CSV ファイル (*.csv) *.csv 総てのファイル (*.*) *.*", "DEST" ) If Dest = "CANCEL" Or Dest = "EXIST" Then Exit Sub ' Access ファイルのオープン Ac.OpenCurrentDatabase ( Src ) キャンセルされた時は CANCEL ファイルが既に存在する時は EXIST が戻り値と成る ' CSV ファイルのエクスポート Ac.DoCmd.TransferText acexportdelim,, Tname, Dest, False MsgBox "CSV ファイルへエクスポートが完了しました ", vbokonly, " 通知 " ' Access ファイルのクローズ Ac.CloseCurrentDatabase '======================== ' エクセル アクセス変換 '======================== 処理が終了すれば メッセージボ ックスを表示して 2 度実行等を 防ぐ様に考慮する -6-

7 ' コマンドボタン (EXCEL ACCESS) がクリックされた時の処理 Private Sub cmdexceltoaccess_click( ) Dim Src As String Dim Dest As String Dim Tname As String プロシージャ間で共有しない変数 は 仮令同じ名前 データ型でも グローバルにする可きでは無い ' EXCEL ファイル名の設定 Src = SetFileName( ".xls", "EXCEL ファイル (*.xls) *.xls 総てのファイル (*.*) *.*", "SRC" ) If Src = "CANCEL" Or Src = "NOEXIST" Then Exit Sub ' ACCESS ファイル名の設定 Dest = SetFileName( ".mdb", "ACCESS ファイル (*.mdb) *.mdb 総てのファイル (*.*) *.*", "DEST" ) If Dest = "CANCEL" Or Dest = "EXIST" Then Exit Sub If Dir( Dest ) = "" Then Call CreateAccessFile( Dest ) 此処では 空の ACCESS ファイ ' テーブル名の設定 Load frmtableinp frmtableinp.show vbmodal Tname = lbltablename. If Tname = "" Then Exit Sub ' Access ファイルのオープン Ac.OpenCurrentDatabase ( Dest ) ルを生成するジェネラルプロシー ジャを呼び出して居る フォーム間の値の遣り取りに グ ローバル変数ではなく コントロ ールを使用する方法も有る ' EXCEL ファイルのインポート (Sheet1 がインポートされる ) Ac.DoCmd.TransferSpreadsheet acimport, acspreadsheettypeexcel9, Tname, Src, True MsgBox "EXCEL ファイルのインポートが完了しました ", vbokonly, " 通知 " ' Access ファイルのクローズ Ac.CloseCurrentDatabase ' コマンドボタン (ACCESS EXCEL) がクリックされた時の処理 Private Sub cmdaccesstoexcel_click( ) Dim Src As String Dim Dest As String Dim Tname As String Dim Ret As Integer メッセージボックスを表示しないと ユーザーは 作業が完了したか何うか解らない 変数名には 解り易く 且つ 簡潔な名前を付ける事が望ましい ' ACCESS ファイル名の設定 Src = SetFileName( ".mdb", "ACCESS ファイル (*.mdb) *.mdb 総てのファイル (*.*) *.*", "SRC" ) If Src = "CANCEL" Or Src = "NOEXIST" Then Exit Sub ' テーブル名の設定 Tname = SetTableName( Src ) If Tname = "" Then Exit Sub ' EXCEL ファイル名の設定 Dest = SetFileName( ".xls", "EXCEL ファイル (*.xls) *.xls 総てのファイル (*.*) *.*", "DEST" ) If Dest = "CANCEL" Or Dest = "EXIST" Then Exit Sub If Dir( Dest ) = "" Then Call CreateExcelFile( Dest ) 此処では 空の EXCEL ファイル ' Access ファイルのオープン Ac.OpenCurrentDatabase ( Src ) ' EXCEL ファイルのエクスポート Ac.DoCmd.TransferSpreadsheet acexport, acspreadsheettypeexcel9, Tname, Dest, False MsgBox "EXCEL ファイルへエクスポートが完了しました ", vbokonly, " 通知 " -7- Exit Sub ステートメントは サブ プロシージャを強制的に脱出する ステートメントで有る を生成するジェネラルプロシージ ャを呼び出して居る

8 ' Access ファイルのクローズ Ac.CloseCurrentDatabase '============================== ' リッチテキスト アクセス変換 '============================== ' コマンドボタン (ACCESS RTF) がクリックされた時の処理 Private Sub cmdaccesstortf_click( ) Dim Src As String Dim Dest As String Dim Tname As String Dim Ret As Integer CloseCurrentDatabase メソッドは カレントデータベースを閉じるメソッドで有る 此処で宣言した変数の有効期間は宣言された時点から プロシージャの終了迄で有る ' ACCESS ファイル名の設定 Src = SetFileName( ".mdb", "ACCESS ファイル (*.mdb) *.mdb 総てのファイル (*.*) *.*", "SRC" ) If Src = "CANCEL" Or Src = "NOEXIST" Then Exit Sub ' テーブル名の設定 Tname = SetTableName( Src ) If Tname = "" Then Exit Sub ' RTF ファイル名の設定 Dest = SetFileName( ".rtf", "RTF ファイル (*.rtf) *.rtf 総てのファイル (*.*) *.*", "DEST" ) If Dest = "CANCEL" Or Dest = "EXIST" Then Exit Sub ' Access ファイルのオープン Ac.OpenCurrentDatabase ( Src ) ' RTF ファイルのエクスポートメソッドで有る If chkopenrtf.value = 1 Then Ac.DoCmd.OutputTo acoutputtable, Tname, acformatrtf, Dest, True Else Ac.DoCmd.OutputTo acoutputtable, Tname, acformatrtf, Dest, False MsgBox "RTF ファイルへエクスポートが完了しました ", vbokonly, " 通知 " End If ' Access ファイルのクローズ Ac.CloseCurrentDatabase '================================ ' ハイパーテキスト アクセス変換 '================================ Or 演算子は 論理和を取る演算子 で 孰れかの条件が True に成れ ば良い場合に使用する OpenCurrentDatabase メソッド は カレントデータベースを開く ' コマンドボタン (ACCESS HTML) がクリックされた時の処理 Private Sub cmdaccesstohtml_click( ) Dim Src As String Dim Dest As String Dim Tname As String Dim Ret As Integer 此処で宣言した変数は宣言したサ ブプロシージャ内でしか値の参照 と設定を行う事が出来ない ' ACCESS ファイル名の設定 Src = SetFileName( ".mdb", "ACCESS ファイル (*.mdb) *.mdb 総てのファイル (*.*) *.*", "SRC" ) If Src = "CANCEL" Or Src = "NOEXIST" Then Exit Sub -8-

9 ' テーブル名の設定 Tname = SetTableName( Src ) If Tname = "" Then Exit Sub ' HTML ファイル名の設定 Dest = SetFileName( ".html", _ "HTML ファイル (*.html) *.html HTM ファイル (*.htm) *.htm 総てのファイル (*.*) *.*", "DEST" ) If Dest = "CANCEL" Or Dest = "EXIST" Then Exit Sub ' Access ファイルのオープン Ac.OpenCurrentDatabase ( Src ) ' HTML ファイルのエクスポート If chkopenhtml.value = 1 Then Ac.DoCmd.OutputTo acoutputtable, Tname, acformathtml, Dest, True Else Ac.DoCmd.OutputTo acoutputtable, Tname, acformathtml, Dest, False MsgBox "HTML ファイルへエクスポートが完了しました ", vbokonly, " 通知 " End If ' Access ファイルのクローズ Ac.CloseCurrentDatabase 処理結果を呼出元に返し度い場合は 戻り値を設定する事の出来るファンクションプロシージャを使用する 1 行に 1 文を記述するのが原則で有るが 長く成る場合は 空白とアンダースコアの組合せで複数行に分ける事も出来る '======================== ' ジェネラルプロシージャ '======================== ファンクションプロシージャ ( 関 数 ) のデータ型は 戻り値のデー タ型を示す ' ファイル名を設定するジェネラルプロシージャ Private Function SetFileName(Extention As String, Filter As String, Mode As String) As String Dim S As String キャンセル釦がクリックされた時 On Error Resume Next に処理を継続しない様に エラー cdlfile.defaultext = Extention トラップを設定して置く cdlfile.filter = Filter cdlfile.filename = "" DefaultExt プロパティを設定し If Mode = "SRC" Then cdlfile.showopen て 拡張子を省略した場合に 付 Else 加する拡張子を設定する cdlfile.showsave End If Filter プロパティを設定して 関 If Not Err.Number = 0 Then 係の無いファイルが表示されるの SetFileName = "CANCEL" を制限するする Exit Function End If On Error GoTo 0 Dir 関数は ファイルやディレク S = cdlfile.filename トリが存在するか何うかを調べる If Mode = "SRC" Then 為に使用する事が出来る If Dir( S ) = "" Then MsgBox " 存在するファイルを指定して下さい!", vbexclamation, " 警告 " SetFileName = "NOEXIST" Exit Function End If Else If Not Dir( S ) = "" Then If MsgBox( " ファイルが既に存在します " & vbcrlf & " 上書きしますか?", vbyesno, " 確認 " ) = vbno Then SetFileName = "EXIST" Exit Function -9- ファンクションプロシージャ名に 値を代入する事で 戻り値を設定 する

10 End If End If End If SetFileName = S End Function ' テーブル名を設定するジェネラルプロシージャ Private Function SetTableName( Target As String ) As String Dim Ws As DAO.Workspace Dim Db As DAO.Database Dim Td As DAO.TableDef Set Ws = DBEngine.Workspaces( 0 ) Set Db = Ws.OpenDatabase( Target ) Load frmtablesel With frmtablesel For Each Td In Db.TableDefs If Not Left$( Td.Name, 4 ) = "MSys" Then.cboTable.AddItem Td.Name End If Next End With Ws.Close Set Td = Nothing Set Db = Nothing Set Ws = Nothing frmtablesel.show vbmodal SetTableName = lbltablename. End Function ' 空の ACCESS ファイルを生成するジェネラルプロシージャ Private Sub CreateAccessFile( Target As String ) Dim Db As DAO.Database 問題が無い場合は 戻り値に 指定したファイル名 ( フルパス ) を設定する 此等は 孰れも DAO のオブジェクトで有る DAO で指定のデータベースを開く時の定型で有る 頭に Msys が付くテーブルは システム (MS Access) が使用して居るテーブルなので 除外する For Each Next は コレクションから要素を1 個宛取り出す構文で有る 使用後のオブジェクト変数は 必ず Nothing を設定して メモリから開放する必要が有る Set Db = DBEngine.Workspaces( 0 ).CreateDatabase( Target, dblangjapanese ) Db.Close Set Db = Nothing CreateDatabase メソッドは 新 たにデータベースを作成するメソ ' 空の EXCEL ファイルを生成するジェネラルプロシージャ Private Sub CreateExcelFile( Target As String ) Dim Ex As Excel.Application Dim Wb As Excel.Workbook ッドで有る 此等は 孰れも EXCEL のオブジ ェクトで有る Set Ex = New Excel.Application Set Wb = Ex.Workbooks.Add Wb.SaveAs Target Ex.Workbooks.Close Set Wb = Nothing Set Ex = Nothing オブジェクト変数に値を代入する 時は Set ステートメントを使用す る必要が有る 此処では必要な部分 ( 例えば CSV ACCESS) 丈を利用し易い様にプロシージャを分けて居るが上記のコードでは 各プロシージャに同じ様な記述が多い為 コマンドボタンをコントロール配列に仕て 同じプロシージャ内に複数の処理を記述する事に依り コードを簡素化する事が出来るので 挑戦して観て欲しい -10-

11 Option Explicit プログラムリスト (frmtableinp) ' コマンドボタン ( 決定 ) がクリックされた時の処理 Private Sub cmdfixed_click( ) If txttable.text = "" Then Exit Sub frmmain.lbltablename. = txttable.text Unload Me ' コマンドボタン ( キャンセル ) がクリックされた時の処理 Private Sub cmdcancel_click( ) frmmain.lbltablename. = "" Unload Me 他のフォームのオブジェクトにアクセスする場合は フォーム名で修飾して使用する 呼出元のフォームでは ラベルに文字列が設定されて居ない事に依り キャンセルされた事が解る プログラムリスト (frmtablesel) Option Explicit ' コンボボックスがクリックされた時の処理 Private Sub cbotable_click( ) frmmain.lbltablename. = cbotable.list( cbotable.listindex ) リストボックスの一覧から選択す ' コマンドボタン ( 決定 ) がクリックされた時の処理 Private Sub cmdfixed_click( ) If cbotable.listindex < 0 Then Exit Sub Unload Me ' コマンドボタン ( キャンセル ) がクリックされた時の処理 Private Sub cmdcancel_click( ) frmmain.lbltablename. = "" Unload Me る場合は ListIndex が示す List の値を取得する リストボックスの一覧から選択さ れて居ない時は フォームを閉じ ない様に仕て居る フォーム間で値の遣り取りを行う場合 標準モジュールに Public な変数を宣言する方法 ( 此の方法の場合は 総てのフォームモジュールから其の変数を使用する事が出来る ) フォームモジュールに Public な変数を宣言する方法 ( 此の方法の場合は 他のフォームから此の変数を使用する時は 変数名をフォーム名で修飾する必要が有る ) が一般的で有るが 変数を使用しないで フォームに配置されたオブジェクト ( コントロール ) を介する方法も有る 此の用途でオブジェクトを使用する場合 オブジェクト名をフォーム名で修飾する必要が有る frmmain.lbltablename 上記の場合 frmmain と謂う名前のフォームに配置された lbltablename と謂う名前のオブジェクトと謂う事に成る 亦 此の用途でオブジェクトを使用する場合 値を格納するプロパティには 一般的に Tag プロパティを使用する事が多いが 画面への表示も行う場合は プロパティや Text プロパティを用いる 併し データ型が同じで有れば 何のプロパティを使用しなければ成らないと謂う様な規制は無い 例えば Long 型の値を受け渡す場合 BackColor プロパティを使用すると謂う極端な事も可能で有る -11-

12 MS Access オブジェクトの利用 Access のオブジェクト Access オブジェクトは Visual Basic の参照設定ダイアログから Microsoft Access x.x Object Library をチェックすれば使用可能と成る ( 但し x.x の部分は インストールされて居る Access のバージョンに依り異なる ) 猶 Access のデータベースエンジンは Visual Basic にも付属して居る DAO のエンジンで有るが Access を参照設定しても 自動的に DAO も参照設定される訳では無い Microsoft Access xx Object Library を参照設定 下記に Access の Application オブジェクトの一覧を示す 此の中に DoCmd と謂うオブジェクトが有るが 此れが Access の様々な機能を Visual Basic から呼び出す為のコマンドオブジェクトで 此のメソッドを使用して Access アクションを実行する -12-

13 DoCmd オブジェクトのメンバ ( メソッド プロパティ イベント等 ) は Visual Basic のオブジェクトブラウザで Access ライブラリの DoCmd を参照すると 確認する事が出来る DoCmd オブジェクトには 下記の様なメソッドが有る 大抵の Access の操作は 此等のメソッドに依り 実現する事が出来る ApplyFilter GoToPage OutputTo SelectObject Beep GoToRecord PrintOut SendObject CancelEvent HourGlass Quit SetMenuItem Close Maximize Rename SetWarnings CopyObject Minimize RepaintObject ShowAllRecords DeleteObject MoveSize Requery ShowToolbar DoMenuItem OpenForm Restore TransferDatabase Echo OpenModule RunCommand TransferSpreadsheet FindNext OpenQuery RunMacro TransferText FindRecord OpenReport RunSQL GoToControl OpenTable Save 猶 上記のメソッドに依り解決出来ない Access の操作は, 下記の様に仕て行なう 関数名 該当する操作 対処 AddMenu メニューの追加 ( なし ) MsgBox メッセージボックス MsgBox 関数を使用 RunApp アプリケーションの実行 Shell 関数を使用して他のアプリケーションを実行 RunCode プロシージャの実行 関数を Visual Basic で直接実行 SendKeys キー送信 SendKeys ステートメントを使用 SetValue 値の代入 値を Visual Basic で直接設定 StopAllMacros 全マクロの中止 ( なし ) StopMacro マクロの中止 ( なし ) -13-

14 Access オブジェクトの OpenCurrentDatabase メソッド 機能 書式 解説 既存の Access データベース (mdb) をカレントデータベースと仕て開くメソッド Object.OpenCurrentDatabase dbname[, exclusive ] 此のメソッドを使用すると オートメーション ( 旧称 OLE オートメーション ) に依り アプリケーションから Access データベースを開く事が出来る dbname には パス名とファイル名の拡張子を含む既存のデータベースファイルの名前を示す文字列式を指定し 必ず指定する ( ネットワークパスを指定する場合は 其のネットワークでサポートされて居る書式を指定 : Server Share Folder Filename) exclusive には データベースを排他モードで開くか何うかを指定し 省略可能する事が出来る アプリケーションで Access のインスタンスを作成した場合は 新しいデータベースを作成するか 又は 特定のデータベースを指定して開く必要が有る 此のデータベースは Access ウィンドウで開かれる Access ウィンドウでデータベースが既に開いて居る状態で 別のデータベースを開く場合は CloseCurrentDatabase メソッドを使用して 開いて居るデータベースを閉じる必要が有る 猶 排他モードでデータベースを開くには exclusive 引数に True を設定する 此の引数を省略するとデータベースは共有モードで開かれる OpenCurrentDatabase メソッドを ActiveX データオブジェクト (ADO) の Open メソッドや DAO の OpenDatabase メソッドと混同しない様に注意する必要が有る OpenCurrentDatabase メソッドは データベースを Access ウィンドウで開く 一方 ADO の Open メソッドは Connection オブジェクト変数を返し DAO の OpenDatabase メソッドは Database オブジェクト変数を返すが 其等は孰れも特定のデータベースを示す物で 実際には其のデータベースを Access ウィンドウで開かない Access オブジェクトの CloseCurrentDatabase メソッド 機能 書式 解説 カレントデータベースを閉じるメソッド Object.CloseCurrentDatabase アプリケーションからカレントデータベース (Access データベース.mdb や Access プロジェクト.adp) を閉じる事が出来る CloseCurrentDatabase メソッドを使用して Access のカレントインスタンスで開いて居るデータベースを閉じると Access のインスタンスを新たに作成しなくても別のデータベースを開く事が出来る CloseCurrentDatabase メソッドは アプリケーションから オートメーションを介して Access データベースを開いて居る場合に便利で有る CloseCurrentDatabase メソッドは CloseCurrentDatabase メソッドと対を為すメソッドで有り 開いたデータベースは 必ず閉じる様にする必要が有る -14-

15 Access オブジェクトの Quit メソッド 機能 書式 解説 Access を終了するメソッド Object.Quit [option] Access を終了する 引数の指定に依り 終了の前にデータベースオブジェクトを保存する事も出来る option には Access 終了時に未保存のオブジェクトに対する処理を下記の定数で指定し 省略する事が出来る 定数 acsaveyes acprompt acexit 内容ダイアログボックスを表示せずに総てのオブジェクトを保存する 此の値が 既定値で有る 変更されて居るにも拘らず 保存されて居ない総てのオブジェクトに付いて 保存するか何うかを確認するダイアログボックスを表示する 変更されたオブジェクトは 保存されない Quit メソッドの機能は [ ファイル ] メニューの [ 終了 ] をクリックした場合と同じで有る Access.DoCmd オブジェクトの Close メソッド ( 参考 ) 機能 書式 解説 閉じるアクションを実行するメソッド Object. DoCmd.Close [objecttype, objectname], [save] 指定した Access ウィンドウを閉じる 猶 ウィンドウを指定しない場合は アクティブなウィンドウが閉じられる objecttype には ウィンドウを閉じるオブジェクトの種類を下記の定数で指定し 省略する事が出来る acdataaccesspage acdefault( 既定値 ) acdiagram acform acmacro acmodule acquery acreport acserverview acstoredprocedure actable データアクセスページを対象とする アクティブウィンドウを対象とする ダイアグラムを対象とする フォームを対象とする マクロを対象とする モジュールを対象とする クエリを対象とする レポートを対象とする サーバービューを対象とする ストアドプロシージャを対象とする テーブルを対象とする objectname には 閉じるオブジェクトの名前を文字列式で指定し 省略する事が出来る save には オブジェクトを閉じる時に オブジェクトに加えた変更を保存するか何うかを下記の定数で指定し 省略する事が出来る acsaveno acsaveprompt( 既定値 ) acsaveyes 変更を保存せずに閉じる 閉じる前に確認を行うダイアログボックスを表示する 自動的に変更を保存する -15-

16 Access.DoCmd オブジェクトの TransferText メソッド 機能 書式 解説 TransferText( テキスト変換 ) アクションを実行するメソッド Object.DoCmd.TransferText [transfertype][, specificationname], tablename, filename [, hasfieldnames][, HTMLtablename][, codepage] Access のカレントデータベース (mdb) や Access プロジェクト (adp) とテキストファイルとの間でテキストをインポート 又は エクスポートする transfertype には 変換の種類を下記の定数で指定し 省略する事が出来る 定数 意味 acexportdelim 区切記号付きテキストファイルにデータをエクスポート acexportfixed 固定長テキストファイルにデータをエクスポート acexporthtml HTML ファイルにデータをエクスポート acexportmerge Word の差込文書のデータファイルにデータをエクスポート acimportdelim( 既定値 ) 区切記号付きテキストファイルからデータをインポート acimportfixed 固定長テキストファイルからデータをインポート acimporthtml HTML ファイルからデータをインポート aclinkdelim 区切記号付きテキストファイルをカレントデータベースにリンク aclinkfixed 固定長テキストファイルをカレントデータベースにリンク aclinkhtml HTML ファイルをカレントデータベースにリンク Access プロジェクトでは 印而巳が使用可能 Word の差し込み文書のデータファイルにデータをエクスポートした後は Word の差し込み印刷機能を使用して 定型書簡や宛名ラベル等の差込文書を作成する事が出来る specificationname には テキストファイルをインポート エクスポート リンクする時の設定の定義名を文字列式で指定し 省略する事が出来る 固定長テキストファイルの場合 此の引数を指定するか 又は インポート エクスポート リンクするテキストファイルと同じフォルダに有る schema.ini ファイルを使う必要が有る 区切記号付きテキストファイルでは 此の引数に定義名を入力しなくても インポート エクスポート リンクが出来る Word の差込文書の場合は 予め定義された書式が使われるので 此の引数に定義名を入力する必要は無い HTML ファイルに対しては インポートやエクスポート定義を使用出来るが 此の定義のデータ型の書式定義の部分而巳が適用される tablename には テキストデータとのインポート エクスポート リンクを行う Access テーブルの名前 又は 結果をテキストファイルにエクスポートする Access クエリの名前を文字列式で指定し 必ず指定する transfertype に acimportdelim acimportfixed acimporthtml を指定した場合 指定したテーブルが既に存在する時は テキストデータは此のテーブルに追加され 存在しない時は 新しいテーブルが作成され 指定したテキストデータがインポートされる Access 2000 では 此のアクションを使用する時には エクスポートするデータを指定する為に SQL ステートメントを使用する事は出来ない SQL ステートメントの代わりに クエリを作成して 其のクエリの名前を此の引数に指定する -16-

17 filename には インポート エクスポート リンクを行うテキストファイルの パスを含めた完全な名前を文字列式で指定し 省略する事は出来ない Access のデータをエクスポートすると 新しいテキストファイルが作成される 同名のテキストファイルが既に存在する場合は 既存のテキストファイルは削除される ( 上書きされる ) hasfieldnames には テキストファイルの先頭行をフィールド名とするか何うかを指定し 省略する事が出来る インポート エクスポート リンク時に テキストファイルの最初の行をフィールド名と仕て使用するには True を 通常のデータと仕て扱うには False を指定し 省略した場合は False と成る 此の引数は Word の差込データファイルに対しては 最初の行に常にフィールド名が含まれて居る為 無視される 此の引数に True を指定して Access のテーブルや選択クエリのデータを区切記号付きテキストファイルや固定長テキストファイルにエクスポートすると テーブルや選択クエリのフィールド名がテキストファイルの先頭行に挿入される 固定長テキストファイルをインポートやリンクする場合で 此の引数に True を指定した場合は フィールド名を含む先頭行では 定義されて居る区切記号を使う必要が有る 亦 固定長テキストファイルをエクスポートする場合で 此の引数に True を指定した場合は 定義されて居る区切記号がフィールド名を含む先頭行に挿入される HTMLtablename には インポートやリンクする HTML ファイル内のテーブルやリストの名前を文字列式で指定し 省略する事が出来る 此の引数は 引数 transfertype に acimporthtml か aclinkhtml が設定されて居る場合は無視される 省略した場合は HTML ファイル内の最初のテーブルかリストがインポートやリンクされる HTML ファイル内のテーブルの名前やリストの名前は <CAPTION> タグが有る場合は 其のタグで指定されたテキストに依り決まる <CAPTION> タグが無い場合は <TITLE> タグで指定されたテキストに成る 複数のテーブルやリストが同じ名前の場合 各ファイル名や各リスト名の後ろに番号を付けて区別される codepage には コードページで使われる文字セット示す長整数型の値を指定し 省略する事が出来る 構文の途中に有る引数を省略する場合 引数のカンマは省略出来ない 亦 後に続く引数を指定しない場合は 最後に指定した引数の後ろにはカンマは付けない ActiveX データオブジェクト (ADO) を使用してリンクを作成するには Recordset オブジェクトに ActiveConnection プロパティを使用する Access の選択クエリのデータをテキストファイルにエクスポートする事が出来 亦 クエリの結果セットもテーブルと同じ様にエクスポートされる テキストデータを既存の Access のテーブルに追加する場合は テキストデータとテーブルは同じ構造で有る必要が有る 即ち 対応するテキストとテーブルの各フィールドのデータ型は同じでなければ成らず 亦 フィールドの順番も同じでなければ成らない 猶 引数 hasfieldnames に True を指定した場合は テキストのフィールド名とテーブルのフィールド名が同じで有る必要が有る リンクしたテキストファイルに対してクエリを実行するか 又は フィルタを懸ける場合は 大文字と小文字は区別される -17-

18 Access.DoCmd オブジェクトの TransferSpreadsheet メソッド 機能 TransferSpeadsheet( ワークシート変換 ) アクションを実行するメソッド 書式 Object.DoCmd.TransferSpreadsheet [transfertype][, spreadsheettype], tablename, filename[, hasfieldnames][, range] 解説 Access のカレントデータベース (mdb) や Access プロジェクト (adp) とワークシートファイルとの間でデータをインポート 又は エクスポートする transfertype には 変換の種類を下記の定数で指定し 省略する事が出来る 定数 acimport( 既定値 ) acexport aclink インポートする エクスポートする 意味 リンクする リンクは Access プロジェクトでは サポートされない spreadsheettype には ワークシートの種類を下記の定数か値で指定し 省略する事が出来る 値 定数 意味 0 acspreadsheettypeexcel3( 既定値 ) MS Excel 6 acspreadsheettypeexcel4 MS Excel 5 acspreadsheettypeexcel5 MS Excel 5 acspreadsheettypeexcel7 MS Excel 8 acspreadsheettypeexcel8 MS Excel 8 acspreadsheettypeexcel9 MS Excel 2 acspreadsheettypelotuswk1 Lotua acspreadsheettypelotuswk3 Lotua acspreadsheettypelotuswk4 Lotua acspreadsheettypelotuswj2 Lotua 1-2-3( 日本語バージョン而巳 ) Lotus のワークシートファイルのデータにリンクする事が出来るが 此のデータは Access 内では 参照而巳が可能で有る 亦 Lotus.WK4 ファイルとのインポートやリンクは 参照而巳が可能だが Access のデータを此のワークシート形式にエクスポートする事は出来ない 更に Lotus.WKS と Excel Version 2.0 のワークシートとのデータのインポート エクスポート リンクは 此のメソッドではサポートされない tablename には ワークシートのデータとのインポート エクスポート リンクを行う Access テーブルの名前 又は 結果をワークシートにエクスポートする Access 選択クエリの名前を文字列式で指定し 必ず指定する 引数 transfertype で acimport を指定した場合 指定したテーブルが既に存在する時は ワークシートのデータは 其のテーブルに追加され 亦 存在しない時は 新しいテーブルが作成されて 指定したワークシートのデータがインポートされる Access 2000 では 此のアクションを使用する時に SQL ステートメントを使用してエクスポートするデータを指定する事は出来ない SQL ステートメントを使用する代わりに クエリを作成してから其のクエリの名前を此の引数に指定する必要が有る -18-

19 filename には インポート エクスポート リンクを行うワークシートファイルの パスを含めた完全な名前を文字列式で指定し 省略する事は出来ない Access のデータをエクスポートすると 新しいワークシートが作成される 同名のワークシートが既に存在する場合は 既存のテキストファイルは削除される ( 上書きされる ) 但し Excel Excel 2000 形式のワークシートにエクスポートする場合は エクスポートするデータが既存のワークシートに追加される Excel Excel 2000 形式のワークシートのデータをインポートやリンクする場合は range 引数を使用して特定のワークシートを指定する事が出来る hasfieldnames には ワークシートの先頭行をフィールド名とするか何うかを指定し 省略する事が出来る インポート エクスポート リンク時に ワークシートの最初の行をフィールド名と仕て使用するには True を 通常のデータと仕て扱うには False を指定し 省略した場合は False と成る 此の引数は Word の差込データファイルに対しては 最初の行に常にフィールド名が含まれて居る為 無視される Access テーブルや選択クエリのデータをワークシートにエクスポートする場合は 此の引数に何を指定も フィールド名がワークシートの最初の行に挿入される range には ワークシートの有効なセルの範囲や範囲の名前を文字列式で指定し 省略する事が出来る 此の引数は インポート而巳に適用され ワークシート全体をインポートする場合は 此の引数を指定する必要は無い セル範囲を指定する場合は ワークシートの範囲名を入力するか A1 : E25 等のセル範囲を指定する 但し Access 97 と Access 2000 では A1..E25 の構文は 使用する事は出来ない 亦 Excel Excel 2000 形式のワークシートからインポートやリンクする場合は セル範囲の前にワークシート名と感嘆符を付けてワークシートを指定する事も出来る ( ワークシート名!A1 : C7 等 ) 猶 ワークシートにエクスポートする場合は 此の引数を指定しない 範囲を入力すると エクスポートは失敗する 構文の途中に有る引数を省略する場合 引数のカンマは省略出来ない 亦 後に続く引数を指定しない場合は 最後に指定した引数の後ろにはカンマは付けない ActiveX データオブジェクト (ADO) を使用してリンクを作成するには Recordset オブジェクトに ActiveConnection プロパティを使用する Access の選択クエリのデータをワークシートにエクスポートする事が出来 亦 クエリの結果セットもテーブルと同じ様にエクスポートされる ワークシートのデータを既存の Access のテーブルに追加する場合は ワークシートのデータとテーブルは同じ構造で有る必要が有る 即ち 対応するワークシートとテーブルの各フィールドのデータ型は同じでなければ成らず 亦 フィールドの順番も同じでなければ成らない 猶 引数 hasfieldnames に True を指定した場合は ワークシートのフィールド名とテーブルのフィールド名が同じで有る必要が有る リンクしたワークシートに対してクエリを実行するか 又は フィルタを懸ける場合は 大文字と小文字は区別される 編集モードで開いた Excel のワークシートにリンクする場合は Access は 其の Excel のワークシートが編集モードで無く成る迄 待ってから リンクを行う 此の場合 タイムアウトが発生して処理が中断される事は無い -19-

20 Access.DoCmd オブジェクトの OutputTo メソッド 機能 書式 解説 OutputTo( 出力 ) アクションを実行するメソッド Object.DoCmd.OutputTo objecttype[, objectname][, outputformat][, outputfile] [, autostart][, templatefile] Access のデータベースオブジェクト ( データシート フォーム レポート モジュール データアクセスページ ) のデータを 様々な形式で出力する OutputTo メソッドは 指定した Access のデータベースオブジェクトのデータを Excel(xls) MS-DOS のテキスト形式 (txt) リッチテキスト形式 (rtf) HTML 形式 (html) IDC/HTX 形式 ASP 形式で出力する objecttype には 出力するデータを含むオブジェクトの種類を下記の定数で指定し 必ず指定する 定数 acoutputdataaccesspage acoutputform acoutputmodule acoutputquery acoutputreport acoutputserverview acoutputstoredprocedure acoutputtable( 既定値 ) 意味データアクセスページを出力フォーム ( フォームかフォームのデータシートの場合 ) を出力モジュールを出力クエリ ( クエリのデータシートの場合 ) を出力レポートを出力サーバービューを出力ストアドプロシージャを出力テーブル ( テーブルのデータシートの場合 ) を出力 マクロは出力出来ない アクティブオブジェクトを出力する場合は 此の引数で オブジェクトの種類を指定し 引数 objectname は指定しない objectname には 出力するデータを含むオブジェクトの名前を文字列式で指定し 省略する事が出来る OutputTo メソッドを含む Visual Basic のコードをライブラリデータベースで実行する場合は この名前のオブジェクトが 最初にライブラリデータベースで 次にカレントデータベースで探索されます ライブラリデータベースで OutputTo メソッドを実行すると 此処で指定した名前のオブジェクトが 先ずライブラリデータベースで検索され 次にカレントデータベースで検索される outputformat には データの出力形式を下記に定数で指定し 省略する事が出来る 定数 acformatasp acformatdap acformathtml acformatiis acformatrtf acformatsnp acformattxt acformatxls 意味 Microsoft Active Server Pages 形式 (asp) で出力 Microsoft データアクセスページ形式 (html) で出力 HTML 形式 (html) で出力 Microsoft Internet Information Server 形式 (iis) で出力リッチテキスト形式 (rtf) で出力 MS-DOS テキスト形式 (txt) で出力 Microsoft Excel 形式 (xls) で出力 -20-

21 モジュールは MS-DOS のテキスト形式で 亦 データアクセスページは HTML 形式でしか出力する事は出来ない Microsoft Internet Information Server 形式と Microsoft Active Server Pages 形式は テーブル クエリ フォームでしか使用する事は出来ない 此の引数を指定しない場合は 出力形式を確認するダイアログボックスが表示される outputfile には データの出力先ファイル名を パスを含めた完全な名前を文字列式で指定し 省略する事が出来る 通常 拡張子には 引数 outputformat に指定した出力形式に対応した標準のファイル名拡張子を付ける Microsoft Internet Information Server や Microsoft Active Server Pages のファイルに出力する場合は 標準の htx idc asp と謂うファイル名拡張子の付いたファイルが作成される データアクセスページを出力する場合は html と謂うファイル名拡張子の付いたファイルが作成される 此の引数を指定しないと 出力ファイル名を確認するダイアログボックスが表示される autostart には 実行後 引数 outputfile で指定したファイルに対応するソフトウェアを起動して 其のファイルを開くか何うかを指定し 省略する事が出来る 適切な Windows ベースのアプリケーションを直ちに起動する場合は True を 起動しない場合は False を指定する 此の引数に True を指定した時 xls ファイルの場合は Excel txt ファイルの場合は Windows メモ帳 rtf ファイルの場合は Word html ファイルの場合は 既定のインターネットブラウザが起動する 猶 此の引数は Microsoft Internet Information Server のファイル (htx idc) と Active Server Pages のファイル (asp) に対しては無視される templatefile には HTML ファイル HTX ファイル ASP ファイルのテンプレートと仕て使用するファイル名を パスを含めた完全な名前を文字列式で指定し 省略する事が出来る テンプレートファイルとは HTML タグを含むファイルで有る 構文の途中に有る引数を省略する場合 引数のカンマは省略出来ない 亦 後に続く引数を指定しない場合は 最後に指定した引数の後ろにはカンマは付けない モジュールは MS-DOS のテキスト形式でしか出力する事が出来ないので 引数 objecttype に acoutputmodule を指定すると 引数 outputformat には acformattxt を指定する必要が有る 亦 Microsoft Internet Information Server 形式と Active Server Pages 形式は テーブル クエリ フォームに対してしか使う事が出来ないので 引数 outputformat に acformatiis か acformatasp を指定する場合は 引数 objecttype に acoutputtable acoutputquery acoutputform を指定する必要が有る -21-