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，確定！
去試一試吧！！！