错误1004.宏代码无法打开第二个文件但可以在第一个文件上运行

时间:2016-09-26 09:55:49

标签: vba excel-vba runtime-error copy-paste excel

我正在编写一个宏,我从第一个文件中复制并粘贴内容并将其粘贴到第二个文件中。我的代码包括打开第一个文件,删除必要的行,复制它然后打开第二个文件以粘贴它。我可以确认我的文件路径和名称是正确的,因为代码适用于第一个文件。

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

我非常确定我的粘贴选项也会出错。所以,如果有人也可以提供帮助。非常感谢!

0 个答案:

没有答案