返回列表 上一主題 發帖

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

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-4-20 11:09 | 只看該作者

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

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

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2012-4-20 12:22 | 只看該作者
題意不明?! 我找到一個
DeleteFile(mPath+mFile);      //刪除Excel檔

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

VBA可以做?!

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2012-4-20 13:00 | 只看該作者
回復 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

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
4#
發表於 2012-4-20 13:18 | 只看該作者
回復 3# GBKEE


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

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

再次感謝!!
TKS!

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
5#
發表於 2012-4-20 13:28 | 只看該作者
回復 3# GBKEE


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

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
6#
發表於 2012-4-20 13:40 | 只看該作者
回復 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

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
7#
發表於 2012-4-20 14:40 | 只看該作者
回復 6# GBKEE


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

TOP

        靜思自在 : 是非當教育，讚美作警惕。
返回列表 上一主題