Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Pro : Excel 2019)
各サブフォルダ内のファイル名を指定したファイル名に変換するマクロを教えてください
投稿日時: 22/06/10 15:52:41
投稿者: ふく@たろう

 
下記マクロで、フォルダ内のファイル名をエクセルに書き出し、その後その名前をリネームでき
ました。
これを編集してサブフォルダ名を追加して、サブフォルダ名とファイル名を書き出し、その後
各サブフォルダ内のファイル名をリネームするマクロを教えてください。
(エクセル)(サブフォルダ名A・B・Cは追加)
ファイル保存場所
C:\Users\owner\Desktop\1.株式会社たくみ
サブフォルダ名  ファイル名   変換後ファイル名
A        Q雇用契約書.pdf   1Q雇用契約書.pdf
B        R賃金台帳.pdf  1R賃金台帳.pdf
C        S給与明細.pdf  1S給与明細.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

回答
投稿日時: 22/06/10 16:28:14
投稿者: taitani

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

2.フォルダとサブフォルダ内のファイル名をリネームするマクロを教えてください。

3.各サブフォルダ内のファイル名を指定したファイル名に変換するマクロを教えてください
 
2と3 は同じ気が。。。

回答
投稿日時: 22/06/10 17:11:12
投稿者: QooApp

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

投稿日時: 22/06/11 08:15:35
投稿者: ふく@たろう

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

投稿日時: 22/06/11 08:18:20
投稿者: ふく@たろう

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