excel - シート上に設計されたカスタマイズされたボタンを介してマクロvbaを使用して、あるxlsのすべてのシートを別のxlsファイルにコピーします

Question

xlsのファイルが1つあり、15枚のデータが含まれているので、すべてのデータを別のxlsファイルにコピーしたいと思います。このようなファイルがたくさんあるので、マクロvbaコーディングを使用してカスタマイズしたいと思います。マクロコードを実行し、すべてのシートを別のファイルにコピーする最初のシートのボタンをデザインしたいのですが、それは可能ですか？私はmsofficeについてもっと知りません。誰かが私にガイドライン、リンク、またはこれに関連するデータを共有しますか？皆さん、ありがとうございました

Answer 1

これは、両方のファイルが開いていて、dept.xlsから実行されていることを前提としています。これは、保存しているファイルのように見えるためです。

Sub emp_to_dept()

Dim wks As Worksheet
    Windows("Employees.xls").Activate
    For Each wks In ActiveWorkbook.Worksheets
    wks.Copy After:=Workbooks("Dept.xls").Sheets(1)
    Next
    Set wks = Nothing

End Sub