不打开文件选择有数据的区域进行复制粘贴

kangyunde

Sub 数据库恢复()
ChDir Range("A1")
Dim myfile, wb, i
myfile = Application.GetOpenFilename("Excel Îļþ (*.xlsx) (*.xlsx), *.xlsx", , "请选择文件", , False)
If myfile = "False" Then
Exit Sub
End If
Set wb = GetObject(myfile)
wb.Sheets("Sheet1")
Range("a5:I" & Cells(Cells.Rows.Count, 1).End(xlUp).Row).Copy
Sheets("数据库").Visible = True
Sheets("数据库").Select
Range("B5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range("B5").Select
wb.Close
    Sheets("数据库").Visible = False
    MsgBox "数据已恢复"
    ActiveWorkbook.Save
    Range("C2").Select
End Sub


为什么不能选择有数据的区域进行复制

ykcbf1100

wb.Sheets("Sheet1")应该是wb.Sheets("Sheet1").Activate吧