Excelコピー/貼り付け後にデータソースワークブックを開くデータマクロを実行しました

Question

VBAは非常に新しいです。 8つのダイナミックな「個別」ワークブックのマクロを使用してデータを自動的にコピーしようとしていますが、個々のブックがさまざまなチームメンバーによって継続的に更新されるため、

私は以下のマクロはうまく動作しますが、後でExcelのワークブックを開いておくと、8つの個別ファイルでは機能しません。

マイクロコードの実行後にデータソースファイルを自動的に閉じるためにどのようなコードを追加できますか？ End Subが機能しなくなり、エラー9を発行する前に、コードの最後に「閉じる」をクリックします。

（ "C：¥Users¥MIRAR¥Desktop¥AD HOC¥DEMO FILE - WIP¥SHARNY.xlsx"

コード以下は1つのタブ上の8つのブックのうちの1つから過去のデータをコピーすることです。

非常に高く評価されました！

Sub CopyingRange() 
Workbooks.Open "C:\Users\MIRAR\Desktop\AD HOC\DEMO FILE - WIP\SHARNY.xlsx" 

Dim CopyFromBook As Workbook 
Dim CopyToWbk As Workbook 
Dim ShToCopy As Worksheet 

Set CopyFromBook = Workbooks("SHARNY.xlsx") 
Set ShToCopy = CopyFromBook.Worksheets("Sheet1") 
Set CopyToWbk = Workbooks("Consolidated Tracker File.xlsx") 

Workbooks("C:\Users\MIRAR\Desktop\AD HOC\DEMO FILE - WIP\SHARNY.xlsx").Close 

End Sub 

Answer 1

短い答えは次のとおりです。

Workbooks("SHARNY.xlsx").Close

より良い答えが直接ワークブックを指す変数で動作するようです：

Sub CopyingRange() 
    Dim CopyFromBook As Workbook 
    Dim CopyToWbk As Workbook 
    Dim ShToCopy As Worksheet 

    Set CopyFromBook = Workbooks.Open("C:\Users\MIRAR\Desktop\AD HOC\DEMO FILE - WIP\SHARNY.xlsx") 
    Set ShToCopy = CopyFromBook.Worksheets("Sheet1") 
    Set CopyToWbk = Workbooks("Consolidated Tracker File.xlsx") 

    CopyFromBook.Close 
End Sub 

Answer 2

ワークブックの変数に代入していることを使用します閉じる（または他の操作）。

Sub CopyingRange() 

Dim CopyFromBook As Workbook 
Dim CopyToWbk As Workbook 
Dim ShToCopy As Worksheet 

Set CopyFromBook = Workbooks.Open("C:\Users\MIRAR\Desktop\AD HOC\DEMO FILE - WIP\SHARNY.xlsx") 
Set ShToCopy = CopyFromBook.Worksheets("Sheet1") 
Set CopyToWbk = Workbooks("Consolidated Tracker File.xlsx") 

CopyFromBook.Close 

End Sub