我有一个运行以下代码的宏,将数据从一个Excel文件复制到另一个Excel文件 . 目前,它正在将数据复制并粘贴到第二个Excel文件中 . 这意味着它会覆盖第二个Excel文件中的任何数据 .
我希望它插入复制的单元格而不是粘贴工作簿中已有的数据 . 我该如何编辑第27行才能使其工作?
我想我需要使用以下代码,但我不知道如何将它应用于我的原始代码 .
InsertCopiedCells
这是粘贴数据的原始代码 .
Const strFile As String = "E:\My Documents\file2\file\MonthlyReports\Data\file1.xlsx"
'Add the file location
Dim wbCopyTo As Workbook
Dim wsCopyTo As Worksheet
Dim wbCopyFrom As Workbook
Dim wsCopyFrom As Worksheet
Set wbCopyTo = ActiveWorkbook
Set wsCopyTo = ActiveSheet
'-------------------------------------------------------------
'Open file with data to be copied
Set wbCopyFrom = Workbooks.Open(strFile)
Set wsCopyFrom = wbCopyFrom.Worksheets(1)
'--------------------------------------------------------------
'Copy Range
wsCopyFrom.Range("A2:AA5000").Copy
wsCopyTo.Range("A2").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
1 回答
更换
至