Файл копирует и вставляет пустые данные (или даже не копирует и не вставляет). Также загружаются долго

Question

может кто-то пожалуйста, скажите мне, почему данные не копирование и вставка (или почему она копирования и вставки пустых данных? Кроме того, есть ли способ ускорить автоматизацию?

Sub GetDataCopyPaste() 

Dim wbTarget As Workbook 'where the data will be pasted 
Dim wbSource As Workbook 'where the data will be copied 
Dim StrName As String 'name of the source sheet 

Application.ScreenUpdating = False 'these statements help performance by disabling the self titled in each, remeber to re-enable at end of code 
Application.DisplayAlerts = False 

Set wbTarget = ActiveWorkbook 'set to the current workbook 
StrName = ActiveSheet.Name 'get active sheetname of workbook 


Set wbSource = Workbooks.Open("C:\Users\jjordan\Desktop\Test Dir\Test File Test\metrics list.xlsx") 'opens Target workbook 

Set wbTarget = Workbooks.Open("C:\Users\jjordan\Desktop\Test Dir\MASTER\Weekly Logbook - 2016.xlsm") 'opens Source workbook 

wbSource.Sheets("IOS").Range("A1:E60").Value = wbTarget.Sheets("Sheet6").Range("A1:E60").Value 'copy & pastes source data onto Target workbook 

wbTarget.Save 'save workbook 

Application.ScreenUpdating = True 
Application.DisplayAlerts = True 

End Sub 

Answer 1

Эта линия назад

wbSource.Sheets("IOS").Range("A1:E60").Value = wbTarget.Sheets("Sheet6").Range("A1:E60").Value 'copy & pastes source data onto Target workbook 

Вам нужно

wbTarget.Sheets("Sheet6").Range("A1:E60") = wbSource.Sheets("IOS").Range("A1:E60").value 

Я просто протестировано и успешно

Option Explicit 

Sub test() 
    Dim myWB As Workbook 
    Set myWB = Workbooks.Open("C:\Users\raystafarian\Downloads\Book3.xlsx") 
    Dim yourWB As Workbook 
    Set yourWB = Workbooks.Open("C:\Users\raystafarian\Downloads\Book2.xlsm") 
    myWB.Sheets("Sheet1").Range("C1:C4").Value = yourWB.Sheets("Sheet1").Range("A1:A4").Value 
End Sub