VBAでExcelプロンプトでエラーをスローする方法

Question

2つの別のブックで特定のシート名の値を検索するコードがあります。

最初のワークブックにシートがない場合は、次のプロンプトが表示されず、エラーをキャンセル/スローし、エラー処理を使用して2番目のスプレッドシートに移動します。これはどうすればいいですか？

現在、私はこれを達成するために、このコードを使用しています：

fFormString1 = "'" & wkBookRef1 & firstShtName & "'!$L$6/1000" 
fFormString2 = "'" & wkBookRef2 & firstShtName & "'!$L$6/1000" 
Application.DisplayAlerts = False 'Does nothing to the prompt 
On Error GoTo tryTwo 'Following only throws error when prompt is canceled 
    ThisWorkbook.Sheets("Place").Range("E53").Formula = "=" & fFormString1 
    GoTo endTen 

tryTwo: 
    ThisWorkbook.Sheets("Place").Range("E53").Formula = "=IFERROR(" & fFormString2 & ","""")" 
    On Error Resume Next 
endTen: 
Application.DisplayAlerts = True 'Does nothing to the prompt 

注：私は、スプレッドシートは、理想的に閉じた状態でこれを行うことを望みます。または、視覚的に私のクライアントの操作の速度とスムーズさを向上させるために存在しません。

Answer 1

トーマスの回答（全額返済予定）から借りています。しかし、これはあなたのために働かなかったようです。

ExecuteExcel4Macroを使用しますが、値は変数valに帰属します。次に、これがError(2023)を探しているエラーかどうかを確認します。

見つけてください以下のコード：

'Check if the sheet exists in the workbook, used to check which forecast file one should look in 
Function ExtSheetExists(formString) As Boolean 'Form string is a formula string with both the worksheet and the workbook 
    Dim val As Variant 
    'Tries to execute formula and throws error if it doesn't exist 
    On Error Resume Next 
    val = ExecuteExcel4Macro(formString) 
    ExtSheetExists = (val <> Error(2023)) 'Returns False if the sheet does not exist based on Error 2023 
    On Error GoTo 0 
End Function 

Answer 2

ExecuteExcel4Macroは、クローズドブックから値を返します。ワークシートが存在しない場合は、エラーが発生します。1004 'A formula in this worksheet contains one or more invalid references.

ExternalWorksheetExistsワークシートが存在するかどうかテストします。

Function ExternalWorksheetExists(FilePath As String, FileName As String, WorksheetName As String) As Boolean 

    If Right(FilePath, 1) <> "\" Then FilePath = FilePath & "\" 

    On Error Resume Next 
    Call ExecuteExcel4Macro("'" & FilePath & "[" & FileName & "]" & WorksheetName & "'!R3C3") 
    ExternalWorksheetExists = Err.Number = 0 
    On Error GoTo 0 

End Function 

ExecuteExcel4Macroを使用する場合は、すべての参照がR1C1文字列として指定する必要があります。有効な文字列の例を次に示します。

ExecuteExcel4Macro("'C:\Users\tinzina\Documents\[Book1.xlsm]Sheet1'!R6C12")