Excel VBA 質問スレ Part64at TECHExcel VBA 質問スレ Part64 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト100:デフォルトの名無しさん 19/12/12 20:44:42.97 gjQRRqT20.net >>88 Sub test2() '整数を格納 Dim lngFileName As Long '正規表現オブジェクトを作成 Dim objReg As Object, objRegMatch Set objReg = CreateObject("VBScript.RegExp") With objReg 'ファイル名のパターンを指定 '[半角数字2文字][区切り文字1文字][半角数字1～4文字][拡張子(xlsxまたはxls)]に一致 .Pattern = "^\d{2}.(\d{1,4})\.(?:xlsx|xls)$" .Global = True End With '正規表現にマッチしないファイル名だった場合の処理 Set objRegMatch = objReg.Execute(ActiveWorkbook.Name) If objRegMatch.Count < 1 Then 'メッセージボックスを表示 MsgBox ("正規表現アンマッチ") 'Label1にジャンプして処理を終了 GoTo Label1 End If '正規表現のグループ化した部分を整数として格納 lngFileName = objReg.Replace(ActiveWorkbook.Name, "$1") 'メッセージボックスを表示 MsgBox (lngFileName) Label1: End Sub 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch