Excel VBAでフォルダ内のエクセルファイル全てに作成者名を入力したい

同一フォルダ内にあるエクセルファイル全てに、該当する作成者名を入力したいと考えています。
手元には１列目にファイル名、2列目に作成者名が入ったファイルがあり、こちらの内容を各ファイルに入力していきたいです。
以下のようなコードを書いたのですが、一つ目のファイルを開いた後にどのように作成者名と紐づけ、入力していくのかの所で詰まってしまいました。
良い方法があればご教示頂けると有難いです。

イメージ
ファイル１　　佐藤
ファイル２　　鈴木
ファイル３　　小林
（以下続く）

VBA
1Sub test()
2
3    Dim path, fso, file, files
4    path = "C:\Users\test\Desktop\test/"
5    
6    Set fso = CreateObject("Scripting.FileSystemObject")
7    Set files = fso.GetFolder(path).files
8
9    
10    For Each file In files
11
12        
13        Dim wb As Workbook
14        Set wb = Workbooks.Open(file)
15
16        'ここに何らかの処理が必要（以下の処理について知りたいです）
17
18    Next file
19
20End Sub
21

hatena19

2020/11/28 00:44

・「手元には１列目にファイル名」のファイル名はフルパスですか。ファイル名だけですか。・「同一フォルダ内にあるエクセルファイル全て」とのことですが、「手元には１列目にファイル名」にはそのファイル全てのファイル名があることは保証されているのですか。・「該当する作成者名を入力したい」とは、ブックの作成者プロパティを設定したいということですか。それとも特定のセルに入力したいということですか。

velt

2020/11/28 13:44

ご質問頂き、ありがとうございます。以下、回答させて頂きます。・「手元には１列目にファイル名」のファイル名はフルパスですか。ファイル名だけですか。 →ファイル名だけです。・「同一フォルダ内にあるエクセルファイル全て」とのことですが、「手元には１列目にファイル名」にはそのファイル全てのファイル名があることは保証されているのですか。 →保証されています。・「該当する作成者名を入力したい」とは、ブックの作成者プロパティを設定したいということですか。それとも特定のセルに入力したいということですか。 →ブックの作成者プロパティを設定したいです。その他、ご不明点等ございましたらご質問頂けると有難いです。

行動規範の内容に同意します

回答3件

・「手元には１列目にファイル名」のファイル名はフルパスですか。ファイル名だけですか。
→ファイル名だけです。
・「同一フォルダ内にあるエクセルファイル全て」とのことですが、「手元には１列目にファイル名」にはそのファイル全てのファイル名があることは保証されているのですか。
→保証されています。
・「該当する作成者名を入力したい」とは、ブックの作成者プロパティを設定したいということですか。それとも特定のセルに入力したいということですか。
→ブックの作成者プロパティを設定したいです。

とりあえず、下記のような感じのコードでいいでしょう。

vba
1Sub test()
2    Const path = "C:\Users\test\Desktop\test\" 'ファイルのあるフォルダー
3    
4    Dim rngList As Range
5    'リストのあるセル範囲（アクティブシートのA1セルからリストの場合）
6    Set rngList = Range("A1").CurrentRegion
7
8    Dim r As Range
9    For Each r In rngList.Rows
10        With Workbooks.Open(path & r.Cells(1, 1)) 'ブックを開く
11            'ブックの「作成者」プロパティを変更
12            .BuiltinDocumentProperties("Author").Value = r.Cells(1, 2)
13            'ブックを保存して閉じる
14            .Close SaveChanges:=True
15        End With
16    Next
17
18End Sub