| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助] 文件名带上日期 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186727) |
| -- 作者：sanny -- 发布时间：2023/5/24 11:33:00 -- [求助] 文件名带上日期 老师，请问如何将以下面的产生的图片aaa名后自动带上产生的日期？ 如结果是 aaa_20230524 Dim App As New MSExcel.Application Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("C:\\Desktop\\管理项目1\\book1.xlsx") Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(2)\'指定工作表 Dim range = ws.range("A3:D10") range.CopyPicture(Appearance:=1, Format:=2) ClipBoard.GetImage.save("C:\\Desktop\\管理项目1\\aaa.jpg") |
| -- 作者：有点蓝 -- 发布时间：2023/5/24 11:48:00 -- http://www.foxtable.com/webhelp/topics/0362.htm ClipBoard.GetImage.save("C:\\Desktop\\管理项目1\\aaa" & format(date.today,"yyyyMMdd") & ".jpg")
|