工作簿怎么归类到文件夹,工作簿名称如何排序

首页 > 职场 > 作者:YD1662023-10-30 03:41:34

日常工作中经常会整理文件到指定的文件夹,少的时候用鼠标拖拖,多了就很麻烦了,这种枯燥的重复性工作可以交给电脑批量处理,现在就分享一个方法。

如下图所示,在这个文件夹中,有各种类型的文件,我想把所有名称为1的文件,无论是什么类型,统一放到文件夹1里,把所有名称是2的文件放到文件夹2里,以此类推,一共有1-5个文件夹。

工作簿怎么归类到文件夹,工作簿名称如何排序(1)

第一步:首先新增一个excel工作簿,打开后,鼠标放在工作表名上,点击鼠标右键,查看代码,会进入VBA的编辑界面。

工作簿怎么归类到文件夹,工作簿名称如何排序(2)

第二步:把代码粘贴进去。(复制下面的代码,从sub test()一直复制到End Sub)

Sub test()

Dim ss$, n%, fd, t$

Range("a2:d60000").Clear '先清空

Set fd = Application.FileDialog(msoFileDialogFolderPicker) '运行用户选择一个文件夹

If fd.Show = -1 Then

t = fd.SelectedItems(1) '记录这个文件夹名称

Else

Exit Sub '否则就退出程序

End If

[a1] = "命令"

[b1] = "文件名称"

[c1] = "目标文件夹"

ss = Dir(t & "\")

Do

n = n 1

Cells(n 1, 1) = "move"

Cells(n 1, 2) = ss

ss = Dir

Loop Until ss = ""

With Sheet1

.Cells.HorizontalAlignment = xlCenter

.[a1].CurrentRegion.Borders.Weight = xlThin

.Cells.EntireColumn.AutoFit '调整宽

End With

MsgBox "快学Excel提示您,查询完毕"

End Sub

这个代码是获取文件夹下所有文件名称的。达到这个效果还有其他的办法,但是我之所以用excelVBA是为了把文件名直接写入到excel中,因为实际工作中,文件名称比我这个例子要复杂得多,比如根据文件名中某个字符来确定这个文件是归类到哪个文件夹,这时候excel的函数或其它功能就能快速搞定这个事情。代码粘贴进去之后关闭VBA编辑界面。

工作簿怎么归类到文件夹,工作簿名称如何排序(3)

复制代码之后的界面

第三步:在开发工具的插入这里,插入一个控件。

如果你的excel没有开发工具,可以点击文件——选项——自定义功能区——勾选开发工具——点击确认即可。

工作簿怎么归类到文件夹,工作簿名称如何排序(4)

首页 12345下一页

栏目热文

文档排行

本站推荐

Copyright © 2018 - 2021 www.yd166.com., All Rights Reserved.