复制和粘贴值 | 复制和粘贴值

本文介绍了复制和粘贴值的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！

问题描述

Sub OpenFile（）

Sub OpenFile()

推荐答案

Dim targetBook As Workbook
Set targetBook = Workbooks("C:\temp\THE WARE_TOYOTA.xlsm")

Workbooks("TOYOTA2017.xlsx").Worksheets("Page 3").Range("J59").Copy _
    Workbooks(targetBook).Worksheets("1- Data Entry Sheet").Range("F22")

问候，

Ashidacchi

Regards,
Ashidacchi

这篇关于复制和粘贴值的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！