VBA YesNoCancelが正常に動作しない

Question

次のコードがあり、YesNoCancelオプションは何もしません。私は何を間違えていますか？

Option Explicit 

Sub wwb() 

    'lists each book that's OPEN 
    Dim wb As Workbook, ws As Workbook, wd As Workbook 
    Set wd = ThisWorkbook 
     MsgBox wd.Name 
    Dim output As Integer 
    Dim msgValue 
    For Each wb In Application.Workbooks 
     If wb.Name = wd.Name Then 
      MsgBox "The destination WorkBook is :" & wd.Name 
     Else 
      output = MsgBox("Is " & wb.Name & " your source file to import data?", vbYesNoCancel, "Please confirm source file") 
       If msgValue = vbYes Then 
        MsgBox "test yes" 
       ElseIf msgValue = vbNo Then 
        MsgBox "test No" 
       ElseIf msgValue = vbCancel Then 
        MsgBox "Test cancel" 
       End If 
     End If 
    Next wb 

End Sub 

Answer 1

あなたは `wb`のための` set`を持っていないoutput代わりのmsgValue

output = MsgBox("Is " & wb.Name & " your source file to import data?", vbYesNoCancel, "Please confirm source file") 
     If output = vbYes Then 
      MsgBox "test yes" 
     ElseIf output = vbNo Then 
      MsgBox "test No" 
     ElseIf output = vbCancel Then 
      MsgBox "Test cancel" 
     End If