Vba 根据单元格数据打开工作簿，复制信息，粘贴到activebook中。

我在单元格A1中有一个值，它反映了一个工作编号。我要打开的文件位于：G:\fixtures\（单元格a1值）\purchase list\（targetfile.xls）

打开此文件后，我要将单元格复制到A列到G列中的单元格

然后，我想将复制的数据粘贴到工作簿中我的活动表中的单元格A5：Latter\u PROJECT\u 5\u 15\u 2017.xlsm。此工作簿中的活动工作表的名称将始终更改，因为这些工作表是在上一页输入作业编号时创建的。所以我对WBKDEST有点困惑。线

我对excel VBA的世界非常陌生。如果您能给我一些指导，告诉我为什么我所要做的事情行不通，我们将不胜感激

另外：我从这个社区学到了很多东西，仅仅是阅读旧帖子。谢谢你帮助像我这样的笨蛋

Sub import()
Dim wbkSrc As Workbook, wbkDest As Workbook
Dim myFile As String
Dim Path As String
Dim emptyRow As Long

emptyRow = 1
Application.ScreenUpdating = False
 Application.DisplayAlerts = False

Set wbkDest = Workbooks("LATHE_PROJECT_5_15_2017.xlsm")
Path = "G:\FIXTURES\" & Range("A1").Value & "\purchase lists\"
myFile = Dir(Path & "*.xls??")
Set wbkSrc = Workbooks.Open(Path & myFile)
wbkSrc.Worksheets(1).Range("A1:g100").Copy
wbkDest.Worksheets.ActiveSheet.Cells(a5).PasteSpecial Paste:=xlPasteValues
wbkSrc.Close

End Sub

改变 “wbkDest.Worksheets.ActiveSheet.Cells（a5）.PasteSpecial Paste:=xlPasteValues” 到 “wbkDest.ActiveSheet.Cells（a5）.PasteSpecial Paste:=xlPasteValues”

或

---

“wbkDest.Worksheets（特别是WorksheetName）.Cells（a5）.PasteSpecial Paste:=xlPasteValues”

很抱歉，我是新来的，但找不到任何注释部分是的，这是目标中唯一的.xls文件。我之所以不在这里输入名称，是因为它也是一个变量名：jobnumberpurchaselist.xls。因此，我不想在另一个范围中添加，而是希望保持简单。您在“Worksheets.ActiveSheet”中遇到问题。如果您指定了ActiveSheet，则可以删除工作表。我更改了该部分，代码运行正常………'wbkDest.Worksheets.ActiveSheet.Cells（a5）.PasteSpecial Paste:=xlPasteValues ThisWorkbook.Activate ActiveSheet.Range（“A1”）。选择ActiveSheet。Paste@mrc我的路径出错了。Debug指的是这一行：“Set wbkSrc=Workbooks.Open（Path&myFile）错误是：Runtime“error 1004”@mrc错误1004表示它无法访问g:\fixtures\cella1\purchase list