2014-01-09 11 views
0

Привет, я новичок в форуме и нуждаюсь в небольшой помощи, я пытаюсь скопировать данные из одной книги в основную книгу, в которой содержатся таблицы, в которых скопированные данные должны идти. у меня есть сообщение на другом форуме 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

oops извините за ошибку в ответе с ответом, а не с комментариями, используемым моим сотовым телефоном. Последний ответ для ответа :(так что правильно ответить. Да, это именованная таблица, созданная по формату, и вы можете видеть в ленте. то же, что и название страницы январь – IanMc

+0

ok Я понял, как получить основную книгу, чтобы сохранить и закрыть, я до сих пор не могу получить данные, скопированные для начала в строке 2, кто-нибудь? – IanMc

ответ

0

Да это это именованная таблица, созданная по формату, и вы можете видеть ее в ленте. Название таблицы совпадает с названием страницы январь

+0

вы можете добавьте комментарий к своему вопросу. Не публикуйте его как ответ :). И добро пожаловать в SO. – L42

Смежные вопросы