时间戳

首页 > 解决方案 > 如何将一个工作表从打开的工作簿复制到关闭的工作簿？

excel - 如何将一个工作表从打开的工作簿复制到关闭的工作簿？

问题描述

我有一个工作簿，它打开用户扫描条形码的表单，然后表单关闭并关闭 Excel。

我想在打开工作簿（scanner.xlsm）关闭之前将一张工作表（“STOREDATA”）复制到同一目录中的关闭工作簿（REPORT.xlsx）。只要它关闭它，它是否打开关闭的工作簿都没有关系。

标签： excelvba

解决方案

这将是一项非常简单的任务。

打开工作簿，制作副本，保存，然后关闭它。

Sub copySheetToReport()

    With Application.Workbooks.Open("REPORT.xlsx")

        ThisWorkbook.Worksheets("STOREDATA").Copy after:=.Sheets(.Sheets.Count)
        .Save
        .Close

     End With

End Sub

这会将复制的工作表放在最后。

推荐阅读