Как написать макрос, чтобы открыть файл Excel и вставить данные в файл, содержащий макрос?

У меня есть два файла Excel. Один из которых содержит макрос. Другой — это общая книга. У меня уже есть код. Он открывает общий файл woorkbook и выбирает все данные на указанной вкладке.

Единственная проблема в том, что я не уверен, как написать код, который будет автоматически вставлять эти данные в файл с макросом?

  Sub  ImportData_Click () 'откройте исходную книгу и выберите исходный листWorkbooks.Open Filename: = "Test.xlsm" Sheets ("Make"). Select' скопируйте исходный rangeSheets ("Make"). Range ("A1: Z630")  .SelectSelection.Copy 'выберите текущую книгу и вставьте значения, начиная с U4Sheets ("Make"). SelectSheets ("Make"). Range ("A1: Z630"). SelectSelection.PasteSpecial Paste: = xlValues, Operation: = xlNone,  SkipBlanks: = _False, Transpose: = False 'закрыть исходную книгу Windows ("Test.xlsm"). ActivateActiveWorkbook.CloseEnd Sub  

  ThisWorkbook  .Activate  

должен сделать свое дело. Судя по вашему макросу, вставьте его после «‘выберите текущую книгу и вставьте значения, начинающиеся с U4» комментария.


Вам нужно помнить, откуда вы пришли:

  Sub ImportData_Click ()  Dim rDest As  Range Set rDest = ThisWorkbook.Sheets ("Make"). Range ("A1: Z360") 'откройте исходную книгу и выберите исходный лист Workbooks.Open Filename: = "C:  TestFolder  Test.xlsm" Sheets ("  Make "). Select 'скопировать исходный диапазон Sheets (" Make "). Range (" A1: Z630 "). Select Selection.Copy rDest.PasteSpecial Paste: = xlValues, Operation: = xlNone, SkipBlanks: = _ False, Transpose  : = False ActiveWorkbook.CloseEnd Sub  


Вам нужно помнить, откуда вы пришли:

   Sub ImportData_Click () Dim rDest As Range Set rDest = ThisWorkbook.Sheets ("Make"). Range ("A1: Z360") 'откройте исходную книгу и выберите исходный лист Workbooks.Open Filename: = "  C:  TestFolder  Test.xlsm "Sheets (" Make "). Select 'скопировать исходный диапазон Sheets (" Make "). Range (" A1: Z630 "). Выберите Selection.Copy rDest.PasteSpecial Paste: = xlValues,  Операция: = xlNone, SkipBlanks: = _ False, Transpose: = False ActiveWorkbook.CloseEnd Sub ode> 

  Private Sub CommandButton1_Click () Режим затемнения As StringDim RecordId As IntegerDim sourcewb As  WorkbookDim targetwb As WorkbookDim SourceRowCount As LongDim TargetRowCount As LongDim SrceFile As StringDim TrgtFile As StringDim TitleId As IntegerDim TestPassCount As IntegerDim TestFailCount As IntegerTitleId = 4'TestPassCount = 0'TestataFailCount (Число записей TestPassCount = 0'TestataFailCount  "TestData"). UsedRange.Rows. CountIf (TestDataRowCount  


  Private Sub CommandButton1_Click () Режим затемнения  As StringDim RecordId As IntegerDim sourcewb As WorkbookDim targetwb As WorkbookDim SourceRowCount As LongDim TargetRowCount As LongDim SrceFile As StringDim TrgtFile As StringDim TitleId As IntegerDim TestPassCount As IntegerDim TestFailCount As IntegerTitleIdata число = 0 число записей в TestFailCount = 0  SpreadSheetDim TestDataRowCount As IntegerTestDataRowCount = Worksheets ("TestData"). UsedRange.Rows.CountIf (TestDataRowCount  

Оцените статью
techsly.ru
Добавить комментарий