人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

質問です。

エクセルの各ファイルの1行目に下記表示があります
このデータを別ファイルに一覧表としてファイルの数の分
記録できるマクロを教えてください
別ファイルではABCDEに表示でも可です

E F G H I
AA33SN 1 183 43 1

●質問者: inosisi
●カテゴリ:コンピュータ インターネット
✍キーワード:エクセル データ ファイル マクロ 記録
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● TransFreeBSD
●60ポイント ベストアンサー

対象のファイルと同じフォルダに一覧表ファイルを作り、下記マクロを入れてください。

マクロを実行すると、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
◎質問者からの返答

ありがとうございました。

上手くいきました。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ