EXCELファイル名の一括変換について

Question

下のように勤怠管理表のファイルを保存しているのですが、ファイルの名前を一括変換できる方法はあるのでしょうか。
4月1日分のフォルダに入っている1階分のファイルは、040101勤怠管理表.xlsx、2階分は040102勤怠管理表.xlsxと一括で変換したいです。

 ????4月勤怠管理表
    └─????0401
        ├─????1階
        │  └─勤怠管理表.xlsx
        ├─????2階
        │  └─勤怠管理表.xlsx
        ├─????3階
        │  └─勤怠管理表.xlsx
    └─????0402
        ├─????1階
        │  └─勤怠管理表.xlsx
        ├─????2階
        │  └─勤怠管理表.xlsx
        ├─????3階
        │  └─勤怠管理表.xlsx
    └─????0403
        ├─????1階
        │  └─勤怠管理表.xlsx
        ├─????2階
        │  └─勤怠管理表.xlsx
        ├─????3階
        │  └─勤怠管理表.xlsx

Comments

[y_waiwai]

で、しつもんはなんでしょうか

[m.ts10806]

プログラミングと関係ないのでは？
可能か不可能かだと大抵のことは「可能」です。
つまり調べたり試したりして解決できるものです。
自身で調べたり試したりしたことを記載してください

[meg_]

プログラムをご自身で作成すれば可能だと思います。

[退会済みユーザー]

すみません。説明不足でした。
VBAを使って、連番で一括変換する方法は分かったのですが、フォルダの日付＋フォルダの階をファイルの名前の先頭につける方法が知りたかったです。

[meg_]

VBAでフォルダ名の取得は出来ますか？

[meg_]

「VBAを使って、連番で一括変換する方法は分かった」のであれば、そのこととそのコードを質問に追記しましょう。

[退会済みユーザー]

はい、フォルダ名を取得するところまでは調べて分かりました。

[m.ts10806]

VBA組まれているのでしたらできているところまでで良いので提示してみてください。

[gentaro]

フリーのツール使えば簡単にできそうだけど、自分で組む意味あるんだろうか。

Answer 1

これは、Excel VBAではなくPowerShellなどを使用してもＯＫなのでしょうか？
それでしたら、以下のようなコードで変換できると思います。

#ターゲットフォルダのフルパス名を受け取る
param(
    [parameter(ValueFromRemainingArguments = $true)]
    [String]$TargetDir # = "D:\WorkShop\勤怠管理表"
)
function MyPause() {
    Write-Host "続行するには何かキーを押してください..." -NoNewLine
    [Console]::ReadKey() > $null
}

if ($TargetDir -eq $null -or $TargetDir -eq "") {
    Write-Host "ターゲットフォルダのフルパス名を入力してください。"
    MyPause
    exit
}

$items = Get-ChildItem $TargetDir -Recurse -File -Include "勤怠管理表.xlsx"

foreach ($item in $items) {
    $file_name = Split-Path $item -Leaf

    $par1 = Split-Path $item -Parent
    $kai_name = Split-Path $par1 -Leaf

    $kai_num = [int]$kai_name.TrimEnd("階")
    $kai_name = "{0:d2}" -f $kai_num

    $par2 = Split-Path $par1 -Parent
    $date_name = Split-Path $par2 -Leaf
    
    $target_name = $date_name + $kai_name + $file_name

    Write-Host $target_name
    # Rename-Item -Path $item -NewName $target_name
}

MyPause

このコードを「rename.ps1」などのファイル名で保存してから、
PowerShellのコンソールから、

.\rename2.ps1 "D:\WorkShop\勤怠管理表"

のようにタイプすれば変換できると思います。

なお、念のために変換対象のファイル名は「勤怠管理表.xlsx」限定としています。
また、ソースコードの最後の部分の「Rename-Item」は最初はコメントにしています。
「Write-Host」でファイル名を表示しますので、変換後のファイル名に間違いがないことを
確認してからコメントアウトして実行してみてください。