Filedialogエラー：型が一致しません

Question

If-Else関数を追加しなかった場合、私のプログラムは動作します。If Partが動作すると、メッセージボックスが実行されます。しかし、他の部分はうまくいきませんでした...考えられません...エラーは型の不一致で、おそらくこの行から始まります：Set wb2 = Workbooks.Open（FileToOpen） あなたの助けを前もってありがとう:)

Dim FileToOpen As String 
Dim wb2 As Workbook 
Dim sheet As Worksheet 
FileToOpen = Application.GetOpenFilename _ 
       (Title:="Please choose a Excel File to Open", _ 
       FileFilter:="Excel Files *.xlsx(*.xlsx),") 
If FileToOpen = False Then 
    MsgBox "No file selected", vbExclamation, "Sorry!" 
    Exit Sub 
Else 
    Set wb2 = Workbooks.Open(FileToOpen) 
    Set sheet = wb2.Worksheets(1) 
    sheet.UsedRange.Copy Destination:=ThisWorkbook.Worksheets(2).range("A1") 
    Sheet1.range("B30").Value = FileToOpen 
    Workbooks(2).Close 
End If 

Answer 1

最初のブランチにはExit Subがあるため、Elseは冗長です。インデントレベルを1つ下げることができます。

問題はIf FileToOpen = FalseリテラルBooleanでStringを比較することで、VBA（当然）が、これは評価することになっている方法を知らない：ことは型の不一致エラーを投げているものです。

GetOpenFileNameStringあるVariantを返し、その後ダイアログがキャンセルされたときに、ファイルを選択するか、またはBoolean - タイプの代わりに、値を検証し、それ故に：

Dim path As Variant 
path = Application.GetOpenFilename(Title:="Please choose a Excel File to Open", 
            FileFilter:="Excel Files *.xlsx(*.xlsx),") 

'path is Variant/Boolean if cancelled, Variant/String if valid. 
If VarType(path) = vbBoolean Then 
    MsgBox "No file selected", vbExclamation, "Sorry!" 
    Exit Sub 
End If 

Debug.Assert VarType(path) = vbString 
With Application.Workbooks.Open(path) 
    .Worksheets(1).UsedRange.Copy ThisWorkbook.Worksheets(2).range("A1") 
    Sheet1.range("B30").Value = path 
    .Close 
End With