EXCEL VBA中新添加一张工作表后，如何返回原有工作表进行操作，请各位大侠指教

发布网友 发布时间：2022-04-24 02:39

我来回答

共4个回答

热心网友 时间：2023-10-22 12:25

With Sheets(ActiveSheet.Name) '用 “.”代替当前工作表

''''''''''''''''''''''''若“temp”表不存在则新建一个''''''''''''''''''''''
On Error Resume Next '忽略下方的陷阱错误
With Sheets("temp")
If Err.Number <> 0 Then '指定的工作表不存在
Sheets.Add.Name = "temp" '添加的新表自动激活为当前表
Err.Clear
End If
End With
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
.Select ''''''激活返回“.”原有工作表进行操作
'该干啥就干啥
End With

试试看

热心网友 时间：2023-10-22 12:25

在添加新的Sheet前，对当前表进行记录，类似如下代码
Sub Run()
Dim Obj As Worksheet
Set Obj = ActiveSheet'记录原来的Sheet
Sheets.Add'增加新的Sheet
Obj.Cells(1, 1) = "操作"'对原来的Sheet进行操作
Set Obj = Nothing
End Sub

热心网友 时间：2023-10-22 12:25

要分下是工作薄还是工作表
工作表即一个EXCEL文件，如果该文件没有关闭的话，可用workbooks("文件名").actiavte 返回
如果工作表，即SHEET,可用SHEETS("工作表名“）.select 返回原表

热心网友 时间：2023-10-22 12:25

With Sheets(ActiveSheet.Name) '用 “.”代替当前工作表

''''''''''''''''''''''''若“temp”表不存在则新建一个''''''''''''''''''''''
On Error Resume Next '忽略下方的陷阱错误
With Sheets("temp")
If Err.Number <> 0 Then '指定的工作表不存在
Sheets.Add.Name = "temp" '添加的新表自动激活为当前表
Err.Clear
End If
End With
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
.Select ''''''激活返回“.”原有工作表进行操作
'该干啥就干啥
End With

试试看

热心网友 时间：2023-10-22 12:25

在添加新的Sheet前，对当前表进行记录，类似如下代码
Sub Run()
Dim Obj As Worksheet
Set Obj = ActiveSheet'记录原来的Sheet
Sheets.Add'增加新的Sheet
Obj.Cells(1, 1) = "操作"'对原来的Sheet进行操作
Set Obj = Nothing
End Sub

热心网友 时间：2023-10-22 12:25

要分下是工作薄还是工作表
工作表即一个EXCEL文件，如果该文件没有关闭的话，可用workbooks("文件名").actiavte 返回
如果工作表，即SHEET,可用SHEETS("工作表名“）.select 返回原表

热心网友 时间：2023-10-22 12:26

看下你原来的代码，加新工作表可以不改变当前活动工作表的

热心网友 时间：2023-10-22 12:26

看下你原来的代码，加新工作表可以不改变当前活动工作表的

热心网友 时间：2023-10-22 12:25

With Sheets(ActiveSheet.Name) '用 “.”代替当前工作表

''''''''''''''''''''''''若“temp”表不存在则新建一个''''''''''''''''''''''
On Error Resume Next '忽略下方的陷阱错误
With Sheets("temp")
If Err.Number <> 0 Then '指定的工作表不存在
Sheets.Add.Name = "temp" '添加的新表自动激活为当前表
Err.Clear
End If
End With
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
.Select ''''''激活返回“.”原有工作表进行操作
'该干啥就干啥
End With

试试看

热心网友 时间：2023-10-22 12:25

在添加新的Sheet前，对当前表进行记录，类似如下代码
Sub Run()
Dim Obj As Worksheet
Set Obj = ActiveSheet'记录原来的Sheet
Sheets.Add'增加新的Sheet
Obj.Cells(1, 1) = "操作"'对原来的Sheet进行操作
Set Obj = Nothing
End Sub

热心网友 时间：2023-10-22 12:25

要分下是工作薄还是工作表
工作表即一个EXCEL文件，如果该文件没有关闭的话，可用workbooks("文件名").actiavte 返回
如果工作表，即SHEET,可用SHEETS("工作表名“）.select 返回原表

热心网友 时间：2023-10-22 12:26

看下你原来的代码，加新工作表可以不改变当前活动工作表的

热心网友 时间：2023-10-22 12:25

With Sheets(ActiveSheet.Name) '用 “.”代替当前工作表

''''''''''''''''''''''''若“temp”表不存在则新建一个''''''''''''''''''''''
On Error Resume Next '忽略下方的陷阱错误
With Sheets("temp")
If Err.Number <> 0 Then '指定的工作表不存在
Sheets.Add.Name = "temp" '添加的新表自动激活为当前表
Err.Clear
End If
End With
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
.Select ''''''激活返回“.”原有工作表进行操作
'该干啥就干啥
End With

试试看

热心网友 时间：2023-10-22 12:25

在添加新的Sheet前，对当前表进行记录，类似如下代码
Sub Run()
Dim Obj As Worksheet
Set Obj = ActiveSheet'记录原来的Sheet
Sheets.Add'增加新的Sheet
Obj.Cells(1, 1) = "操作"'对原来的Sheet进行操作
Set Obj = Nothing
End Sub

热心网友 时间：2023-10-22 12:25

要分下是工作薄还是工作表
工作表即一个EXCEL文件，如果该文件没有关闭的话，可用workbooks("文件名").actiavte 返回
如果工作表，即SHEET,可用SHEETS("工作表名“）.select 返回原表

热心网友 时间：2023-10-22 12:26

看下你原来的代码，加新工作表可以不改变当前活动工作表的

热心网友 时间：2023-10-22 12:25

With Sheets(ActiveSheet.Name) '用 “.”代替当前工作表

''''''''''''''''''''''''若“temp”表不存在则新建一个''''''''''''''''''''''
On Error Resume Next '忽略下方的陷阱错误
With Sheets("temp")
If Err.Number <> 0 Then '指定的工作表不存在
Sheets.Add.Name = "temp" '添加的新表自动激活为当前表
Err.Clear
End If
End With
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
.Select ''''''激活返回“.”原有工作表进行操作
'该干啥就干啥
End With

试试看

热心网友 时间：2023-10-22 12:25

在添加新的Sheet前，对当前表进行记录，类似如下代码
Sub Run()
Dim Obj As Worksheet
Set Obj = ActiveSheet'记录原来的Sheet
Sheets.Add'增加新的Sheet
Obj.Cells(1, 1) = "操作"'对原来的Sheet进行操作
Set Obj = Nothing
End Sub

热心网友 时间：2023-10-22 12:26

要分下是工作薄还是工作表
工作表即一个EXCEL文件，如果该文件没有关闭的话，可用workbooks("文件名").actiavte 返回
如果工作表，即SHEET,可用SHEETS("工作表名“）.select 返回原表

热心网友 时间：2023-10-22 12:26

看下你原来的代码，加新工作表可以不改变当前活动工作表的