Question

我在单元格 A1 中有一个反映作业编号的值。我要打开的文件位于： G：\ fixtures \（单元格a1值）\购买列表\（targetfile.xls）。

这个文件打开后，我想复制A-to-G列中的单元格。

然后，我想将此复制的数据粘贴到工作簿中 LATHE_PROJECT_5_15_2017.xlsm 的Activesheet中的单元格 A5 中。此工作簿中的此活动工作表名称将始终更改，因为在上一页上输入作业编号时会创建这些工作表。所以我对 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

Answer 1

变化 “wbkDest.Worksheets.ActiveSheet.Cells（a5）.PasteSpecial Paste：= xlPasteValues” 至 “wbkDest.ActiveSheet.Cells（a5）.PasteSpecial Paste：= xlPasteValues”

或

“wbkDest.Worksheets（ParticularWorksheetName）.Cells（a5）.PasteSpecial Paste：= xlPasteValues”

打开基于单元格数据的工作簿，复制信息，粘贴到活动工具簿中。

1 个答案: