返回列表 上一主題 發帖

[發問] 語法問題

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2012-1-5 07:31 | 顯示全部帖子
回復 6# pitera88


   

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-1-12 16:50 | 顯示全部帖子
回復 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
複製代碼

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-1-12 17:56 | 顯示全部帖子
回復 13# linsurvey2005
只能關閉檔案不能整個刪除(包含垃圾桶也是)
是123.xls檔案不能刪除嗎? ,  請問  Sheets(1).Range("A1")   是 123.xls的Sheets(1) ,
那當然刪不掉
           .Close 0           '先關閉檔案
        End With
        Kill F     '刪除檔案"123.xls 沒辦法執行


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

TOP

        靜思自在 : 君子如水，隨方就圓，無處不自在。
返回列表 上一主題