エクセルの各ファイルの1行目に下記表示があります
このデータを別ファイルに一覧表としてファイルの数の分
記録できるマクロを教えてください
別ファイルではABCDEに表示でも可です
E F G H I
AA33SN 1 183 43 1
対象のファイルと同じフォルダに一覧表ファイルを作り、下記マクロを入れてください。
マクロを実行すると、Aにはファイル名、Bにはシート名を入れ、E~Iの値はE~Iにコピーします。
ます。
Sub Update() Set moapp = CreateObject("Excel.Application") moapp.Visible = False Dim i As Long i = 1 Set files = CreateObject("Scripting.FileSystemObject").GetFolder(ThisWorkbook.path).files For Each f In files If (Not f.Name = ThisWorkbook.Name And Not f.Name Like "~$*") Then Set b = moapp.Workbooks.Open(f.path) Set s = b.ActiveSheet Cells(i, "A") = f.Name Cells(i, "B") = s.Name Range("E" & i & ":I" & i) = s.Range("E1:I1").Value b.Close i = i + 1 End If Next End Sub
ありがとうございました。
上手くいきました。