新建表的表名不会写（表名是变量，不会表述）

fhv123 · 发表于 2020-1-31 01:28

要求：在D:\date里新建5个excel（按B2起名称），把表一、表二移动或复制到新建的表上
请教：新建、保存表的代码会写，移动或复制到新建表的表名就不会了（表名是变量，不会表述）
sub s()
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=Workbooks("工作表.xlsx").Worksheets(1).Range("B2")
Sheets(Array("表一", "表二")).Copy Before:=？（怎么写新的表名？）.Sheets(2)
End Sub

fhv123 · 发表于 2020-1-31 01:30

辛苦各位大神

山菊花 · 发表于 2020-1-31 10:26

供参考。

fhv123 · 发表于 2020-1-31 16:05

3楼，谢谢，已解决

fhv123 · 发表于 2020-1-31 16:29

本帖最后由 fhv123 于 2020-1-31 16:31 编辑

山菊花发表于 2020-1-31 10:26
供参考。

最后加一句点下sheets(1)的A1，怎么下面这句不对
wb.Sheets(1).Range("a1").Select

山菊花 · 发表于 2020-1-31 17:35

取消关闭命令，前面加:
wb.Activate '如确保wb是当前工作簿，可不用
wb.Sheets(1).Activate
wb.Sheets(1).Range("a1").Select

fhv123 · 发表于 2020-1-31 22:11

版主，辛苦，谢谢

		自动登录	找回密码
密码			免费注册