2014-01-09 234 views
0

嗨,我是新來的論壇,需要一點幫助,我一直在試圖從一個工作簿複製數據到主工作簿,其中包含表複製數據應該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個小問題,它我不能去工作

  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 
+0

歡迎來到SO。 :)只是要清楚,是你指的是一個「命名錶」,即表。由功能區中的「格式化爲表格」創建? – Manhattan

+0

哎呀對不起,在答覆回答錯誤而不是評論使用我的手機最後nite回覆:(所以回答正確是它是一個命名的表格格式創建,你可以在功能區中看到。表的名稱是相同的頁面名稱1月 – IanMc

+0

好吧我想通過如何讓主工作簿保存和關閉,我仍然無法得到的數據複製過來開始在第2行任何人? – IanMc

回答

0

是它是由格式創建的命名錶格,您可以在功能區中看到。表格的名稱與頁面名稱相同

+0

你可以請在你的問題上添加評論,不要將它作爲回答發佈:)。歡迎來到SO。 – L42

相關問題