|
Sub test()
Dim Str$
b = Sheets("放样测量记录表").Cells(4, 3) & Sheets("放样测量记录表").Cells(5, 3)
Str = "放样测量记录表*属于你自己项目表格" '要一起保存的工作表名的字符串,用"*"分隔(注意,分隔符应为未在工作表名中出现的字符)
Worksheets(Split(Str, "*")).Copy '复制选定的工作表组(因未指定复制后的目标工作簿,及复制的工作表会被放入一个新工作簿中并激活)
With ActiveWorkbook
.SaveAs ThisWorkbook.Path & "\" & b & "." & Split(ThisWorkbook.Name, ".")(UBound(Split(ThisWorkbook.Name, "."))), ThisWorkbook.FileFormat '保存为自定的新文件名及当前工作簿的扩展名及格式
Sheets("放样测量记录表").Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("属于你自己项目表格").Select
Cells.Select
Range("A5").Activate
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
.Close '关闭活动工作簿
End With
End Sub
|
|