「オブジェクト変数または with ブロック変数が設定されていません」となってしまいます。

Question

コードが完成しました。
シートに作った【開始ボタン】からはエラーなく、処理ができるのですが、、、
Microsoft Visual Vasic for Applicationsの「▶」ボタンからでは、
**【オブジェクト変数または with ブロック変数が設定されていません】**となってエラーになり、処理ができません。

上記文言で色々と解決方法を探ったのですが、難しくて、理解ができません。
また、エラーが起きた際に出る黄色のマークもこの場合は出ないので、どこがいけないのかも検討もつかず、困っています。

もし分かりましたらご教授頂けますと幸いです。

Option Explicit
'グローバル宣言-------------------------------
Public i As Long
Public j As Long

Public ss As String
Public sss As String
Public str As String
Public msg As String
Public fileName As String

Public wb As Workbook
Public ws As Worksheet
Public Ws_list00  As Worksheet
Public Ws_list01  As Worksheet
Public Ws_list02  As Worksheet


Sub All()
  Application.ScreenUpdating = False
  
 'バックアップを取る
   Set wb = Workbooks.Open(ThisWorkbook.Path & "\表.xlsx")
    fileName = ThisWorkbook.Path & "/バックアップ/" & _
       "表_バックアップ" & Format(Now(), "yyyy-mm-dd-hh-mm-ss") & "：バックアップ" & ".xlsx"
   wb.SaveAs fileName
    wb.Close
  
   
'作業をする
   Workbooks.Open ThisWorkbook.Path & "\表.xlsx"
   Workbooks.Open ThisWorkbook.Path & "\list01.csv"
   Workbooks.Open ThisWorkbook.Path & "\list02.csv"
   Set Ws_list02 = Workbooks("list02.csv").Worksheets("list02")
   Set Ws_list01 = Workbooks("list01.csv").Worksheets("list01")
   Set Ws_list00 = Workbooks("表.xlsx").Worksheets("sheet1")
   Call Sheet2.list01_works
   Call Sheet2.list02_works
   
   'ブックを閉じる
   Application.DisplayAlerts = False
   Workbooks("表1.csv").Close
   Workbooks("表2.csv").Close
   Workbooks("表.xlsx").Save
   Application.DisplayAlerts = True
  End Sub

別のシート（Sheet2）

Option Explicit
'グローバル宣言-------------------------------
Public i As Long
Public j As Long

Public ss As String
Public sss As String
Public str As String
Public msg As String
Public fileName As String

Public wb As Workbook
Public ws As Worksheet
Public Ws_list00  As Worksheet
Public Ws_list01  As Worksheet
Public Ws_list02  As Worksheet


'list01_works
Sub list01_works()
  Application.ScreenUpdating = False
  
    
 '作業をする
   Workbooks.Open ThisWorkbook.Path & "\表.xlsx"
   Workbooks.Open ThisWorkbook.Path & "\list01_works.csv"
   Set Ws_list01 = Workbooks("list01_works.csv").Worksheets("list01_works")
   Set Ws_list00 = Workbooks("表.xlsx").Worksheets("sheet01")
   Call list01
      
  'ブックを閉じる
   Application.DisplayAlerts = False
   Workbooks("list01_works.csv").Close
   Workbooks("表.xlsx").Save
   Workbooks("表.xlsx").Close
   Application.DisplayAlerts = True
  
  Application.ScreenUpdating = True
End Sub




'list02_works
Sub list02_works()
  Application.ScreenUpdating = False
 
 '作業をする
   Workbooks.Open ThisWorkbook.Path & "\表.xlsx"
   Workbooks.Open ThisWorkbook.Path & "\list02.csv"
   Set Ws_list02 = Workbooks("list02.csv").Worksheets("list02")
   Set Ws_list00 = Workbooks("表.xlsx").Worksheets("sheet01")
   Call list02

 'ブックを閉じる
   Application.DisplayAlerts = False
   Workbooks("list02.csv").Close
   Workbooks("表.xlsx").Save
   Workbooks("表.xlsx").Close
   Application.DisplayAlerts = True
  
  Application.ScreenUpdating = True
End Sub








'list01
Sub list01()


        For i = 50 To 785
        For j = 1 To Ws_list01.Range("A" & Rows.Count).End(xlUp).Row
        
                                                              sss = Ws_list00.Range("V" & i).Value  ' 確認用
                                                              ss = Ws_list01.Range("A" & j).Value   ' 確認用
        If Ws_list00.Range("V" & i).Value = _
        Ws_Ws_list01.Range("A" & j).Value Then
                   
 
         Ws_list01.Range("B" & j).Copy
         Ws_list00.Range("W" & i).PasteSpecial _
                            Paste:=xlPasteValues, _
                            Operation:=xlNone, _
                            SkipBlanks:=False, _
                            Transpose:=False
                                                 
    
                
                Exit For
            End If
        Next j
    Next i
  
End Sub

Comments

[otn]

エラーメッセージを全文載せてください。
あと、コードが見づらいので、無意味な空行を削除してください。

[sinzou]

Sub All()　と
別のシート（Sheet2）　は
同じ　.xlsmファイルですか？

Workbooks.Openが多いような

Answer 1

「開始ボタン」は特定のプロシージャを実行するようにしていると思いますが、「▶」からの実行はカーソル位置のプロシージャが実行されると思います。

あと複数のプロシージャが存在している場合は、プロシージャを一つ残して、それ以外をコメントアウトすると問題が特定しやすくなります。

また、実行したいプロシージャ内にカーソルを置き、[F8]で一行ずつステップ実行するとデバッグしやすくなります。

Answer 2

こんにちは。よろしくおねがいいたします。
まず、お示しのコードがすごくわかりにくいのですが、

質問１：コードをシートモジュールに書いているのは、なにか理由があるのですか？
分けたモジュールは標準モジュールにひとつにまとめて書いてもいいと思いました。

質問２：バックアップを作る部分で、ファイルパスの部分がバックスラッシュでなくスラッシュになっているのは、単なるタイプミス？

質問３：メインのプログラムで"表.xlsx"をオープンして、そのあとコールしているサブプログラムのほうでまた"表.xlsx"をオープンしているようですが・・ここで落ちているのでは？

質問４：表.xlsxのシートの名前がsheet1だったりsheet01だったりしますが・・これも単なるタイプミス？

以下のコードは、もろもろの部分を整理して簡略化してみたものなのですが・・
こういう理解であっていますか？
（かなり簡略化しましたが、これはこれで単独で動きます）

Option Explicit

'グローバル宣言-------------------------------
Public i As Long
Public j As Long

Public fileName As String

Public wb As Workbook
Public ws As Worksheet
Public Ws_list00  As Worksheet
Public Ws_list01  As Worksheet
Public Ws_list02  As Worksheet

Sub All()
'これは、list01.csvとlist02.csvで、表.xlsxを更新するプログラム
'（そのうち、list01.csvの部分だけが以下のプログラム）

'list01.csvのA1セルの値　が　表.xlsxのV50セルの値が同じとき、
'表.xlsxのW50セルにlist01.csvのB1セルの値をセットする
'以下、下にシフトしながら、表.xlsxのすべての行について更新していく

'ScreenUpdatingは省略しました

'表.xlsxのバックアップコピーを作る部分も省略しました

'作業をする
   Workbooks.Open "表.xlsx"
   Workbooks.Open "list01.csv"
   Workbooks.Open "list02.csv"

   Set Ws_list00 = Workbooks("表.xlsx").Worksheets("sheet1")
   Set Ws_list01 = Workbooks("list01.csv").Worksheets("list01")
   Set Ws_list02 = Workbooks("list02.csv").Worksheets("list02")

'作業をする
'念のため、このWs_list01をセレクトしています
Ws_List01.select

For i = 50 To 786
        For j = 1 To Ws_list01.Range("A" & Rows.Count).End(xlUp).Row
                If Ws_list00.Range("V" & i).Value = Ws_list01.Range("A" & j).Value Then
                        Ws_list00.Range("W" & i) = Ws_list01.Range("B" & j)
                        Exit For
                End If
        Next j
Next i

End Sub

わかりにくいかもしれませんね・・・またお声掛けください！

Answer 3

グローバルな変数を使用する一例＞＞

標準モジュール

Option Explicit

Public gWbk表 As Workbook
Public gWbkList01 As Workbook
Public gWbkList02 As Workbook


Public Sub GetMyObject()
    Dim s As String
    With ThisWorkbook
        Set gWbk表 = Workbooks.Open(.Path & "\表.xlsx")
        Set gWbkList01 = Workbooks.Open(.Path & "\List01.csv")
        Set gWbkList02 = Workbooks.Open(.Path & "\List02.csv")
        s = "\バックアップ\表" & Format(Now, "yyyymmddhhnnss") & ".xlsx"
        gWbk表.SaveCopyAs .Path & s
    End With
End Sub

Public Sub ReleaseMyObject()
    gWbk表.Close True
    gWbkList01.Close False
    gWbkList02.Close False
End Sub

Sheet2モジュール

Option Explicit


Private Sub CommandButton1_Click()
    Module1.GetMyObject

    list01
    list02
    
    Module1.ReleaseMyObject
End Sub

Private Sub list01()
    Dim ws表 As Worksheet: Set ws表 = gWbk表.Worksheets(1)
    Dim rngList01 As Range: Set wsList01 = gWbkList01.Worksheets(1).UsedRange
    Dim c As Range
    Dim ix As Variant
   
    For Each c In ws表.Range("V50:V785")
        ix = Application.Match(c, wsList01.UsedRange.Columns("A"), 0)
        If IsError(ix) = False Then
            c.Offset(, 1).Value = rngList01.Cells(ix, "B").Value
        End If
    Next
End Sub

Private Sub list02()
End sub

エラーの原因は定かではありませんが、
オブジェクト型でない変数にオブジェクトを代入しようとしているか、
オブジェクトでないものにプロパティを指定しようとしているか、かと思われます。
変数の宣言が上手く行ってない？