ExcelVBA関連 - nisya @Wiki

共通

未定義変数検知

Option Explicit

自動マクロ起動

M_BookAuto_1.0.txt

入力情報（シート）取得[getSysParaBySheet]

Ver 1.0

M_getSysParaBySheet_1.0.txt

[戻り値]:
   String
     取得したパラメータ値
[引  数]:
   isSheetName(String)
    取得するシート名
  isParNameString(String)
    パラメータ名

アクセスログ出力クラス[cPutAccessLog]

Ver 1.0

Z_cPutAccessLog_1.0.txt cPutAccessLog_1.0.txt

初期化[Public Function Initialize]

[戻り値]:
  Boolean
    True: 成功
    False:失敗
[引  数]:
  isFormatIncPath(String)
    ファイル名（パス付）

ステータス取得[Public Function getStatus]

[戻り値]:
  String
    CSV形式でプライベート変数内容を返却
[引  数]:
  なし

保存期間満了ログ削除[Public Function deleteLogSaveLimitOver]

[戻り値]:
  String
    CSV形式でプライベート変数内容を返却
    False:失敗
[引  数]:
  iiLogSaveDay(Integer)
    ログ保存期間日数

ログ出力[Public Function putLog]

[戻り値]:
  Boolean
    True: 成功
    False:失敗
[引  数]:
  strLogMsg(String)
    ログ内容

終了[Public Function Terminate]

[戻り値]:
  Boolean
    True: 成功
    False:失敗
[引  数]:
  なし

ブック制御クラス[cBookControl]

Ver 1.0

Z_cBookControl_1.0.txt cBookControl_1.0.txt

初期化[Public Function Initialize]

[戻り値]:
  Boolean
    True: 成功
    False:失敗
[引  数]:
  なし

ステータス取得[Public Function getStatus]

[戻り値]:
  String
    CSV形式でプライベート変数内容を返却
[引  数]:
  なし

Excelユーザ名取得[Public Function getExcelUserName]

[戻り値]:
  String
    Excelユーザ名
[引  数]:
  なし

Excel組織名取得[Public Function getExcelOrganizationName]

[戻り値]:
  String
    Excel組織名
[引  数]:
  なし

Excelメモリ情報取得[Public Function getExcelMemory]

[戻り値]:
  String
[引  数]:
  iiType(Integer)

ステータスバー制御開始[Public Function StatusBarStart]

[戻り値]:
  Boolean
[引  数]:
  なし

ステータスバー表示[Public Function StatusBarPut]

[戻り値]:
  Boolean
[引  数]:
  lsMsg
    表示メッセージ

ステータスバー制御終了[Public Function StatusBarEnd]

[戻り値]:
  Boolean
[引  数]:
  なし

カーソル処理中[Public Function CursorWait]

[戻り値]:
  Boolean
[引  数]:
  なし

画面更新中止[Public Function DisplayUpdateStop]

[戻り値]:
  Boolean
[引  数]:
  なし

画面更新開始[Public Function DisplayUpdateStart]

[戻り値]:
  Boolean
[引  数]:
  なし

カーソル通常[Public Function CursorNormal]

[戻り値]:
  Boolean
[引  数]:
  なし

ファイル選択ダイアログ[Public Function getFileNameByDialog]

[戻り値]:
  Variant
   パス付ファイル名
    分離した文字は、String()で返却
    分離する文字がない場合、Empty値
[引  数]:
  isDialogTitle(String)
    ダイアログのタイトル
  isFileFilterString(String)
    ダイアログ中の「ファイルの種類」
  ibMultiFileSelect(Boolean)
    複数選択の可否

指定ブックオープン済チェック[Public Function isCheckOpenSelectBook]

[戻り値]:
  Boolean
    True: オープンしていた
    False:オープンしていない
[引  数]:
  isChkBookName(String)
    ブック名("abc.xls")

Excelタイトル変更[Public Function setExcelTitle]

[戻り値]:
  Boolean
    True: オープンしていた
    False:オープンしていない
[引  数]:
  isExcelTitle(String)
    タイトル内容

Excelタイトル変更停止[Public Function unsetExcelTitle]

[戻り値]:
  Boolean
    True: オープンしていた
    False:オープンしていない
[引  数]:
  なし

終了[Public Function Terminate]

[戻り値]:
  Boolean
    True: 成功
    False:失敗
[引  数]:
  なし

シート制御クラス[cSheetControl]

Ver 1.0

Z_cSheetControl_1.0.txt cSheetControl_1.0.txt

初期化[Public Function Initialize]

[戻り値]:
  Boolean
    True: 成功
    False:失敗
[引  数]:
  isSheetName(String)

ステータス取得[Public Function getStatus]

[戻り値]:
  String
    CSV形式でプライベート変数内容を返却
[引  数]:
  なし

シート可視不可視[Public Function VisibleSheet]

[戻り値]:
  Boolean
    True: 成功
    False:失敗
[引  数]:
  ibVisible(Boolean)
    True:可視
    False:不可視

シート存在チェック[Public Function isCheckFoundSheet]

[戻り値]:
  Boolean
    True: 存在していた
    False:存在していない
[引  数]:
  なし

シート追加[Function inserSheetName]

[戻り値]:
  Boolean
    True: 成功
    False:失敗
[引  数]:
  なし

シート名変更[Function updateSheetName]

[戻り値]:
  Boolean
    True: 成功
    False:失敗
[引  数]:
  isSheetNameAft(String)
    変更後シート名

シート削除

Function deleteSheetName()

[戻り値]:
  Boolean
    True: 成功
    False:失敗
[引  数]:
  なし

文字列操作

文字列分離[SpilitString]

Ver 1.0

M_SpilitString_1.0.txt

[戻り値]:
  Variant
  分離した文字は、String()で返却
  分離する文字がない場合、Empty値
[引  数]:
  isSorceString(String)
    分離したい文字列
  isLimitString(String)
    分離したい文字列内のデリミタ文字

指定文字列内パターンマッチング[isPatternMatching]

Ver 1.0

M_isPatternMatching_1.0.txt

[戻り値]:
  Boolean
    True: 一致
    False:不一致
[引  数]:
  isTargetString(String)
    比較文字列
  lsChkStringArray(String())
    チェック対象の文字列群
    先頭に*を指定することで後方一致チェックする("*.log")
    末尾に*を指定することで前方一致チェックする("/home/*")

メッセージクラス(シート定義)[cMsgBySheet]

Ver 1.0

Z_cMsgBySheet_1.0.txt cMsgBySheet_1.0.txt

初期化Public Function Initialize]

[戻り値]:
  Boolean
    True: 成功
    False:失敗
[引  数]:
  isSheetName
     取得するシート名
  isMsgId(String)
    メッセージID
   fsCoverupMsg(String)
     埋込文字(CSV形式)

ステータス取得[Public Function getStatus]

[戻り値]:
  String
    CSV形式でプライベート変数内容を返却
[引  数]:
  なし

メッセージ内容取得[Public Function getMessage]

[戻り値]:
  String
    メッセージ内容を返却
[引  数]:
  なし

メッセージボックス表示[Public Function MessageBox]

[戻り値]:
  Boolean
[引  数]:
  なし

YesNoボックス表示[Public Function YesNoBox]

[戻り値]:
  Boolean
[引  数]:
  なし

メッセージグループ取得[Public Function getMsgGroup]

[戻り値]:
  String
    メッセージ内容を返却
[引  数]:
   なし

エラーレベル判定[Public Function isLevelError]

[戻り値]:
  Boolean
[引  数]:
  なし

警告レベル判定[Public Function isLevelWarning]

[戻り値]:
  Boolean
[引  数]:
  なし

通常レベル判定[Public Function isLevelNormal]

[戻り値]:
  Boolean
[引  数]:
  なし

終了[Public Function Terminate]

[戻り値]:
  Boolean
    True: 成功
    False:失敗
[引  数]:
  なし

ファイルクラス[cFile]

Ver 1.0

Z_cFile_1.0.txt cFile_1.0.txt

初期化[Public Function Initialize]

[戻り値]:
  Boolean
    True: 成功
    False:失敗
[引  数]:
  isFileNameIncPath(String)
    ファイル名（パス付）
    パスがついていない場合、ブックと同パスとなる
    相対パスがついているも、ブックが起点となる

ステータス取得[Public Function getStatus]

[戻り値]:
  String
    CSV形式でプライベート変数内容を返却
[引  数]:
  なし

絶対パス変換[Private Function updateRootPathForWin]

[戻り値]:
  String
    絶対パス
[引  数]:
  isPathName(String)
    パスなし、相対パス

パス付ファイル名分離[Private Function SplitFileIncPath]

[戻り値]:
  String
    パス、またはファイル
[引  数]:
  isFileNameIncPath(String)
    パス付のファイル名
  isLimitString(String)
    パスの区切り文字("\","/")
  iiType(Integer)
    1:パス名の返却要求
    2:ファイル名の返却要求

パス取得[Public Function getPathName]

[戻り値]:
  String
[引  数]:
  なし

ファイル名取得[Public Function getFileName]

[戻り値]:
  String
[引  数]:
  なし

ファイル存在チェック[Public Function isExist]

[戻り値]:
  Boolean
    True: 成功
    False:失敗
[引  数]:
  なし

ファイル削除[Public Function deleteFile]

[戻り値]:
  Boolean
    True: 成功
    False:失敗
[引  数]:
  なし

ファイルオープン（読込用）[Public Function openFileForRead]

[戻り値]:
  Boolean
    True: 成功
    False:失敗
[引  数]:
  なし

ファイルオープン（上書用）[Public Function openFileForOutput]

[戻り値]:
  Boolean
    True: 成功
    False:失敗
[引  数]:
  なし

ファイルオープン（追記用）[Public Function openFileForAppend]

[戻り値]:
  Boolean
    True: 成功
    False:失敗
[引  数]:
  なし

ファイル書き込み[Public Function writeFileLine]

[戻り値]:
  Boolean
    True: 成功
    False:失敗
[引  数]:
  sBuf(String)
    書き込み文字列

ファイルクローズ[Public Function closeFile]

[戻り値]:
  Boolean
    True: 成功
    False:失敗
[引  数]:
  なし

終了[Public Function Terminate]

[戻り値]:
  Boolean
    True: 成功
    False:失敗
[引  数]:
  なし

マシン制御クラス[cMachineControl]

Ver 1.0

Z_cMachineControl_1.0.txt cMachineControl_1.0.txt

初期化[Public Function Initialize]

[戻り値]:
  Boolean
    True: 成功
    False:失敗
[引  数]:
  なし

ステータス取得[Public Function getStatus]

[戻り値]:
  String
    CSV形式でプライベート変数内容を返却
[引  数]:
  なし

コンピュータ名取得[Function getComputerName]

[戻り値]:
  String
    OS名
[引  数]:
  なし

環境変数取得[Function getEnv]

[戻り値]:
  String
    OS名
[引  数]:
  isEnvName(String)
    環境変数名

ログインユーザ名取得[Function getLoginUserName]

[戻り値]:
  String
    ログインユーザ名
[引  数]:
  なし

ＯＳ名取得[Function getOsName]

[戻り値]:
  String
    OS名
[引  数]:
  なし

終了[Public Function Terminate]

[戻り値]:
  Boolean
    True: 成功
    False:失敗
[引  数]:
  なし

EXCELブッククラス

Ver 1.0

Z_cSheetControl_1.0.txt cSheetControl_1.0.txt

初期化

Public Function Initialize()

処理概要

 クラスの開始、および、初期化を行う。

戻り値

 cResult
   getResult なし

引数

 isBookPathName(String)
   ブックパス名
 isBookFileName(String)
   ブックファイル名

ステータス取得

Public Function getStatus()

処理概要

 クラスのフィールド値を返却する

戻り値

 String
   CSV形式でプライベート変数内容を返却

引数

 なし

ブック読取専用パスワード設定

Public Sub setBookReadPasswd()

処理概要

 読取専用パスワード設定

戻り値

 なし

引数

 isBookReadPasswd(String)
   読取専用パスワード文字列

ブック書込専用パスワード設定

Public Sub setBookWritePasswd()

処理概要

 書込専用パスワード設

戻り値

 なし

引数

 isBookReadPasswd(String)
   読取専用パスワード文字列

指定ブックオープン済チェック

Public Function isCheckOpenSelectBook()

処理概要

 指定したブックのオープン状態を返却する

戻り値

 cResult
   getResult [Boolean]
     True: オープン済
     False:未オープン

引数

 isChkBookName(String)
   ブック名("abc.xls")

ブックオープン

Public Function openBook()

処理概要

 ブックをオープンする

戻り値

 cResult
   getResult なし

引数

 ibBookUpdateLinks(Boolean)
   ブックパス名
 ibBookReadOnly(Boolean)
   ブックファイル名

シート取得

Public Function getSheetObject()

処理概要

 指定したシート名のシートオブジェクトを返却

戻り値

 cResult
   getResult [Worksheet]

引数

 isSheetName(String)
   シート名

全シート名取得

Public Function getSheetNames()

処理概要

 オープンしているブックのzんシート名を返却

戻り値

 cResult
   getResult [String]
     CSV形式で全シート名を返却

引数

 なし

ブッククローズ

Public Function closeBook()

処理概要

 オープン中のブックをクローズする

戻り値

 cResult
   getResult なし

引数

 なし

終了

Public Function Terminate()

処理概要

 クラスの終了

戻り値

 cResult
   getResult なし

引数

 なし

命名規則

変数名

ABCDEF・・・・
(ex.lbRet,liLoopCounter,fsSheetName,ioClassArray)
A 定義場所
 "g" :モジュール内Public,Global変数(Global)
 "f" :クラス内フィールド(Field)
 "i" :モジュール、クラスの引数	(Input)
 "l" :モジュール、クラス内で定義したローカル変数(Local)
 "c" :定数(Const)
B 変数の型
 "s" :String
 "i" :Integer
 "l" :Long
 "d" :Double
 "b" :Boolean
 "t" :Date
 "v" :Variant
 "o" :Object
CDEF・・・任意の特定変数名
 英単語、英文。原則和製英語不可。単語の区切りごとに大文字。
   IsError、LoopCounter1
 変数がテーブルの場合、最後に、Arrayを付加
   IsErrorArray、LoopCounterArray