JRA-VAN Data Lab.対応　競馬プログラム自作教室 「JVData Explorer」の作成（第三回-2）
更新：06-09-26

(06-09-26)JV-Linkモジュールの定義の説明を追加しました。 準備編（続き） ここではWindowsAPIを利用するための標準モジュールを作成します。 もう１つの標準モジュール(mWin32API)には下記のプログラムをコピー＆ペーストしてください。 （WIndowsAPIを利用するプログラム後述しますが、こちらをご覧になっておいてください。） このプログラムも説明は省略します。というか私もよく理解していないので。。。(^^;; でもちゃんと動くから頼もしいプログラムです。 WinAPIモジュール '======================== Windows32API ========================== Option Explicit '---------------------------------------------------------------------- 'クラス名またはキャプションからウィンドウハンドルを取得する関数 ' '戻り値 成功 = ウィンドウハンドル ' 失敗 = NULL '---------------------------------------------------------------------- Declare Function FindWindow Lib "user32" _ Alias "FindWindowA" _ (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long '================================================================================================================================= '---------------------------------------------------------------------- 'フォルダ選択用のディレクトリツリーを表示する関数 ' '戻り値 成功 = 選択されたフォルダをルートとするITEMIDリストへのポインタ ' キャンセル = 0 '---------------------------------------------------------------------- Declare Function SHBrowseForFolder Lib "shell32.dll" _ Alias "SHBrowseForFolderA" _ (lpbi As BROWSEINFO) As Long 'ダイアログボックスを初期化する情報を格納した構造体 Type BROWSEINFO hwndOwner As Long 'ダイアログボックスの親ウィンドウのハンドル pidlRoot As Long 'ルートフォルダ pszDisplayName As String 'ユーザーが選択したフォルダ名 lpszTitle As String 'ダイアログボックスに表示するメッセージ ulFlags As Long '動作方法を指定する lpfn As Long 'コールバック関数へのポインタ lParam As Long 'コールバック関数へのパラメータ iImage As Long 'フォルダ用アイコンのシステムイメージリストのID End Type 'ルートフォルダを指定する定数 Public Const CSIDL_DESKTOP = &H0& 'デスクトップ Public Const CSIDL_PROGRAMS = &H2& 'Windows\プログラム Public Const CSIDL_CONTROLS = &H3& 'コントロールパネル Public Const CSIDL_PRINTERS = &H4& 'プリンタ Public Const CSIDL_PERSONAL = &H5& 'My Documents Public Const CSIDL_FAVORITES = &H6& 'Favorities Public Const CSIDL_STARTUP = &H7& 'スタートアップ Public Const CSIDL_RECENT = &H8& '最近使ったファイル Public Const CSIDL_SENDTO = &H9& '送る Public Const CSIDL_BITBUCKET = &HA& 'ごみ箱 Public Const CSIDL_STARTMENU = &HB& 'スタートメニュー Public Const CSIDL_DESKTOPDIRECTORY = &H10& 'Windows\デスクトップ Public Const CSIDL_DRIVES = &H11& 'マイコンピュータ Public Const CSIDL_NETWORK = &H12& 'ネットワーク Public Const CSIDL_NETHOO = &H13& 'Windows\NetHood Public Const CSIDL_FONTS = &H14& 'Windows\Fonts Public Const CSIDL_TEMPLATES = &H15& 'Windows\ShellNew '動作方法を指定する定数 Public Const BIF_RETURNONLYFSDIRS = &H1& 'ディレクトリの選択のみ可能 Public Const BIF_DONTGOBELOWDOMAIN = &H2& 'ネットワークフォルダを含まない Public Const BIF_STATUSTEXT = &H4& 'ダイアログボックスにステータス表示領域を追加する Public Const BIF_RETURNFSANCESTORS = &H8& '親ディレクトリのみを選択可能にする Public Const BIF_EDITBOX = &H10& 'ダイアログボックス内にアイテム名入力用のテキストボックスを追加する Public Const BIF_VALIDATE = &H20& '無効なアイテム名が入力されたときBroeseCallbackProcコールバック関数を呼び出す Public Const BIF_BROWSEFORCOMPUTER = &H1000& 'コンピュータフォルダのみ選択可能 Public Const BIF_BROWSEFORPRINTER = &H2000& 'プリンタフォルダのみ選択可能 Public Const BIF_BROWSEINCLUDEFILES = &H4000& 'ファイルも表示する Public Const MAX_PATH = 260 'フォルダ名の最大長 '================================================================================================================================= '---------------------------------------------------------------------- 'SHBrowseForFolderで取得した値からフォルダのフルパスを取得する関数 ' '戻り値 成功 = NOERROR(=0) ' 失敗 = E_INVALIDARG(=&H80070057) '---------------------------------------------------------------------- Declare Function SHGetPathFromIDList Lib "shell32.dll" _ Alias "SHGetPathFromIDListA" _ (ByVal pidl As Long, _ ByVal pszPath As String) As Long '---------------------------------------------------------------------- 'OLEアロケータによって確保したメモリブロックを開放する関数 ' '戻り値 なし '---------------------------------------------------------------------- Declare Function CoTaskMemFree Lib "OLE32.dll" _ (ByVal pv As Long) As Long '================================================================================================================================= '---------------------------------------- 'ファイル操作(コピー、移動、削除）を行う関数 ' '戻り値 成功 = 0 ' 失敗 = 0以外 '----------------------------------------- Declare Function SHFileOperation Lib "shell32.dll" _ Alias "SHFileOperationA" _ (lpFileOp As SHFILEOPSTRUCT) As Long '動作方法を指定する構造体 Type SHFILEOPSTRUCT hwnd As Long 'ダイアログボックスの親ウィンドウのハンドル wFunc As Long '操作内容を指定する pFrom As String '操作元のファイル名、ディレクトリ名 pTo As String '操作先のファイル名、ディレクトリ名 fFlags As Integer '操作内容を指定する fAnyOperationsAborted As Long '処理終了前にキャンセルしたときは「1」 hNameMappings As Long 'ファイルネームマッピングオブジェクト lpszProgressTitle As String 'ダイアログボックスのキャプション End Type '操作内容を指定する定数 Public Const FO_MOVE = &H1& '移動 Public Const FO_COPY = &H2& 'コピー Public Const FO_DELETE = &H3& '削除 Public Const FO_RENAME = &H4& '名前を変更 '動作方法指定する定数 Public Const FOF_MULTIDESTFILES = &H1& '複数の異なるディレクトリを指定する Public Const FOF_CONFIRMMOUSE = &H2& '(使用不可) Public Const FOF_SILENT = &H4& 'プログレスバーを表示しない Public Const FOF_RENAMEONCOLLISION = &H8& '重複名を避ける Public Const FOF_NOCONFIRMATION = &H10& '確認なし Public Const FOF_WANTMAPPINGHANDLE = &H20& 'FOF_RENAMEONCOLLISIONを設定したときhNameMappingsにファイル名を指定する Public Const FOF_ALLOWUNDO = &H40& 'ごみ箱へ Public Const FOF_FILESONLY = &H80& 'ワイルドカードを使うのでディレクトリを含まない Public Const FOF_SIMPLEPROGRESS = &H100& 'プログレスバーは表示するがファイル名は表示しない Public Const FOF_NOCONFIRMMKDIR = &H200& 'ディレクトリ作成時に確認なし Public Const FOF_NOERRORUI = &H400& 'エラーが発生してもダイアログボックスを表示しない '================================================================================================================================= '***************** ディレクトリのフルパスを得るファンクション(Win32 API利用) *************** Function GetDirectoryPathName() 'ディレクトリのフルパスを得るファンクション Dim udtBROWSEINFO As BROWSEINFO Dim lngPidl As Long Dim strPath As String * MAX_PATH Dim RC As Long Dim strClassName As String strClassName = "XLMAIN" 'ダイアログボックスを初期化する情報を格納した構造体に値をセット With udtBROWSEINFO 'クラス名またはキャプションからウィンドウハンドルを取得する関数 .hwndOwner = FindWindow(strClassName, Application.Caption) .pidlRoot = CSIDL_DESKTOP 'デスクトップ定数 .lpszTitle = "フォルダを選択してください" .ulFlags = BIF_RETURNONLYFSDIRS 'ディレクトリの選択のみ可能 End With 'フォルダ選択用のディレクトリツリーを表示する関数 lngPidl = SHBrowseForFolder(udtBROWSEINFO) If lngPidl = 0& Then GetDirectoryPathName = "" Exit Function End If 'SHBrowseForFolderで取得した値からフォルダのフルパスを取得する関数 RC = SHGetPathFromIDList(lngPidl, strPath) 'ディレクトリのフルパスを得る GetDirectoryPathName = Left(strPath, InStr(strPath, vbNullChar) - 1) 'OLEアロケータによって確保したメモリブロックを開放する関数 Call CoTaskMemFree(lngPidl) End Function グローバル変数の定義 これも準備編の１つですが、「JVData Explorer」で使う変数を定義します。ここからはJVData Explorerオリジナルです。 �@標準モジュールを挿入して、名前を"mMod1"としてください。 ”mMod1”に下記コードを記述してください。 まずは”JV-Link”モジュールに関するものです。各JVDataレコード種別IDのデータサイズの定義と構造体定義です。データサイズは仕様書のデータフォーマットと同じです（当然）。構造体定義は前回作成したモジュール”JVLink_Stluct”の中の変数やデータセット関数を使うためのものです。 Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '********************* グローバル変数定義(mMod1) *************************** '* ------------- 各JV-Dataのデータサイズ(定数) -------------- Public Const RaDataSize = 1272 'レース詳細 Public Const SeDataSize = 555 '馬毎レース情報 Public Const HrDataSize = 719 '払戻 Public Const H1DataSize = 28955 '票数１ Public Const H6DataSize = 102890 '票数６ Public Const O1DataSize = 962 'オッズ１(単複枠) Public Const O2DataSize = 2042 'オッズ２(馬連) Public Const O3DataSize = 2654 'オッズ３(ワイド) Public Const O4DataSize = 4031 'オッズ４(馬単) Public Const O5DataSize = 12293 'オッズ５(三連複) Public Const O6DataSize = 83285 'オッズ６(三連単) Public Const UmDataSize = 1577 '競走馬マスタ Public Const KsDataSize = 4173 '騎手マスタ Public Const ChDataSize = 3862 '調教師マスタ Public Const BrDataSize = 537 '生産者マスタ Public Const BnDataSize = 477 '馬主マスタ Public Const RcDataSize = 501 'レコードマスタ Public Const DmDataSize = 303 'データマイニング Public Const WhDataSize = 847 '馬体重 '* ----- 各JVDataデータ構造体定義 ----- Public mRaData As JV_RA_RACE 'レース詳細データ定義 Public mSeData As JV_SE_RACE_UMA '馬毎レース情報データ定義 Public mHrData As JV_HR_PAY '払戻データ定義 Public mRxData As JV_RA_RACE '速報用レース詳細データ定義 Public mSxData As JV_SE_RACE_UMA '速報用馬毎レース情報データ定義 Public mHxData As JV_HR_PAY '速報用払戻データ定義 Public mRAdl As JV_RA_RACE 'ダウンロード用レース詳細データ定義 Public mSEdl As JV_SE_RACE_UMA 'ダウンロード用馬毎レース情報データ定義 Public mHRdl As JV_HR_PAY 'ダウンロード用払戻データ定義 Public mO1Data As JV_O1_ODDS_TANFUKUWAKU '単複枠オッズデータ定義 Public mO2Data As JV_O2_ODDS_UMAREN '馬連オッズデータ定義 Public mO3Data As JV_O3_ODDS_WIDE 'ワイドオッズデータ定義 Public mO4Data As JV_O4_ODDS_UMATAN '馬単オッズデータ定義 Public mO5Data As JV_O5_ODDS_SANREN '三連複オッズ定義 Public mH1Data As JV_H1_HYOSU_ZENKAKE '票数１定義 Public mDmData As JV_DM_INFO 'DMデータの構造体定義 Public mWeData As JV_WE_WEATHER '天候・馬場状態データ構造体の定義 Public mAvData As JV_AV_INFO '除外・取消データ構造体の定義 Public mKsData As JV_KS_KISYU '騎手マスタデータ構造体の定義 Public mJcData As JV_JC_INFO '騎手変更データ構造体の定義 Public mCcData As JV_CC_INFO 'コース変更データ構造体の定義 Public mTcData As JV_TC_INFO '発走時刻変更データ構造体の定義 Public mWhData As JV_WH_BATAIJYU '馬体重データ構造体の定義 Public mChData As JV_CH_CHOKYOSI '調教師データ構造体定義 Public mUmData As JV_UM_UMA '競走馬マスタデータ構造体定義 Public mBnData As JV_BN_BANUSI '馬主マスタデータ構造体定義 Public mBrData As JV_BR_BREEDER '生産者マスタデータ構造体定義 Public mRcData As JV_RC_RECORD 'レコードマスタデータ構造体定義 �A次のコードも上記に続いて記述してください。 これらは「JVData Explorer」で使う変数です。変数にはプログラム全体で使えるものやあるワークシート内で有効なものや、あるサブルーチン内でしか使えないものなど各種ありますが、変数の使える範囲をスコープといいます。この標準モジュールに記述されたPublicで始まる変数やサブルーチンは”グローバル”なので「JVData Explorer」ソフトのどこからでも呼び出せます。 '* ------------ グローバル変数(mMod1) -------------- Public TOP_DIR As String 'トップ・ディレクトリ Public MAIN_FLD As String 'メイン・フォルダ Public MAIN_DIR As String 'メイン・ディレクトリ Public COPY_FLD As String 'コピー・フォルダ(JV-Data保存用) Public COPY_DIR As String 'コピー・ディレクトリ Public SAVE_FLD As String 'セーブ・フォルダ(DIY2_JVData_DL用) Public SAVE_DIR As String 'セーブ・ディレクトリ Public CopyFile$ 'コピー・ディレクトリ用ファイル名(フルパス) Public SaveFile$ 'セーブ・ディレクトリ用ファイル名(フルパス) Public KAISAIJOHO As String '開催情報 Public dataspec As String 'データ種別ID Public RaDataSu As Long 'レース詳細データ数 Public SeDataSu As Long '馬毎レース情報データ数 Public DmDataSu As Long 'データマイニングデータ数 Public HrDataSu As Long '払戻データ数 Public H1DataSu As Long '票数１データ数 Public H6DataSu As Long '票数６データ数 Public O1DataSu As Long 'オッズ１（単複枠）データ数 Public O2DataSu As Long 'オッズ２（馬連）データ数 Public O3DataSu As Long 'オッズ３（ワイド）データ数 Public O4DataSu As Long 'オッズ４（馬単）データ数 Public O5DataSu As Long 'オッズ５（三連複）データ数 Public O6DataSu As Long 'オッズ６（三連単）データ数 Public UmDataSu As Long '競走馬マスタデータ数 Public BnDataSu As Long '馬主マスタデータ数 Public ChDataSu As Long '調教師マスタデータ数 Public KsDataSu As Long '騎手マスタデータ数 Public BrDataSu As Long '生産者マスタデータ数 Public RcDataSu As Long 'レコードマスタデータ数 Public RxDataSu As Long '過去のレース詳細データ数 Public SxDataSu As Long '過去の馬毎レース情報データ数 Public WeDataSu As Long '天候・馬場情報データ数 Public AvDataSu As Long '取消・除外情報データ数 Public JcDataSu As Long '騎手変更データ数 Public CcDataSu As Long 'コース変更データ数 Public TcDataSu As Long '発走時刻変更データ数 Public WhDataSu As Long '馬体重データ数 Public DataCnt As Long '仮のデータ変数 Public DmyData() As String '仮の配列 Public RaData() As String 'レース詳細データ配列 Public SeData() As String '馬毎レース情報データ配列 Public HrData() As String '払戻データ配列 Public O1Data() As String 'オッズ１（単複枠）データ配列 Public O2Data() As String 'オッズ２（馬連）データ配列 Public O3Data() As String 'オッズ３（ワイド）データ配列 Public O4Data() As String 'オッズ４（馬単）データ配列 Public O5Data() As String 'オッズ５（三連複）データ配列 Public O6Data() As String 'オッズ６（三連単）データ配列 Public H1Data() As String '票数１データ配列 Public H6Data() As String '票数６データ配列 Public RxData() As String '過去全レース詳細変数配列 Public SxData() As String '過去全馬毎レース情報変数配列 Public UmData() As String '開催週競走馬マスタ変数配列 Public ChData() As String '開催週調教師マスタ変数配列 Public BrData() As String '開催週生産者マスタ変数配列 Public BnData() As String '開催週馬主マスタ変数配列 Public KsData() As String '開催週騎手マスタ変数配列 Public RcData() As String '開催週レコードマスタ変数配列 Public WeData() As String '開催日の天候情報配列 Public AvData() As String '開催日の取消・除外情報配列 Public JcData() As String '開催日の騎手変更情報配列 Public CcData() As String '開催日のコース変更情報配列 Public TcData() As String '開催日の発走時刻変更情報配列 Public WhData() As String '開催日の馬体重情報配列 Public DmData() As String '開催日のデータマイニング予想配列 Public DateSu As Long '開催日のデータ数（RCOV含む） Public DateFile() As String '開催日数セーブ用配列 Public DateFileX() As String '開催日数セーブ用仮配列 Public myStr() As String '仮配列 Public DataArray() As String '当日情報分割用仮配列 '*テーブル定義(mMod1) Public RaTable As String 'レース詳細テーブル Public SeTable As String '馬毎レース情報テーブル Public HrTable As String '払戻テーブル Public UmTable As String '競走馬マスタテーブル Public KsTable As String '騎手マスタテーブル Public ChTable As String '調教師マスタテーブル Public BrTable As String '生産者マスタテーブル Public BnTable As String '馬主マスタテーブル Public RcTable As String 'レコードマスタテーブル Public H1Table As String '票数１テーブル Public H6Table As String '票数６テーブル Public O1Table As String 'オッズ１テーブル Public O2Table As String 'オッズ２テーブル Public O3Table As String 'オッズ３テーブル Public O4Table As String 'オッズ４テーブル Public O5Table As String 'オッズ５テーブル Public O6Table As String 'オッズ６テーブル Public WhTable As String '馬体重テーブル Public DmTable As String 'データマイニングテーブル Public AvTable As String '取消・除外テーブル Public WeTable As String '天候・馬場テーブル Public JcTable As String '騎手変更テーブル Public CcTable As String 'コース変更テーブル Public TcTable As String '発走時刻変更テーブル �B次のコードも記述してください。これはJVLinkモジュールをユーザーフォーム上に貼り付けずに使う場合に有効な設定です。 （JRA-VAN Data LabのExcel版サンプルプログラムではJVLinkモジュールをユーザーフォームに貼り付けています。そちらが標準的な使い方ですが、JVData_Explorerではたぶんユーザーフォームを使いませんので、替わりにJVLinkを設定する方法です）(06-09-26) '******************* JV-Link設定(mMod1) ***************** Public JVLink1 As JVLink '新たなJVLinkの定義 以上でモジュール（ｍMod1)への記述は終了です。いったん上書き保存してください。 「初期設定」プログラムの作成 考え方の説明についてはこちらを参考にしてください。DIY活用教室の例ですが、考え方は共通なのでここでの説明は省略します（どんどん手抜きします）。 �@まずサブルーチンプログラムを作ります。 下記のコードを標準モジュール(mMod0)に記述してください。場所は今までのコードの下に追加すればいいです。サブルーチン名の上のコメント部分（'*********のところ）の(mMod0)とあるのは記述するモジュール名を意味します。 「初期ディレクトリ設定」サブルーチン ”初期設定シート”上の＜初期ディレクトリ設定＞ボタンにより起動されるサブルーチンで、デフォルトのフォルダを\My Documents内に作成します。 デフォルト設定の値は下記のようにしています。 MAIN_FLD："\New_JVDATA" （これは「おずたん」と同じフォルダです） COPY_FLD："\CopyData2" (これは「おずたん」とは異なります） SAVE_FLD："\JVData_Explorer" (ユーザー自身の独自のフォルダに変更したい場合は、コードの\New_JVData,\CopyData2のところをお好きなものに変更してください。）（06-09-06追加） '*********************** 初期ディレクトリ設定(mMod0) **************************** Sub 初期ディレクトリ設定() '*「初期設定」ワークシート専用 Dim DirFolder As String '*仮ディレクトリ Dim filename As String '*ファイル名 Dim ErrorPoint$ ErrorPoint$ = "初期ディレクトリ設定" On Error GoTo ErrorHandler If Range("A2").Value = "" Or Range("B2").Value = "" Or _ Range("C2").Value = "" Or Range("D2").Value = "" Then '*データがなければ新規作成 'デフォルトのフォルダ名を設定 MAIN_FLD = "\New_JVDATA" 'メインフォルダ COPY_FLD = "\CopyData2" 'JRA-VANデータフォルダ SAVE_FLD = "\JVData_Explorer" 'JVData_Explorerのデータフォルダ GoSub GetTopDirectoryInfo 'トップ・ディレクトリパスの有無により作成 Else '既に「初期設定」シートにデータがある場合 Call GetDirectoryData 'ディレクトリ情報を読み込む filename = SAVE_DIR & "\Initial.txt" If Dir(filename) = "" Then 'イニシャル・ファイルがなければ再作成 MsgBox "イニシャルファイルがありませんので、ディレクトリを設定します。" GoSub GetTopDirectoryInfo 'トップ・ディレクトリパスの有無により作成 Else '既にイニシャル・ファイルがある場合 MsgBox "既にイニシャル・ファイルは作成済みです。" Exit Sub End If End If Exit Sub '--------------------------------------------------------------- ' サブルーチン '--------------------------------------------------------------- GetTopDirectoryInfo: 'トップ・ディレクトリパスの有無により作成 TOP_DIR = GetDirectoryPathName 'ディレクトリのフルパスを得るファンクション(Win32API利用) If TOP_DIR <> "" Then '指定のディレクトリにイニシャルファイルを作成 'ディレクトリ情報を設定 Call SetDirectoryData(TOP_DIR, MAIN_FLD, COPY_FLD, SAVE_FLD) filename = SAVE_DIR & "\*.txt" If Dir(filename) = "" Or SAVE_DIR = "" Then 'イニシャルファイルがなければディレクトリを作成 filename = SAVE_DIR & "\Initial.txt" 'ディレクトリの作成 Call MakeDirectory(filename, TOP_DIR, MAIN_DIR, COPY_DIR, SAVE_DIR) End If Else 'キャンセルの場合 MsgBox "ディレクトリの選択を中止しました。" Return End If Return '--------------------------------------------------------------- ErrorHandler: Debug.Print "エラー："; Err.Number; " "; Err.Description If Err.Number = 75 Then '既にディレクトリがある場合 MsgBox "既にディレクトリ " & vbCrLf & _ DirFolder & vbCrLf & " は作成済みです。" Else MsgBox "エラーが発生しました。" & vbCrLf & _ "エラー内容をお知らせください。" & vbCrLf & _ Err.Number & " " & Err.Description End End If Stop Resume Next End Sub プログラムのポイント 所定のセルが空白ならデフォルトのディレクトリを作成し、空白でなければディレクトリの有無を調べる振り分けがこのサブルーチンのメインです。 さらに次のいくつかのサブルーチンも追加してください。 �A「ディレクトリ情報を確認する」サブルーチン（GetDirectoryData) 既存のディレクトリ情報を取得します。 '********************* ディレクトリ情報の確認(mMod0) ************************* Public Sub GetDirectoryData() With Worksheets("初期設定") TOP_DIR = .Range("A2").Value 'トップ・ディレクトリパス MAIN_FLD = .Range("B2").Value 'メイン・フォルダ COPY_FLD = .Range("C2").Value 'コピー・フォルダ SAVE_FLD = .Range("D2").Value 'セーブ・フォルダ MAIN_DIR = TOP_DIR & MAIN_FLD 'メイン・ディレクトリパス COPY_DIR = TOP_DIR & MAIN_FLD & COPY_FLD 'コピー・ディレクトリパス SAVE_DIR = TOP_DIR & MAIN_FLD & SAVE_FLD 'セーブ・ディレクトリパス End With End Sub �B「ディレクトリ情報設定」サブルーチン(SetDirectoryData) ディレクトリ情報を”初期設定”シートに記入します。 '*********************** ディレクトリ情報の設定(mMod0) ************************** Public Sub SetDirectoryData(ByVal TOP_DIR, ByVal MAIN_FLD, ByVal COPY_FLD, ByVal SAVE_FLD) With Worksheets("初期設定") .Range("A2").Value = TOP_DIR 'トップ・ディレクトリパス .Range("B2").Value = MAIN_FLD 'メイン・フォルダ名 .Range("C2").Value = COPY_FLD 'コピー・フォルダ名 .Range("D2").Value = SAVE_FLD 'セーブ・フォルダ名 MAIN_DIR = TOP_DIR & MAIN_FLD 'メイン・ディレクトリパス COPY_DIR = TOP_DIR & MAIN_FLD & COPY_FLD 'コピー・ディレクトリパス SAVE_DIR = TOP_DIR & MAIN_FLD & SAVE_FLD 'セーブ・ディレクトリパス End With End Sub �C「ディレクトリ作成」サブルーチン(MakeDirectory) 初期ディレクトリを作成するものです。 '********************** ディレクトリの作成(mMod0) ************************ Public Sub MakeDirectory(ByVal filename, ByVal TOP_DIR, ByVal MAIN_DIR, _ ByVal COPY_DIR, ByVal SAVE_DIR) Dim DirFolder As String '仮ディレクトリ Dim FN As Integer 'ファイル番号 Dim ErrorPoint$ ErrorPoint$ = "MakeDirectory(mMod2)" On Error GoTo ErrorHandler DirFolder = MAIN_DIR '仮ディレクトリ MkDir MAIN_DIR 'メイン・ディレクトリ作成 DirFolder = COPY_DIR '仮ディレクトリ MkDir COPY_DIR 'コピー・ディレクトリ作成 DirFolder = SAVE_DIR '仮ディレクトリ MkDir SAVE_DIR 'セーブ・ディレクトリ作成 GoSub InitialFile_Set '初期設定ファイルの作成 Exit Sub '-------------------------------------------------------------- ' サブルーチン '-------------------------------------------------------------- InitialFile_Set: '初期設定ファイルの作成 FN = FreeFile Open filename For Output As #FN Write #FN, TOP_DIR, MAIN_FLD, COPY_FLD, SAVE_FLD Close #FN MsgBox "ディレクトリの設定を終了しました。" Return '--------------------------------------------------------------- ErrorHandler: Debug.Print "エラー："; Err.Number; " "; Err.Description If Err.Number = 75 Then '既にディレクトリがある場合 MsgBox "既にディレクトリ " & vbCrLf & _ DirFolder & vbCrLf & " は作成済みです。" Resume Next Else MsgBox "エラーが発生しました。" & vbCrLf & _ "エラー内容をお知らせください。" & vbCrLf & _ Err.Number & " " & Err.Description End End If Stop Resume Next End Sub 上記まで記述したら、いったん上書き保存してください。 �D「初期設定」シート上に下図のようにディレクトリ表示用枠線を作り、ツールボックスをデザインモードでコマンドボタンを配置してコードを記述してください。 ＜初期ディレクトリ設定＞ボタンをダブルクリックするか、VBAプロジェクトウィンドウの"Sheet28(初期設定）"をダブルクリックするとCommanButton2のサブが表示されるので、下図のように1行コードを記述してください。”Call”と”初期ディレクトリ設定”の間は半角スペースを入れてください。 ”初期ディレクトリ設定”は上記で作成したサブルーチンの名前です。 �Eデザインモードを終了して＜初期ディレクトリ設定＞ボタンをクリックしてください。 下図のダイアログが表示されるので、「マイ ドキュメント」を選択して＜OK＞をクリックしてください。 トップディレクトリをデフォルトのままの場合は、「おずたん」と同じディレクトリなのですでに作成済みのメッセージが出る場合があります。 次のメッセージが出れば初期ディレクトリ設定は完了です。 正常に初期ディレクトリ設定が完了すれば「初期設定シート」には下図のようにディレクトリ情報が表示されます。 以上で”準備編”は完了です。 準備編で作ったプログラムはユーザーさんが他のソフトを作る場合にも流用できると思います。 次回は、実際にJV-Dataを取得するプログラムを作っていきます。

ページトップへ

Copyright(C) Jaba.2000-2006