'拡張子取得 Function GetExtension(ByRef パス As String) As String Dim str As String Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") str = fso.GetExtensionName(パス) GetExtension = SplitString(str, "]", 1) If Not fso …

'文字列分割 Function SplitString( _ ByRef 対象文字列 As String _ , ByRef 区切り文字列 As String _ , Optional ByRef 取得位置 As Integer = 1 _ ) As Variant Dim var As Variant var = Split(対象文字列, 区切り文字列) SplitString = var(IIf(取得位…

'####################################### 'ExcelDB化接続 '【概要】 ' DB接続 '【引数】 ' ExcelPath ：接続先Excelのフルパス ' [省略可] HeaderExists ：ヘッダ有:True(既定値)、無:False） '【戻り値】 ' Boolean ：True：正常終了 False：異常終了 '##…

'####################################### 'ひな形 Sub '【概要】 ' ひな形です '【引数】 ' aaaaaaaa ： ' [省略可] bbbbbbb ： '####################################### Sub ひな形_S( _ ByRef aaaaaaaa As Variant _ , Optional ByRef bbbbbbb As Vari…