excel中怎么使用Vba批量删除指定文件夹下的所有文件?
今天要和大家分享的是:Vba设置批量删除指定文件夹下的所有文件?
1、首先新建一个excel文件并双击打开,打开后,按快捷键F12进行另存为,注意另存的格式要选择启用宏的工作簿,如下图所示:
2、接着找到左上角的文件按钮,选择选项按钮,如下图所示:
3、在弹出的对话框中选择信任中心,并选择信任中心设置,接着选择隐私选项,并把保存时删除个人信息的对号去掉,整体设置完成,按快捷键ALT+F11,打开VBA编辑界面,并插入一个模块,如下图所示:
4、插入后将如下代码复制到模块中,Sub 删除指定文件夹下的所有文件()
For i% = 1 To Range(A1048576).End(xlUp).Row
Kill Cells(i, 1) \*.*
Next
End Sub
如下图所示:
5、接着我们看到新建文件夹的路径里有很多excel文件,这就是我们需要删除的文件,如下图所示:
6、而且上一个文件夹又有很多新建文件夹的副本,这里也有很多excel,都是我们需要删除的,如下图所示:
7、然后找到批量提取文件名和修改文件名的宏文件,如下图所示:
8、打开后找到视图中的查看宏命令,并找到提取文件名的宏命令,单击执行,此时需要在弹出的对话框中找到我们对应的文件路径,注意需要找到要删除文件的文件夹的上一级路径,如下图所示:
9、找到后即可看到所有的文件路径已经生成,此时需要用公式将完整路径进行合并,如下图所示:
10、合并后需要下拉单元格,将副本的文件路径进行合并,然后整体将路径进行复制并数值粘贴到,删除指定文件夹下的文件.Xlsm,这个文件的A列,如下图所示:
11、粘贴完成后,同样视图查看宏找到我们对应的宏命令:删除指定文件夹下的文件,并单击执行,如下图所示:
12、执行后,我们随便打开一个文件夹,发现里面的内容已经为空了,如下图所示:
绛旓細excel涓敤vb鎵归噺淇敼宸ヤ綔琛紝鏍规嵁浣犵殑琛ュ厖鎻忚堪鍜屽浘鐗囦俊鎭潵鐪嬶紝鍙互鐩存帴浣跨敤Excel鑷甫鐨VBA鍔熻兘鏉ュ畬鎴愶紝鍙湁浣犵畝鍗曠殑鎳備竴鐐瑰氨鍙互浜嗐傞鍏堢涓寮犺〃涓烘昏〃锛岀浜屽紶琛ㄥ仛涓涓ā鏉胯〃锛屽鍥句竴:鍏蜂綋鎿嶄綔姝ラ濡備笅:1銆佹寜Alt+F11缁勫悎閿繘鍏BA缂栬緫鍣;2銆佷緷娆″崟鍑烩滄彃鍏モ--鈥滄ā鍧椻濓紝鍦ㄦā鍧椾腑杩涜涔﹀啓浠g爜锛...
绛旓細In鈥︹ext鈥濆宸ヤ綔琛閲岄潰鐨姣忎竴涓枃鏈銆佸浘褰㈣繘琛岃闂紝鐒跺悗浣跨敤鈥.TextFrame2.TextRange.Text鈥濊幏鍙栭噷杈圭殑鏂囨湰鏁版嵁鍐欏叆鍗曞厓鏍笺俈BA绋嬪簭濡備笅鎴浘锛宻hp涓哄伐浣滆〃Sheet1閲岃竟鎵鏈夊浘褰腑鐨勪竴涓紙姣忔墽琛屼竴娆or寰幆灏辨彁鍙栦竴涓紝涓嶉噸澶嶏級銆傘愭敞銆戜笂鍥剧殑VBA绋嬪簭寮曠敤鑷櫨搴︾粡楠屻浣跨敤VBA鎻愬彇鏂囨湰妗嗙殑鏂囨湰鏁版嵁銆...
绛旓細Sub 鎵归噺鎿嶄綔()Application.ScreenUpdating = False '//鍏抽棴灞忓箷鍒锋柊 Application.DisplayAlerts = False '//鍏抽棴绯荤粺鎻愮ず n = 1 mypath = ThisWorkbook.Path & "\"myfile = Dir(mypath)benname = ThisWorkbook.Name Do While myfile <> ""If myfile <> ThisWorkbook.Name Then Workbooks.Open ...
绛旓細鎵撳紑杩欎釜excel ,鍙﹀瓨涓哄壇鏈, (鏈濂芥斁鍒版煇涓枃浠跺す鍐)鎸塧lt+F11, 瑙嗗浘---浠g爜绐楀彛 --鎶婂涓嬪鍒惰繘鍘--鎸塅5 杩愯鍗冲彲 Sub fencun()Application.ScreenUpdating = False b = Sheets.Count For i = b To 1 step -1 sheets(i).select sheets(i).Cells.Select Selection.Copy Selection....
绛旓細- 鍦 VBA 缂栬緫鍣ㄤ腑锛岄夋嫨 "鎻掑叆" > "妯″潡"銆- 鍦ㄦā鍧椾腑缂栧啓 VBA 浠g爜鏉鎵归噺鎻掑叆鏁版嵁銆備緥濡傦紝浣犲彲浠浣跨敤寰幆鏉ラ亶鍘嗕綘鐨勬暟鎹簮锛屽苟浣跨敤浠g爜灏嗘暟鎹愪釜鎻掑叆妯℃澘涓殑鐩稿簲浣嶇疆銆- 杩愯浣犵紪鍐欑殑瀹忥紝浠ユ墽琛屾暟鎹彃鍏ユ搷浣溿3. 浣跨敤 Excel 鐨鏁版嵁杩炴帴鍔熻兘锛- 鍦 Excel 涓鎵撳紑浣犵殑妯℃澘锛屽苟閫夋嫨 "鏁版嵁" > ...
绛旓細浜诧紝涓鐢鏁扮粍灏卞彲浠ュ晩锛岀敤杩欎釜鍛戒护 Sheets("琛2").Select Add
绛旓細h=range("D10000").end(xlup).row for i=2 to h if cells(i,4).value="" then cells(i,5).value=""else cells(i,5).value=cells(i,4).value+10 endif next i
绛旓細鎴鐨鎬濊矾涓嶄竴鏍凤紝浣嗙粨鏋滃簲璇ユ槸涓鏍风殑 鎴戞槸鎶婅淇濈暀鐨勫垪锛屾斁鍒版柊琛紙sheet2锛閲岄潰涓旀帓搴忎簡 棣栧厛锛岄渶瑕佸皢鎺掑簭鐨勪綅缃斁鍦╯heet2鐨凙鍒椾腑锛岀劧鍚庢墽琛屼唬鐮 Sub m()Set dicb = CreateObject("scripting.dictionary")For i = 1 To Sheet2.Range("A65536").End(xlUp).Row If dicb.exists(Sheet2....
绛旓細鎸堿lt + F11锛屽弻鍑籘hisWorkbook锛岀矘璐翠笅闈鐨浠g爜锛歋ub ouyangff()On Error Resume Next Application.DisplayAlerts = False For i = 2 To [g65536].End(3).Row a$ = Cells(i, 7)Sheets(a$).Delete Next Application.DisplayAlerts = True End Sub 鎸堿lt + F11锛屽洖鍒颁綘鐨勭敾闈㈡墍绀虹殑鈥滆〃鈥濅腑...
绛旓細Option Explicit Sub 杞崲()Dim dict, arr, i, j, k dict = Sheets(1).UsedRange '瀛楀吀鍏崇郴琛 arr = Sheets(2).UsedRange '闇瑕佽浆鎹㈢殑琛 For i = 2 To UBound(arr)For j = 3 To 5 For k = 1 To UBound(dict)If dict(k, 1) = arr(i, j) And dict(k, 3) = arr(1, j)...