Question

嗨，我是新来的论坛，需要一些帮助，我一直在尝试将数据从一个工作簿复制到主工作簿，其中包含复制数据应该去的表。我在另一个excel论坛中有一个帖子，{{ 3}}

但代码无法正常工作，无论我尝试什么我都无法弄清楚，但有一天我在这里发现一个帖子，答案中给出的代码是完美的帖子位于这里{{3 }}

这项工作只是完善了我无法开始工作的两个小问题

我无法获取复制到主服务器的数据进入第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

是的，它是按格式创建的命名表，您可以在功能区中看到。表的名称与页面名称january

相同

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

1 个答案: