vba删除指定文件夹内工作簿

① Excel 中如何用VBA 删除指定文件夹中的指定文件

'你想删除的文件的名称例如文件名是中国什么省汇总.xls
FN = "中国什么省汇总.xls"

Dim FileName As String

FileName = Dir("D:\报表\*.xls")
Do While FileName <> ""
If FileName = FN Then
Kill "D:\报表\" & FileName
End If
FileName = Dir
Loop

② vba 清除多个工作簿指定内容

答：利用遍历工作表的方法。

Subdemo()
DimShtAsWorksheet
DimLastRowAsLong,iAsLong
ForEachShtInWorksheets
WithSht
LastRow=.Cells(Rows.Count,1).End(xlUp).Row
Fori=2ToLastRow
If.Cells(i,1)<>"瓷砖类"Then
.Range("C"&i&":D"&i).ClearContents
Else
.Range("D"&i).ClearContents
EndIf
Next
EndWith
Next
EndSub

③ VBA中删除同级目录下的其他工作簿的代码如何写

tmPath="全路径"
tmPfile=dir(tmPath & "\*.xls*")
do while tmPfile<>""
if tmPfile<>thisworkbook.name then kill tmPath & "\" & tmpfile
tmPfile=dir
loop

④ vba中怎么清空工作表中的数据

1、双击thisbook——打开工作簿的代码编辑框。

⑤ Excel如何使用VBA删除指定文件夹下所有工作表的指定列

删除文件夹下所有工作表

End sub

⑥ 批量删除多个文档中的指定页面，求VBA代码

使用这款，选择自定义删除。

⑦ excel中用vba快速删除多个工作表内指定的内容

Vba代码，若你的工作表名称没有规律可以就稍微费事点，若是有规律可以用 For each ...in...next..

sub Delete_All()
with sheets("Sheet1")
.range("A2:C5").clearContents'编辑你指定的范围，这是清除内容，删除单元格要用Delete
end with

'把这三行代码复制粘贴，然后修改Sheet名字
end sub

⑧ Excel VBA 删除指定文件夹中的指定文件

'你想删除的文件的名称例如文件名是中国什么省汇总.xls
FN = "中国什么省汇总.xls"

Dim FileName As String

FileName = Dir("D:\报表\*.xls")
Do While FileName <> ""
If FileName = FN Then
Kill "D:\报表\" & FileName
End If
FileName = Dir
Loop

⑨ excel vba删除指定盘符工作簿代码

代码不复杂，但是不推荐使用，以免误伤。

如下：

Subtst()
Dimwbk,p,pth
pth="C:11111"
p=Dir(pth&"*.xls*")
DoWhilep<>""
Kill(pth&p)
p=Dir
Loop
EndSub

注意： 1.其中代码第三行的路径根据自己需求设定盘符。

2. 代码第四行根据自己需求选择想要删除的工作簿的扩展名

3. 再次提醒，除非对VBA很了解，否则不推荐使用此方法。

⑩ 在excel中如何使用vba命令实现批量删除指定名称的工作表

按Alt
+
F11，双击ThisWorkbook，粘贴下面的代码：
Sub
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
按Alt
+
F11，回到你的画面所示的“表”中！
按Alt
+
F8，确定！
去试一试吧！！！