主页 / computer / 问题 / 1420219
Accepted
gee
Asked: 2019-04-02 18:07:26 +0800 CST

从不同的工作簿vba复制不同的工作表

  • 772

我有一个宏，可以复制工作表然后将其另存为新的。

但是，我想复制两个工作表然后将它们合并为一个，但工作表位于两个不同的工作簿中。

例如：workbook1 包含 2 个工作表（worksheet1、worksheet2） workbook2 包含 3 个工作表（worksheet1、worksheet2、worksheet3）

我想从工作簿 1 复制工作表 1，从工作簿 2 复制工作表 1。然后将它们组合起来，因为它们都具有相同的表格格式。

我不知道怎么办。我只知道如何从同一个工作簿中复制多个工作表。我也知道如何组合它们，我唯一的问题是如何从不同的工作簿（工作簿 1 和工作簿 2）复制工作表 1

我只有用于复制数据的简单代码。顺便说一句，这是我的代码：

saveFolder = "C:\Document\Macro"

path = "C:\Document\Workbook1"
fname = "Sample Account.xlsx"

Workbooks.Open path & fname
Sheets("Account1").Copy

ActiveWorkbook.SaveAs saveFolder & "\Conso.xlsx", FileFormat:=51
Workbooks(fname).Close

另一个文件位于文件夹Workbook2中，文件名是Additional Accounts

microsoft-excel vba

1 个回答

  1. Best Answer

    此 VBA（宏）代码将帮助您从源工作簿复制您选择的工作表以合并到活动簿中。

    该代码是交互式的而不是标准的，这使得代码具有通用性。

    Sub CombineSheets()
    Dim sPath As String
    Dim sFname As String
    Dim wBk As Workbook
    Dim wSht As Variant

    Application.EnableEvents = False
    Application.ScreenUpdating = False

   sPath = InputBox("Enter File Path Of Source Workbook(s)")

   ChDir sPath

   sFname = InputBox("Enter the Filename")

   sFname = Dir(sPath & "\" & sFname & ".xl*", vbNormal)

   wSht = InputBox("Enter Worksheet Name To Copy")

   Do Until sFname = ""

       Set wBk = Workbooks.Open(sFname)
        Windows(sFname).Activate
        Sheets(wSht).Copy Before:=ThisWorkbook.Sheets(1)
        wBk.Close False
        sFname = Dir()
    Loop
    ActiveWorkbook.Save
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

    这个怎么运作：

    • 将此代码作为标准模块复制并粘贴到主工作簿（您要在其中合并工作表）。
    • 运行宏。
    • 首先，它要求提供源工作簿的路径。

    注意，最好复制并粘贴文件路径。

    • 然后询问工作簿的名称，您也可以使用通配符，或者工作簿的名称，如 Myworkbook.

    • 最后它要求复制工作表名称。

    • 0

相关问题