VBAでファイルを開いて転記したい

Question

開いているファイルAのA1を、転記先のフォルダ開いてファイルB選択。選択したファイルBのA1に転記したいです。

発生している問題・エラーメッセージ

エラー１３　型が一致しません

該当のソースコード

Sub ImportSelectedFile()
    Dim wb As Workbook
    Set wb = ThisWorkbook
    
    Dim filePath As String
    filePath = Application.GetOpenFilename
    
    If filePath = False Then
        MsgBox "ファイルが選択されていません。"
        Exit Sub
    End If
    
    Dim sourceWB As Workbook
    Set sourceWB = Workbooks.Open(filePath)
    
    Dim sourceSheet As Worksheet
    Set sourceSheet = sourceWB.Sheets(1)
    
    wb.Sheets(1).Range("A1").Copy
    sourceSheet.Range("A1").PasteSpecial xlPasteValues
    
    sourceWB.Close False
    wb.Save
End Sub

Comments

[y_waiwai]

で、しつもんはなんでしょうか

Answer 1

エラーの原因はtatsu99さんの通り返り値判定を"False"にしていないことです。

そのうえでもう一点

開いているファイルAのA1を、転記先のフォルダ開いてファイルB選択。選択したファイルBのA1に転記したいです。

つまり、「GetOpenfilenameで開いたフォルダのほうを更新したい」わけですよね？
それならば保存するのはthisworkbookじゃなくてopenした方でしょう。
以下のように修正してください。

    wb.Sheets(1).Range("A1").Copy
    sourceSheet.Range("A1").PasteSpecial xlPasteValues
    
    sourceWB.Close SaveChanges:=True

Answer 2

    If filePath = False Then
を
    If filePath = "False" Then
にしてください。