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

嗨，我是新来的论坛，需要一点帮助，我一直在试图从一个工作簿复制数据到主工作簿，其中包含表复制数据应该go.I在这里的另一个excel论坛上发帖，http://www.excelforum.com/excel-programming-vba-macros/977613-copy-data-from-changing-range-in-on-workbook-to-another.html 将数据从一个工作簿复制到另一个工作簿与表

但代码无法正常工作，无论我尝试什么，我都无法弄清楚，但有一天我遇到了一个帖子，在答案中给出的代码是只是完美的帖子是位于这里VBA copying data from one workbook to another

这项工作只是完美只有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

来源

2014-01-09 IanMc

欢迎来到SO。 :)只是要清楚，是你指的是一个“命名表”，即表。由功能区中的“格式化为表格”创建？ – Manhattan

哎呀对不起，在答复回答错误而不是评论使用我的手机最后nite回复:(所以回答正确是它是一个命名的表格格式创建，你可以在功能区中看到。表的名称是相同的页面名称1月 – IanMc

好吧我想通过如何让主工作簿保存和关闭，我仍然无法得到的数据复制过来开始在第2行任何人？ – IanMc

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

来源

2014-01-10 04:57:32 IanMc

你可以请在你的问题上添加评论，不要将它作为回答发布:)。欢迎来到SO。 – L42

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

回答

相关问题