将已关闭工作簿的区域复制到特定工作表

Question

我目前正在开发一个VBA脚本来自动生成excel工作表。目标是让代码使用名为Reports的工作表上单元格A2中的文件路径打开文件(文件路径是动态的，使用工作表中的信息形成(，从文件中复制A1:E200范围的数据，并从A1开始将数据粘贴到名为HOURS的工作表的原始工作簿中。目前，我已经到了打开文件的地步，但有一个"；不匹配"；尝试跨复制信息时出错。下面我附上了使用的代码。我希望有人能帮助我理解这个错误！我在闭合部分也遇到了同样的问题。注意：我是VBA的新手，所以如果你能尽可能清楚

Sub Button1_Click()
Call Test
Call Copy_Method
Call CloseWorkbook
End Sub
Sub Test()
Dim strFName As String

strFName = Sheet4.Range("A2").Value
Workbooks.Open Filename:=strFName

End Sub


Sub Copy_Method()
'Copy range to another workbook using Range.Copy Method
Dim wb1 As Workbook
Dim wb2 As Workbook
Dim ws1 As Worksheet
Dim ws2 As Worksheet

Set wb2 = ThisWorkbook
Set ws2 = wb2.Sheets("HOURS")
Set wb1 = ThisWorkbook.Worksheets("Reports").Range("A2")
Set ws1 = wb1.Sheets("Sheet")

ws2.Range("A1:E200") = ws1.Range("A1:E200").Value




End Sub
Sub CloseWorkbook()
Workbooks("venues_theeway_hours_August2020.XLS").Close SaveChanges:=True



End Sub

Answer 1

你试过这个吗？

ws2.Range("A1:E200").Value = ws1.Range("A1:E200").Value

Answer 2

你把代码分成3个子，这让你自己的生活变得非常困难。优于

1. 重命名引用，使它们更容易区分源/目标
2. 将它们放在一起，以便工作簿/工作表在创建时仍可以被引用：

---

如果我误读了您的要求，我很抱歉，我的代码会执行以下操作：

• 读取原始工作簿，工作表"报告"；，文件名的范围A2。

• 将该文件名作为"源"工作簿打开

• 从..复制数据。。

• 该"源"工作簿、工作表"；片材"；，范围A1:E200

• 。。到原始工作簿，表"；小时"；，范围A1:E200

• 然后关闭"源"工作簿，由于您没有进行任何更改，因此未保存该工作簿。

---

Dim wbSource As Workbook
Dim wbDest As Workbook
Dim wsSource As Worksheet
Dim wsDest As Worksheet
Dim strFName As String
Set wbDest = ThisWorkbook
Set wsDest = wbDest.Sheets("HOURS")
strFName = wbDest.Worksheets("Reports").Range("A2").Value
Set wbSource = Workbooks.Open(strFName)
Set wsSource = wbSource.Worksheets("Sheet")
wsDest.Range("A1:E200").Value = wsSource.Range("A1:E200").Value
wbSource.Close SaveChanges:=False

我对您的工作簿是否保存关闭感到有点困惑？也许您真的想关闭未保存的源工作表，并保存您正在添加数据的目标工作表？在这种情况下，您需要将这一行添加到上述代码的末尾。

wbDest.Close SaveChanges:=True