間違っているところを正しく教えて下さい。 (ID:90692)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

指定されているフォルダの中に入っているエクセルファイルを
読み込みA4かA4じゃないかをずっと調べていき、
A4ではないのがでたらメッセージを出し終了
全てのファイルのシートがA4だったら
終了としたいのですが…
どうすればよいでしょう？
ちなみにA4ではないファイル名とかがメッセージ
ボックスにでればいいのですがそれもなおさらわからなくって。

Sub ファイルの有無と情報の抽出()

Dim i As Long, j As Long, k As Long
Dim sh As Worksheet
Dim a() As Variant
With Application.FileSearch
    .NewSearch
    .LookIn = "C:\フォルダ"
    .Filename = "*.xls"
    '.FileType = msoFileTypeExcelWorkbooks
    If .Execute() > 0 Then
        ReDim a(1 To .FoundFiles.Count * 50, 1 To 3)
        For i = 1 To .FoundFiles.Count
            Workbooks.Open Filename:=.FoundFiles(i)
            With ActiveWorkbook
                For Each sh In .Sheets
                  If .PageSetup.PaperSize <> xlPaperA4 Then
                    MsgBox "A4以外は数えれない"
                    Exit Sub
                  End If
                     j = j + 1
                   Next
                   .Close False
            End With
        Next
    Else
        MsgBox ("ファイルを入れてください。")
    End If
     MsgBox "いいじゃん"

End With
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る