ＥｘｃｅｌのVBAでエラーになるのですが

Question

最近、ＶＢＡを始めたので、よくわかっていないのですが、以下のようなマクロを書いています。（長いので、かなり省略していますが)一応、動くようになったのですが、なぜか、一旦、最初(sheet 1)に戻ってしまうことがあります。（何度か繰り返して、進みますが）
なぜなのかと考えると、該当シートが見つからないからのようなのですが、どのように対策したら良いのでしょうか？

    Dim s_A As String
Sub Spec()
    s_A = "1"
    Call Spec3
    Call Spec4
    s_A = "2"
    Call Spec3
    Call Spec4
　　'このあと s_A = "100"  まで続く
    ActiveWorkbook.Close
End Sub

Sub Spec3()
       On Error Resume Next 
    Do Until Selection.Value = "" 
　　If　～　then
    Else
      ～
    Else if
      ～ 
        End If
    Loop
    'ここで、動作を繰り返させている
End Sub

　そこで、エラー対策として、specの先頭にOn Error Resume Nextを入れるとエラーになりますよね？
　該当シートがない場合は、次のシート（３行下）にジャンプさせたいのですが。 
　よろしくお願いします。

papayuka · Accepted Answer

#1です。
丸投げされても困ります。色々な回答、サンプルが提示されている中で、ご自身で応用するにあたって上手く行かない部分を質問されないと、答える方は何が解からないのか解かりません。ソースを見る感じでは、

1.あるフォルダ内に xx_list.xls という名前のExcelブックが多数ある。
2.上記ブックには複数のシートが存在し、それぞれのシートのセルB3～Bxxまでにファイル名が入力されている。

こんな感じに取れました。（Spec4 は危ない処理に思えます）

下記は特定フォルダ内のExcelブックを次々に開き、開いたブック内の全シートをループさせ、マクロのあるブックの1枚目のシートに Mydoc と Mydoc2 に相当するパスを記述するサンプルです。
CA_list.xls 等があるフォルダに新規ブックを作成し、下記のマクロをコピペして実行前に必ず保存します。

Sub Test()
Dim fs As FileSearch, i As Integer
Set fs = Application.FileSearch
With fs
　.NewSearch
　.LookIn = ThisWorkbook.Path
　.Filename = "*.xls"
　If .Execute() > 0 Then
　　For i = 1 To .FoundFiles.Count
　　　If .FoundFiles(i) <> ThisWorkbook.FullName Then
　　　　 Call myOpen(.FoundFiles(i))
　　　End If
　　Next i
　End If
End With
　Set fs = Nothing
End Sub

Sub myOpen(FName As String)
Dim wb As Workbook, ws As Worksheet, i As Long, cnt As Long
Dim b_A As String, Mydoc1 As String, Mydoc2 As String

Set wb = Workbooks.Open(FName)

'[_list.xls]を取り除いて b_A にセット
b_A = Left(Dir(FName), Len(Dir(FName)) - 9)

For Each ws In wb.Worksheets
　With ws
　　'↓この1行はサンプル用
　　cnt = ThisWorkbook.Worksheets(1).Range("A65536").End(xlUp).Row

　　.Activate
　　For i = 3 To .Range("B65536").End(xlUp).Row
　　　Mydoc1 = "I:\GIJUTSU\SPEC\" & (b_A) & "\" & _
　　　　　　　　(.Name) & "\" & .Range("B" & i) & ".doc"
　　　Mydoc2 = "I:\GIJUTSU\PDF\spec\" & (b_A) & "\" & _
　　　　　　　　(.Name) & "\" & .Range("B" & i) & ".pdf"
　　　'ここからサンプル用
　　　ThisWorkbook.Worksheets(1).Range("A" & cnt) = Mydoc1
　　　ThisWorkbook.Worksheets(1).Range("B" & cnt) = Mydoc2
　　　cnt = cnt + 1
　　　'ここまでサンプル用
　　　'本来の処理をこのあたりに書く？
　　Next i
　End With
Next ws
　wb.Close: Set wb = Nothing
End Sub

papayuka · Answer

#1です。

> 該当シートが見つからないからのようなのです
> 該当シートがない場合は、次のシート（３行下）にジャンプさせたい
> Excelのシートにあるファイルを順にPDFに変換していきます。
> で、空白セルが出てきたら、そこで終わって、次のシートへという形です。

シートにあるファイルって何でしょう？ファイル名が書いてあるのかな？
３行下とは？

これらを読んでも処理内容がまったく掴めません。
また、Sub Spec() のような書き方は通常しないと思います。

「該当シートが見つからない」とはグローバル変数の「s_A」がシート名を指している事を意味しているのでしょうか？
s_A=100まであるのは、100シートくらいまで処理を書けばOKだからで、100シート無い場合に上手く動かないって意味でしょうか？
ブック内の全シートを処理したい場合は、#2さんの例のように for each でWorksheetオブジェクトをループさせるか、 Worksheet.Count までループさせるかで処理をします。

例は、複数のシートがあるブックで各シートのA1～A列の最後の行までの内容を新規に追加したシートに転記します。

Sub Test1()
Dim ws As Worksheet, i As Integer, myRow As Long, cnt As Long
'1番左にシートを追加
Set ws = Worksheets.Add(before:=Worksheets(1))
cnt = 1
'左から2番目のシートから、一番右のシートまで処理
For i = 2 To Worksheets.Count
　'A1からA列の一番最後のセルまでループ
　For myRow = 1 To Worksheets(i).Range("A65536").End(xlUp).Row
　　'追加したシートに転記
　　ws.Range("A" & cnt) = Worksheets(i).Range("A" & myRow)
　　cnt = cnt + 1
　Next myRow
Next i
End Sub

> s_Aについては、spec3以降でも使っていますので、このようにグローバルで宣言しています。

全容が不明ですがグローバル宣言の必要はやはり無いと思います。
もう少しハッキリ処理内容が掴めれば、もっと的確なアドバイスが得られると思います。

ki-aaa · Answer

>9000は該当の行数を指定するということですよね

違います。

>最後の行に9000:を入れて、そこにジャンプさせるということですか？つまりは、
>9000:に限らず文字列を指定すれば良いということなのでしょうか？

その通りです。

9000:は行ラベルです。
英数字であれば大丈夫です。　コロン":"で終わります。
また、行頭から(9000:の左にスペースがあったらだめだということ)書きます。

ki-aaa · Answer

エラーがでたら、Sub Spec3()の処理をスキップしたいのでしょか。

でしたら、こうしたら如何でしょう。

Sub Spec3()
On Error GoTo 9000
　・
　・
9000:
End Sub

imogasi · Answer

何をやろうとしているのか、書いてないので判らないが
想像で、あるブック内の全シートを対象に何かをやるなら下記をヒントにすれば簡単ですよ。
存在するものを処理するので見つからないがあり得ない。
Sub test01()
Dim sh As Worksheet
For Each sh In Worksheets
MsgBox sh.Name 'ここに「sh.ＸＸＸ」を使った処理ルーチンが来る
Next
End Sub
ｓｐｅｃ３（）でＤｏＵｎｔｉｌで繰り回していますが変化するのは何なのでしょう。シートでしょうか。
Selection.Value = "" 
のＳｅｌｅｃｔｉｏｎとの関係が良く判りません。
Dim s_A As String の変数ｓ＿Ａはグローバルになっていますが、このケースではローカルでも良いと思います。

papayuka · Answer

変数 s_A が何に使われているか不明ですし、全体がどんな処理かもわかりません。

 s_A を1ずつ足して、Spec3とSpec4を呼んでいるだけなら、
s_A はプライベートで宣言してループすれば良いだけに思いますが、、、

ＥｘｃｅｌのVBAでエラーになるのですが

#1です。

#1です。

この回答への補足

>9000は該当の行数を指定するということですよね

エラーがでたら、Sub Spec3()の処理をスキップしたいのでしょか。

何をやろうとしているのか、書いてないので判らないが

変数 s_A が何に使われているか不明ですし、全体がどんな処理かもわかりません。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング