ファイルの中にあるシートを読みつづけたいんですけどうまくいきません。

たおる 2005-06-25 03:21:10 No: 123053

指定されているフォルダの中に入っているエクセルファイルを
読み込み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

ぶぶ 2005-06-25 06:34:22 No: 123054

マルチです。
掲示板にマルチで投稿されることはマナー違反です
http://madia.world.coocan.jp/cgi-bin/VBBBS/wwwlng.cgi?print+200506/05060101.txt