vba 对象不持该属性或方法

lcyan1977

网上找的一段代码，曾经可以用。但现在一运行，就提示“对象不持该属性或方法“

，求高手帮忙。

Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
If Num = 1 Then
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
Next
Else
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Offset(1, 0).Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
Next
End If
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("A1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"
End Sub

无聊的疯子

在那一句有问题呢??你的附件呢??

lcyan1977

Wb.Sheets(G).UsedRange.Offset(1, 0).Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)

lcyan1977

Wb.Sheets(G).UsedRange.Offset(1, 0).Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
就是这一句

lcyan1977

这一段代码是通用的。我曾经用过，能用的。但现在不成了，不知道原因在哪儿。Wb.Sheets(G).UsedRange.Offset(1, 0).Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
；这一句中的Offset(1, 0).可以改成任一开始复印工作表的第几行。

无聊的疯子

lcyan1977 发表于 2012-6-11 17:56
这一段代码是通用的。我曾经用过，能用的。但现在不成了，不知道原因在哪儿。Wb.Sheets(G).UsedRange.Offse ...

把你的附件传上来吧，几下就解决问题了！！

zjyxp

昨天有人问这个问题，我也很想知道是如何出现这种错误

lcyan1977

代码没有问题，是我中了宏病毒！已经搞定。
你代码完全可以用。

lcyan1977

这是一代很实用的代码。