时间戳

首页 > 解决方案 > 打开另一个工作簿时选择工作表类失败错误的方法

excel - 打开另一个工作簿时选择工作表类失败错误的方法

问题描述

Sub Copy()

Workbooks("Data.xlsm").Sheets("28May2020").Select

Workbooks("Data.xlsm").Sheets("28May2020").Activate

Dim lastrow As Integer

lastrow = ThisWorkbook.Sheets("COPYHERE").Cells(Rows.Count, 2).End(xlUp).Row

Sheets("COPYHERE").Range("A" & lastrow + 1).Value = Date
Sheets("COPYHERE").Range("B" & lastrow + 1).Value = Time

Range("L43:X93").Copy Worksheets("COPYHERE").Range("A" & lastrow + 2)

Sheets("COPYHERE").Select

Timer

End Sub

Sub Timer()

Application.OnTime Now() + TimeValue("00:00:30"), "Copy"

End Sub

标签： excelvbaerror-handling

解决方案

Sub Copy()
Application.ScreenUpdating = True

Dim lastrow As Integer
Dim wsName As String
Dim cpName As String

wsName = "28May2020"
cpName = "COPYHERE"
Sheets(wsName).Activate

lastrow = Sheets(cpName).Cells(Rows.Count, 2).End(xlUp).Row

With Sheets(cpName)
    .Range("A" & lastrow + 1).Value = Date
    .Range("B" & lastrow + 1).Value = Time
End With

Range("L43:X93").Copy Worksheets(cpName).Range("A" & lastrow + 2)

Sheets(cpName).Activate

Application.ScreenUpdating = False

End Sub

推荐阅读