vba 创建一个新的Excel
发布网友
发布时间：2022-04-22 00:41
共2个回答
热心网友
时间：2023-07-11 07:48
Workbooks.Add
Sheets("Sheet1").Select
Sheets("Sheet1").Name = Format(Now(), "YYMMDD") & "原始数据"
Sheets("Sheet2").Select
Sheets("Sheet2").Name = Format(Now(), "YYMMDD") & "当前数据"
Sheets("Sheet3").Select
Sheets("Sheet3").Name = Format(Now(), "YYMMDD") & "将来数据"
Range("C13").Select
ActiveWorkbook.SaveAs Filename:="C:\Users\rock.wang\Desktop\" & Format(Now(), "YYMMDD") & "数据.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
你把路径要改成你想要的路径，那是我的电脑桌面路径
热心网友
时间：2023-07-11 07:48
ALT+F11 或者右键工作表标签 点查看代码 或者 点 工具-宏-visual basic 编辑器 进入以后插入一个模块,如果你有别人写好的代码,直接复制进去把相关工作表名或地址改下就行 .然后在工作表中绘制一个图形或按钮,指定你复制的代码的宏名就行了,点击就可以运行了
请采纳答案，支持我一下。追问我要的是VBA源码，大神，能给我写出来吗？！
