GBKEE

回復 6# pitera88


   

下載 (73.67 KB)

2012-1-5 07:31

GBKEE

回復 11# linsurvey2005

1. Sub Ex()
   
2.     Dim F As String
   
3.     If Sheets(1).Range("A1") <> "123" Then
   
4.         With ActiveWorkbook
   
5.             F = .FullName      '傳回物件的名稱，包括其磁碟路徑
   
6.             .Close 0           '關閉檔案
   
7.         End With
   
8.         Kill F     '刪除檔案"123.xls
   
9.     End If
   
10. End Sub

複製代碼

GBKEE

回復 13# linsurvey2005
只能關閉檔案不能整個刪除(包含垃圾桶也是)
是123.xls檔案不能刪除嗎? ,  請問  Sheets(1).Range("A1")   是 123.xls的Sheets(1) ,
那當然刪不掉
           .Close 0           '先關閉檔案
        End With
        Kill F     '刪除檔案"123.xls 沒辦法執行


因為你的說的不是很清楚!!