文章浏览阅读4.9w次,点赞43次,收藏354次。1.显示活动工作簿名称MsgBox "当前活动工作簿是" & ActiveWorkbook.Name2.保存活动工作簿Activeworkbook.Save3.保存所有打开的工作簿关闭EXCELFor Each W in Application.WorkbooksW.SaveNext WApplication.Q......
文章浏览阅读4.8k次,点赞4次,收藏50次。数组赋值给单元格区域Sub suijishu() '随机数 Dim shuzu(1 To 50000, 1 To 20) As Variant '定义数组,注意是从1开始的 Dim hang As Long Dim lie As Long Randomize For hang = 1 To 50000 For lie = 1 T......
文章浏览阅读1.1k次。参考文献 WPS Excel通过添加宏实现多张表格合并用例WPS Excel通过添加宏实现多张表格合并Sub 合并当前目录下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As workbook, WbN As StringDim G As LongDim Num As LongDim BOX A......
文章浏览阅读6.6k次,点赞16次,收藏148次。1.遍历所有已打开的word文档For Each docOpened In Documents ……Next docOpened2.Word 将目录下所有文档转换为txt,并删除原文档Sub 目录下doc转txt()'目录下所有word文档转为txt,并删除word文档'保存......
Sub ListFile()fpath = [A1]If Right(fpath, 1) <> "\" Then fpath = fpath & "\"Set d = CreateObject("Scripting.Dictionary")d.Add fpath, ""Zi = 1i = 0Do While Zi = 1 And i < d.Countdpath = d.......