Excel

=DATE("20" & LEFT(MID(CELL("filename", A1), FIND("]", CELL("filename", A1)) + 1, 255), 2), MID(MID(CELL("filename", A1),...

Sub prcListSubfolders() Dim dlgFolder As FileDialog ' フォルダ選択用のダイアログ Dim strFolderPath As String ' 選択されたフォルダのパス Dim fsoFi...

Sub prcRenameFolders() Dim lngRowStart As Long ' 処理開始行 Dim lngRowEnd As Long ' 処理終了行 Dim lngRow As Long ' 現在処理中の行 Dim st...

Sub prcSplitPath() Dim rngCell As Range ' 各セルをイテレートするための変数 Dim strPath As String ' 入力されたフルパス Dim fso As FileSystemObject...

Sub prcAddSequenceToFileNamesWithConfirmation() Dim strBase As String Dim lngLastRow As Long Dim i As Long Dim intRespon...

Sub prcSplitFilePath() Dim wst As Worksheet Dim lngLastRow As Long Dim lngRow As Long Dim strFullPath As String Dim strF...

Sub prcListFilesInFolderWithSubfolders() Dim fso As FileSystemObject ' FileSystemObjectのインスタンス Dim fld As Folder ' 処理中のフ...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ' セルA1をダブルクリックした時に指定のURLを開く Dim strURL...

Function fncCountFilesByExtension(ByVal strFolderPath As String, ByVal strExtension As String) As Long ' 指定されたフォルダ内の特定の拡...

’呼び出し側の処理 Sub prcTestGetPDFPageCountInFolder() Dim strFolder As String Dim strFile As String Dim lngPageCount As Long Di...