![]() |
#2
yuma2022-12-14 10:21
|
Private Sub CommandButton21_Click()
Dim AA, BB
Application.DisplayAlerts = False
AA = "C:\Users\Administrator\Desktop\XXX\" & Format(Date, "YYYY-MM-DD") & "\YYY\"
BB = [K3]
ThisWorkbook.SaveAs AA & BB & ".xlsm"
Application.DisplayAlerts = True
End Sub
代码2:再运行下面的代码,将其他表格移动到正在工作的excel上:
Workbooks.Open Filename:="C:\Users\Administrator\Desktop\ZZZ.xlsm" '打开表格代码
Windows("ZZZ.xlsm").Activate '转移工作簿代码
Sheets("Sheet1").Select
Sheets("Sheet1").Move Before:=Workbooks(ThisWorkbook.Name).Sheets(1)
'Windows("ZZZ.xlsm").Activate '表格关闭不保存
'ActiveWindow.Close SaveChanges:=False
End Sub
但是再点击命名 按钮21 运行 代码1 时,出现下面的问题导致无法保存,求指教!
只有本站会员才能查看附件,请 登录