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

"人事評価"というフォルダの中にある各エクセルファイルのB2?H2セルに入っているデータを"一覧"というエクセルに集計したくて以下のマクロを作成したのですが、固まってしまいました。

ダメな点を指摘いただけますでしょうか?

Sub 一覧作成()
Dim 人事 As Workbook
Dim 記録 As Worksheet
Dim 一覧 As Worksheet
Dim 行&, 名$, 頂$, 自$
Set 一覧 = ThisWorkbook.Worksheets(1)
一覧.Cells.Delete
一覧.Cells(1, 1) = "ファイル名"
一覧.Cells(1, 2) = "実績"
一覧.Cells(1, 3) = "管理"
一覧.Cells(1, 4) = "自己評価"
一覧.Cells(1, 5) = "他己評価"
一覧.Cells(1, 6) = "最終評価"
行 = 1
自 = ThisWorkbook.Name
頂 = デスクトップ & "\人事評価\"
名 = Dir$(頂 & "*.xls")
Do Until 名 = ""
If 名 <> 自 Then
Set 人事 = Workbooks.Open(頂 & 名)
Set 記録 = 人事.Worksheets(1)
行 = 行 + 1
一覧.Cells(行, 1) = 名
一覧.Cells(行, 2) = 記録.Cells(2, 2)
一覧.Cells(行, 3) = 記録.Cells(2, 3)
一覧.Cells(行, 4) = 記録.Cells(2, 4)
一覧.Cells(行, 5) = 記録.Cells(2, 5)
一覧.Cells(行, 6) = 記録.Cells(2, 6)
人事.Close
名 = Dir$()
End If
Loop
End Sub

●質問者: qazu
●カテゴリ:ビジネス・経営 コンピュータ
✍キーワード:as b2 DELETE Dir H2
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● SALINGER
●60ポイント

最後のところが

End If= Dir$()
Loop
End Sub

のようにして、「If?End」の外に「名 = Dir$()」にしないとLoopを抜けません。

◎質問者からの返答

ありがとうございます。

解決しました!!

関連質問


●質問をもっと探す●



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