2

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

4

1 に答える 1

3

これは、両方のファイルが開いていて、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
于 2012-07-03T15:04:27.313 に答える