我正在编写一个宏,我从第一个文件中复制并粘贴内容并将其粘贴到第二个文件中。我的代码包括打开第一个文件,删除必要的行,复制它然后打开第二个文件以粘贴它。我可以确认我的文件路径和名称是正确的,因为代码适用于第一个文件。
Dim X As Long
Dim RawA As Variant
Dim SheetA As Variant
Dim Aging1 As Variant
Dim Sheet1 As Variant
Dim TypeA As Variant
Dim Type1 As Variant
Application.DisplayAlerts = False
Application.ScreenUpdating = False
RawA = Range("A2").Value
SheetA = Range("B2").Value
Aging1 = Range("A3").Value
Sheet1 = Range("B3").Value
TypeA = Range("D2").Value
Type1 = Range("D3").Value
Workbooks.Open "" & RawA & "" & TypeA & "", UpdateLinks:=False, ReadOnly:=True
Sheets("" & SheetA & "").Activate
Range("G500").Value = "Done"
Do
If Range("G1").Offset(X, 0).Value = "" Then
Range("G1").Offset(X, 0).Select
Selection.EntireRow.Delete
Else
X = X + 1
End If
Loop Until Range("G1").Offset(X, 0).Value = "Done"
Cells.Select
Selection.Copy
Workbooks.Open "" & Aging1 & "" & Type1 & "", UpdateLinks:=False, ReadOnly:=False
Workbooks("" & Aging1 & "" & Type1 & "").Sheets("" & Sheet1 & "").Range("A1").PasteSpecial Paste:=xlPasteValues
End Sub
我非常确定我的粘贴选项也会出错。所以,如果有人也可以提供帮助。非常感谢!