求助怎么用VBA将工作薄中的某一工作表保存到指定文件夹

Excelgogogogo · 发表于 2023-5-23 07:56

需求在附件，请大神们帮帮忙

fanyoulin · 发表于 2023-5-23 08:57

不清楚“早班”如何定义，所以就直接把“早班”写在了文件名中，可根据实际自行更改；
文件名不能使用"/"，所以日期只能用2023-05-23这样的格式；

Peny2020 · 发表于 2023-5-23 09:32

ActiveWorkbook.SaveAs Filename:="C:\Desktop\WINSCP\PL\" & Format(VBA.Date, "mmdd") & “早班派工单"& ".xlsm"

3190496160 · 发表于 2023-5-23 09:32

Sub 导出()
Dim ar As Variant
Dim br(), cr()
With Sheets("派工")
rq = .[c2]
bc = .[m2]
.Copy
End With
For Each shp In ActiveWorkbook.Worksheets(1)
shp.Delete
Next shp
mc = Format(rq, "yyyy年m月d日") & bc & "派工单"
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & mc & ".xlsx"
ActiveWorkbook.Close
End Sub

3190496160 · 发表于 2023-5-23 09:33

3190496160 · 发表于 2023-5-23 09:33

求助.rar (31.21 KB, 下载次数: 14)

杨建营 · 发表于 2023-5-23 09:49

请楼主参考。

cyq4896 · 发表于 2023-5-23 11:37

导出报表。

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

[求助] 求助怎么用VBA将工作薄中的某一工作表保存到指定文件夹

评分

评分