Vba 文件复制和粘贴空白数据（甚至不复制和粘贴）。而且装载时间长

有人能告诉我为什么数据没有复制和粘贴（或者为什么它复制和粘贴空白数据？还有什么方法可以加快自动化

 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

这条线倒了

 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

---

事实上，我以前交换过它。它仍然不起作用。我会再次更改它并尝试一下。请确保在源代码中使用.value，并确保目标正确。逐步执行并确保它们处于打开状态。如果您需要在变量中输入工作表的名称，则从未使用过该变量。是否有错误？@JamesJordan it's非常简单的代码-如果它不起作用，则说明您引用了错误的内容，或者在启动代码时激活了错误的工作簿。我同意你们所有人的看法。它看起来非常简单，但有一些奇怪的原因。数据正在粘贴空白单元格/或没有处理/粘贴。@Raystafarian我完全尝试了您的代码。我只得到了空白单元格@james在目标单元格中放置了一些内容，然后查看它们是否被覆盖-我怀疑它们是否被覆盖，这意味着什么都没有发生，没有传输空格。