返回列表 上一主題 發帖

[發問] 請問刪除資料夾內的所有*.xls

[發問] 請問刪除資料夾內的所有*.xls

請問刪除指定資料夾內的所有*.xls 之VBA語法

題意不明?! 我找到一個
DeleteFile(mPath+mFile);      //刪除Excel檔

DeleteFile("c:/test/123456.txt") ;
但執行出現沒有定義DeleteFile 的Sub 或 Function
好像是C++語法

VBA可以做?!

TOP

回復 2# HSIEN6001
  1. Option Explicit
  2. Sub Ex()
  3.     Kill "D:\*.xls"
  4. End Sub
  5. Sub Ex1()
  6.     Dim Fs As Object, xPath As String, xFile As String
  7.     Set Fs = CreateObject("Scripting.FileSystemObject")
  8.     xPath = "D:\"
  9.     xFile = Dir(xPath & "*.xls")
  10.     Do
  11.         If xFile <> "" Then
  12.         Fs.DeleteFile xPath & xFile
  13.         xFile = Dir
  14.         End If
  15.     Loop While xFile <> ""
  16. End Sub
複製代碼

TOP

回復 3# GBKEE


兩個都可以用!太感謝了~^o^~y
可以來ㄑ吃飯啦!

不會語法粉痛苦~幾近變態中~^^!!

再次感謝!!
TKS!

TOP

回復 3# GBKEE


    板主想問一下
   第一個比較簡單容易理解
   第二個跟第一個的作用有哪裡不一樣嗎
字典兩各字 還真難理解

TOP

回復 5# freeffly
是一樣的 Ex1可簡化 如 Ex
  1. Option Explicit
  2. Sub Ex()
  3.     On Error Resume Next    '有錯誤時不理會它, 繼續下一行程式碼
  4.     Kill "D:\*.xls"                      '找不到檔案時會有錯誤
  5. End Sub
  6. Sub Ex1()
  7.     Dim Fs As Object, xFile As String
  8.     On Error Resume Next    '有錯誤時不理會它, 繼續下一行程式碼
  9.     Set Fs = CreateObject("Scripting.FileSystemObject")
  10.     xFile = "D:\*.xls"
  11.     Fs.DeleteFile xFile     '找不到檔案時會有錯誤
  12. End Sub
複製代碼

TOP

回復 6# GBKEE


    謝謝板主解說
字典兩各字 還真難理解

TOP

        靜思自在 : 【生命在呼吸間】佛陀說:「生命在呼吸間。」人無法管住自己的生命,更無法擋住死期,讓自己永住人間。既然生命去來這麼無常,我們更應該好好地愛惜它、利用它、充實它,讓這無常、寶貴的生命,散發它真善美的光輝,映照出生命真正的價值。
返回列表 上一主題