スキルアップ・問題解決なら、モーグにおまかせ！

 
下記マクロで、フォルダ内のファイル名をエクセルに書き出し、その後その名前をリネームでき
ました。
これを編集してサブフォルダ名を追加して、サブフォルダ名とファイル名を書き出し、その後
各サブフォルダ内のファイル名をリネームするマクロを教えてください。
（エクセル）（サブフォルダ名Ａ・Ｂ・Ｃは追加）
ファイル保存場所
C:\Users\owner\Desktop\1.株式会社たくみ
サブフォルダ名　　ファイル名 　　変換後ファイル名
A　　　　　　　　�Q雇用契約書.pdf　　 1�Q雇用契約書.pdf
Ｂ　　　　　　　 �R賃金台帳.pdf 　1�R賃金台帳.pdf
Ｃ　　　　　　 　�S給与明細.pdf 　1�S給与明細.pdf
  
（マクロ）（サブフォルダ名の書き出しとサブフォルダ内のファイル名変更）
Sub get_file_name()
    '変数の型を宣言
    Dim folder_path As String
    Dim file_name As String
    Dim i As Integer
    folder_path = Cells(2, 1) & "\"
    file_name = Dir(folder_path, vbNormal)
    i = 1
    Do Until file_name = ""
        Cells(i + 3, 1) = file_name
        i = i + 1
        file_name = Dir()
    Loop
End Sub
Sub file_rename()
    '変数の型を宣言
    Dim folder_path As String
    Dim j As Integer
    folder_path = Cells(2, 1) & "\"
    j = 1
    Do Until Cells(j + 3, 1) = ""
        Name folder_path & Cells(j + 3, 1) As folder_path & Cells(j + 3, 2)
        j = j + 1
    Loop
End Sub

なんか、最終的に、全部作ってもらおうとしていませんか？？？
「〇〇 までやってみましたが、XX 部分で ▼ のエラーが出ました」とかであればまだいいですが、
順を追っていくとそんな気がしてならないです。
 
1.フォルダとサブフォルダ内のファイル名取得マクロ教えてください。
↓
2.フォルダとサブフォルダ内のファイル名をリネームするマクロを教えてください。
↓
3.各サブフォルダ内のファイル名を指定したファイル名に変換するマクロを教えてください
 
2と3 は同じ気が。。。

自分含めて他参加者様たちがソースコード全文を掲載しないのは、開発依頼となるような投稿の仕方が禁じされているので意図的に（それでも分かりやすく書いたつもりだが）解体して要素ごとに説明しています。
とりあえず組めるとこまで自力で組んでみましょう。
 
あと投稿内容に何度か守秘義務違反になりかねない箇所がありますが、実在会社名など投稿しないようにお気を付けてください。
きっと仮名だろうそうだろうと割り切ってますけど、なんだか心配です。
もし誤って実在する対象を記入してしまった場合、本ウェブサイト下部のお問い合わせから個人からのお問い合わせページへ進んでこのサイトの運営会社様に相談してみてください。

解決しました。有難うございます。

解決しました。有難うございます。