開いているファイルAのA1を、転記先のフォルダ開いてファイルB選択。選択したファイルBのA1に転記したいです。
発生している問題・エラーメッセージ
エラー13 型が一致しません
該当のソースコード
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
で、しつもんはなんでしょうか
回答2件