今回は複数のファイルの集計を行いたいと思ってます。
Dir関数でファイルネームはとれてるのですが、エラーが出ます。
エラーより先のコードがうまくいけるのかもは微妙なところではありますが。。。
よろしくお願いします。
しかもファイル名が1つしかとれてませんでした。
次のファイルを読み込んでませんでした。
実際のコード
Sub EntryOut() Dim File As String Dim FilePath As String Dim i As Long Dim r As Long Dim j As Long Dim rng As Range Dim wb As Workbook Dim sh As Worksheet Dim shTab As Worksheet Set wb = ThisWorkbook Set sh = wb.Sheets("出力") Set shTab = wb.Sheets("タブエントリー状況") File = Dir(shTab.Range("C1") & "*エントリーシート.xlsx") Do While File <> "" r = sh.Rows.End(xlDown).Row For i = 2 To r ' '開くExcelファイル FilePath = Dir(shTab.Range("C1") & "\" & File) 'ファイル名,項番 sh.Cells(i, 3) = File sh.Cells(i, 1) = File.ActiveSheet.Range("B10") 'エントリーページ j = 15 If File.ActiveSheet.Cells(j, 1) = "○" Then sh.Cells(i, 2).Value = File.ActiveSheet.Range(j, 12).Value End If Next j Next i Loop End Sub
ファイル名はとれてます。
エラー内容
sh.Cells(i, 1) = File.ActiveSheet.Range("B10")の部分で
修飾仕が不正です。のエラーメッセージがでてしまいます。
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2019/06/13 09:24
2019/06/14 01:38