使用表将数据从一个工作簿复制到另一个工作簿

Question

嗨，我是新来论坛的人，需要一些帮助，我一直在尝试将数据从一个工作簿复制到主工作簿，该工作簿包含应复制数据的表格。我在另一个excel论坛中发布了帖子， http：// www .excelforum.com / excel-programming-vba-macros / 977613-copy-data-from-changing-range-in-on-on-workbook-to-another.html

但是代码无法正常工作，无论我如何尝试，我都无法弄清楚，但是有一天，我在这里遇到了一个帖子，答案中给出的代码非常完美，该帖子位于此处VBA从一个工作簿复制数据到另一个

这项工作几乎完美，只有2个小问题，我无法上班

1. 我无法获取复制到主数据库以进入第2行的数据，就像代码认为其中存在数据是因为其表一样？
2. 我无法让主人保存并关闭

看到下面的代码，我希望我能正确输入代码，并且不会破坏任何论坛规则

谢谢你的帮助

    Sub SendToMaster()
    'this macro goes IN the sender workbook
    Dim wsSEND As Worksheet
    Dim wbMASTER As Workbook
    Dim NextRow As Long, LastRow As Long

    Set wsSEND = ThisWorkbook.Sheets("january")
    LastRow = wsSEND.Range("A" & Rows.Count).End(xlUp).Row

    Set wbMASTER = Workbooks.Open("C:\Documents and Settings\Ian\My Documents\excel\Disk_Inventory_V3_master.xlsm")

        With wbMASTER.Sheets("january")
            NextRow = .Range("A" & .Rows.Count).End(xlUp).Row + 1
            wsSEND.Range("A2:E" & LastRow).Copy
            .Range("A" & NextRow).PasteSpecial xlPasteValues
            .Range("A" & NextRow).PasteSpecial xlPasteFormats
        End With

        wsSEND.Range("A2:E200").ClearContents
        ThisWorkbook.Save
        ThisWorkbook.Close


        wbMASTER.Close True
         'save and close the master

End Sub

Answer 1

是的，它是按格式创建的命名表，可以在功能区中看到。 表的名称与一月份的页面名称相同