返回列表 上一主題 發帖

[發問] 語法問題

HSIEN6001

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

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 »
發表於 2012-7-12 10:59 | 顯示全部帖子
本帖最後由 HSIEN6001 於 2012-7-12 12:14 編輯

回復 14# GBKEE

請問GBKEE大,如何完成

需求：
資料夾內 "ANY*.xls" 的所有檔名
如果該表格Sheets(1).Range("A2") <> "日期"
就刪除該檔案.xls
  1. Sub Ex()
  2. Dim F As String, xpath As String, xfile As String
  3. xpath = "D:\測試\"
  4. xfile = Dir(xpath & "ANY*.xls")
  5.     Do While xfile <> ""
  6.         If Sheets(1).Range("A2") <> "日期" Then
  7.             With ActiveWorkbook
  8.                 F = .FullName      '傳回物件的名稱，包括其磁碟路徑
  9.                 .Close 0           '關閉檔案
  10.             End With
  11.             Kill F     '刪除檔案"123.xls
  12.         End If
  13.         xfile = Dir
  14.     Loop
  15. End Sub
複製代碼
執行結果會直接關閉巨集該檔案

TOP

HSIEN6001

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

論壇榮譽勳章論壇贊助勳章
2#
發表於 2012-7-12 12:17 | 顯示全部帖子
本帖最後由 HSIEN6001 於 2012-7-12 12:18 編輯

回復 12# GBKEE


我終於想通了^^
[已解決]
  1. Sub EX()
  2.     Dim F As String, xpath As String, xfile As String
  3.     xpath = "D:\測試\"   
  4.     xfile = Dir(xpath & "ANY*.xls")
  5.     Do While xfile <> ""
  6.         With Workbooks.Open(xpath & xfile)
  7.         If Sheets(1).Range("A2") <> "日期" Then
  8.             With ActiveWorkbook
  9.                 F = .FullName      '傳回物件的名稱，包括其磁碟路徑
  10.                 .Close 0           '關閉檔案
  11.             End With
  12.         End If
  13.     Kill F     '刪除檔案"123.xls
  14.         End With
  15.         xfile = Dir
  16.     Loop
  17. End Sub
複製代碼

TOP

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
返回列表 上一主題