A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
こんな感じでしょうか
Sub a()
Dim SchFol As String
Dim wsOut As Worksheet
'検索対象フォルダを指定してください
SchFol = "D:\temop"
With Application.FileSearch
.NewSearch
.LookIn = SchFol
.SearchSubFolders = False 'サブフォルダーを検索するときはTRUEにしてください
.Filename = "*.xls"
.FileType = msoFileTypeAllFiles
If .Execute() > 0 Then
Set wsOut = ThisWorkbook.Worksheets.Add
For i = 1 To .FoundFiles.Count
Call chkbook(wsOut, .FoundFiles(i))
Next i
Else
MsgBox "検索条件を満たすファイルはありません。"
End If
End With
End Sub
Private Sub chkbook(wsOut As Worksheet, inBook As String)
Dim wbIn As Workbook
Dim wsIn As Worksheet
Dim eRowA As Long
Dim eRowB As Long
Dim eRow As Long
Dim wRow As Long
Dim outCnt As Long
Dim outRow As Long
Workbooks.Open inBook
For Each wbIn In Workbooks
If wbIn.FullName = inBook Then
Exit For
End If
Next
'全シートを調べます
For Each wsIn In wbIn.Worksheets
With wsIn
If .Cells(1, 1).Value = "" And .Cells(1, 2) = "" Then
'データなしは処理しない
Else
outCnt = 0
'データの終端を検索
eRowA = eRowGet(wsIn, "A")
eRowB = eRowGet(wsIn, "B")
If eRowA > eRowB Then
eRow = eRowA
Else
eRow = eRowB
End If
For wRow = 1 To eRow
If .Cells(wRow, 2).Value <> "" And .Cells(wRow, 1).Value = "" Then
outCnt = outCnt + 1
End If
Next
outRow = eRowGet(wsOut, "A") + 1
With wsOut
.Cells(outRow, 1) = inBook
.Cells(outRow, 2) = wsIn.Name
.Cells(outRow, 3) = outCnt
End With
End If
End With
Next
wbIn.Close (False)
End Sub
Private Function eRowGet(ws As Worksheet, wCol As String) As Long
With ws.Cells(65536, wCol)
If .Value <> "" Then
eRowGet = 65536
Else
eRowGet = .End(xlUp).Row
End If
End With
End Function
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) 【マクロ】同じフォルダ内にある複数ブックから1つのブック内の1シートにデータを集めたい 6 2022/09/28 18:16
- Excel(エクセル) Excel、同じフォルダ内のExcelファイルの特定シートのみを1つのファイルに集約したい 8 2022/09/07 15:12
- Excel(エクセル) アンケート集計用VBAについて教えて下さい。 約100人にアンケート内容が入ったExcelファイルを 1 2022/07/27 13:12
- その他(プログラミング・Web制作) pythonでクラスで複数のメソッドを利用する方法 2 2022/04/15 04:17
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/03/28 14:52
- Excel(エクセル) Excelのマクロコードについて教えてください。 1 2022/03/27 10:47
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2022/08/04 13:56
- Excel(エクセル) 複数の同じ様式のエクセルデータの任意セルへの入力について 3 2022/04/27 15:00
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ショートカットファイルそのも...
-
PSP内で文字化けが起きてしまう...
-
フォルダの中を特定のキーワー...
-
自分だけファイルが見られるよ...
-
知らないファイルがあります。
-
テキストファイル内の文字列検索
-
レジストリの格納場所
-
Not kind:Folders
-
ファイル名の青色文字
-
ファイル名の印刷方法は
-
エクスプローラーの作成日時と...
-
貼り付けとショートカットの貼...
-
Windows DOSコマンドで次のBAT...
-
エクスプローラーの強制終了
-
全CSVファイルに一行だけ追加し...
-
検索したファイルの場所を調べ...
-
ISOファイルで作成する
-
EXCELファイルを開くと・・・
-
エクセルの印刷プレビュー後フ...
-
ファイル並び替え 秒まで
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
検索したファイルの場所を調べ...
-
Not kind:Folders
-
貼り付けとショートカットの貼...
-
ワードの作成日時と更新日時
-
ショートカットファイルそのも...
-
エクスプローラの検索で期間と...
-
USBにコピーして車で聴くには?
-
複数のワードのファイルから検索
-
Windows10のメタデータの「メ...
-
csvファイルの最後にeof(0x1a)...
-
レジストリの格納場所
-
突然エクセルのデータが何ヶ月...
-
WindowsXPのインストールでプロ...
-
拡張子KIHを見るソフトって有り...
-
拡張子.EXTの解凍方法
-
知らないファイルがあります。
-
EXCELファイルを開くと・・・
-
Win 10エクスプローラーについ...
-
全CSVファイルに一行だけ追加し...
-
自分だけファイルが見られるよ...
おすすめ情報