Excel VBA - 同じフォルダ内の閉じたブックからインポート

Question

同じフォルダ内の閉じたブックから一部のデータをアクティブブックにインポートしようとしています。私は、エラーのハイライトThisWorkbook.ChampSpecific1.Range（ChampSpecific1パート）「メソッドまたはデータメンバが見つかりません」を取得するマクロを実行するとこれは私がこれまで持っているもの

Sub Import_Data() 

Dim rng As Range 
Dim WB2 As Workbook 
Dim FName As String 
Dim ChampSpecific1 As Worksheet 
Set ChampSpecific1 = Sheets("Summary-Champion Specific") 

FName = Application.ActiveWorkbook.Path + "\AIMS_Report_w" & Format((WorksheetFunction.WeekNum(Now) - 1), "00") 
Set WB2 = Workbooks.Open(Filename:=FName) 

ThisWorkbook.ChampSpecific1.Range("L3:O6").Value = WB2.Worksheets(2).Range("M3:P6").Value 

WB2.Close 

End Sub 

です。ワークシート「サマリー・チャンピオン・スペシャル」を取り上げるべきでしょうか？それがすでに設定されていますよう

よろしく

Answer 1

ThisWorkbook.ChampSpecific1.Range("L3:O6").ValueからThisWorkbook.を削除し、それがこのように動作するはずです：混乱取得から物事を保つためにSourceShtとTargetShtを使用して、これを（試してみてください。

ThisWorkbook.ChampSpecific1.Range("L3:O6")

を問題が来る、あなたがすでに持っているので、 ChampSpecific1ワークシートにセットして、彼はParentを知っているので、新しいParentを参照しようとすると、それは好きではありません。

Parentを入手するには、エラーの前に次のように書いてください。Debug.Print ChampSpecific1.Parent.Name

Answer 2

あなたがThisWorkbook修飾子を必要としません。

Sub Import_Data() 
Dim SourceSht As Worksheet 
Dim TargetSht As Worksheet 
Dim FName As String 

FName = Application.ActiveWorkbook.Path + "\AIMS_Report_w" & Format((WorksheetFunction.WeekNum(Now) - 1), "00") 

Set SourceSht = Workbooks.Open(Filename:=FName).Worksheets(2) 
Set TargetSht = Sheets("Summary-Champion Specific") 

TargetSht.Range("L3:O6").Value = SourceSht.Range("M3:P6").Value 

End Sub