微信小程序 > 微信公开课 > 求一个vba小程序
微信小程序，微信公开课，求一个vba小程序

求一个vba小程序

2019-03-12 17:02:19

微信公开课小程序热门讨论「求一个vba小程序」最新回复-Sub于生成文件()DimRngAsRange,ShAsWorksheet,Sh1AsWorksheet,WbAsWorkbookDimDicAsObject,i&,j&,Filn$SetDic=CreateObject(Scripting.Dictionary)Application.ScreenUpdating=FalseApplication.DisplayAlerts=FalseApplication.EnableEvents=FalseFiln=Dir(ThisWorkbook.Path&&Format(Date,于yyyymmdd生成*),vbDirectory)DoWhileLen(Filn)0Dic(Filn)=Filn=DirLoopIfNotDic.Exists(Format(Date,于yyyymmdd生成))ThenMkDirThisWorkbook.Path&&Format(Date,于yyyymmdd生成)SetDic=NothingForEachShInThisWorkbook.WorksheetsSetWb=Workbooks.AddFori=2ToSh.Cells(Rows.Count,1).End(xlUp).RowSetSh1=Wb.Worksheets.AddSh1.Name=Sh.Cells(i,1)[A5]=Sh.Cells(i,1)[B3]=Sh.Cells(i,2)[C7]=Sh.Cells(i,3)[D11]=Sh.Cells(i,4)[E9]=Sh.Cells(i,5)NextiWb.SaveAsThisWorkbook.Path&Format(Date,\于yyyymmdd生成\)&Sh.NameWb.CloseNextShApplication.EnableEvents=TrueApplication.DisplayAlerts=TrueApplication.ScreenUpdating=TrueEndSub
你没有说生成的文件夹里面的需求，如果只是建立文件夹，下面的一个语句就可以：Subx()MkDirThisWorkbook.Path&&Format(Date,于yyyymmdd生成)EndSub追问看截图啊，文件夹里面的需求都说了啊已赞过已踩过评论收起YMDBBB2018-05-16YMDBBB采纳数：0获赞数：0LV1擅长：购车养车向TA提问私信TA展开全部不会自己去琢磨 更多有关「求一个vba小程序」的疑问请扫码关注微信公开课+小程序！
标签：微信公开课,小程序
微信小程序，微信公开课，求一个vba小程序

「求一个vba小程序」热议话题订阅

方法1：微信扫描微信公开课小程序码即可订阅热议话题「求一个vba小程序」

方法2：微信搜索微信公开课小程序名称进入，即可订阅热议话题「求一个vba小程序」

方法3：微信网页访问即速商店，长按识别微信公开课小程序码即可订阅热议话题「求一个vba小程序」

微信公开课小程序热议话题「求一个vba小程序」由微信公开课原创摘录于微信小程序商店shop.jisuapp.cn，转载请注明出处。

微信公开课热议话题「求一个vba小程序」由微信公开课开发者向微信用户提供，并对本服务内容、数据资料及其运营行为等真实性、合法性及有效性承担全部责任。

微信公开课小程序

更新时间：2019-03-12 17:02:19

一键制作小程序 全国代理小程序 订阅微信公开课