weixin_41844140的博客

Sub isColInfo(sheet As Worksheet) Dim LastRow As Integer Dim arrCol As Variant arrCol = Array("C", "D", "E") '等下需要遍历、修改C、D、E列，并修改这几列除加粗文字(表头)外的文字对齐方式 For k = 0 To UBound(arrCol) ...

扩展名也可以是其它的xlsx之类的，自己修改扩展名就行了Sub SaveAllAndCloseXls() Dim FileName As String Dim extensionName As String For Each wbk In Workbooks FileName = wbk.Name '获取文件的名字，带扩展名的那种，长这样：report.x...

Sub getWidth() Dim cellwidth As Long '获取F列列宽 cellwidth = Range("F:F").ColumnWidth '把原来的F列列宽加到E列，也就是设置E列列宽为E列和F列的列宽之和 Range("E:E").ColumnWidth = Range("E:E").Col...

文件夹下的所有扩展名为xls的excel文件，修改所有工作表字体为“微软雅黑”，以及鼠标默认选中A1单元格'Path是参数，调用 openFiles 这个方法时传过来的文件夹路径Sub openFiles(Path) Dim File As String Dim WB As Workbook Application.ScreenUpdating = False ...

把代码中Path下的文件复制到afterPath目录下Sub copyFiles(Path As String, afterPath) 'Path：原文件夹路径；afterPath：目标文件夹路径 Dim Spath As String '下边的我自己也不是很理解，但是效果达成是莫得问题的...... Set fs = CreateObject("Scripting.F...

VBA以当前系统时间（年、月、日、时、分、秒）命名文件夹Sub addFile() Dim resFolderChild, nowTime, afterPath '获取系统当前时间并格式化，nowTime 就是自己想要的文件夹的名字，长这样：20191121173628 nowTime = Format(Now, "yyyy" & "mm" & "dd" ...

判断D盘下，名为 changeAfter_Files 的文件夹是否存在，如果不存在就新建一个名为 changeAfter_Files 的文件夹Sub judgeFile() Dim resFolder resFolder = Dir("D:\changeAfter_Files", vbDirectory) '判断路径为"D:\changeAfter_Files"的文件夹是否存...

Sub SelectFolder() Dim Path As String With Application.FileDialog(msoFileDialogFolderPicker) If .Show = -1 Then 'FileDialog 对象的 Show 方法显示对话框，并且返回 -1（如果按 OK）和 0（如果按 Cancel） ...