GBKEE

回復 1# jakcy1234
試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim fs As Object, File_Nane As String
   
4.     Set fs = CreateObject("Scripting.FileSystemObject")
   
5.     File_Nane = Dir("C:\*.xls")   '搜尋資料夾裡的副檔名
   
6.     Do While File_Nane <> ""
   
7.         Set fs = CreateObject("Scripting.FileSystemObject").GetFILE(File_Nane)
   
8.         If UBound(Split(File_Nane, "_")) > 0 Then                              '檔案名稱中有 "???_???_"
   
9.             If Val(Split(File_Nane, "_")(1)) >= 6 And fs.Size / 1024 > 100 Then
   
10.                 Workbooks.Open (fs)
    
11.             End If
    
12.         End If
    
13.         File_Nane = Dir         '搜尋資料夾裡下一個相同的副檔名
    
14. 
    
15.     Loop
    
16. End Sub

複製代碼

GBKEE

回復 3# jakcy1234
因為我是用web query aspx 來開檔 -> 1#的哪些檔名是存在一個資料庫中,你依據為開檔的資料嗎?(哪些檔案存在你的PC,給你的程式碼,可用嗎!)

GBKEE

回復 5# jakcy1234
那些檔案是 從下載軟件 download 到電腦 , 下載到C:\嗎?
不是要修改 ->  File_Nane = Dir("C:\auto_download_page\*.xls")   '搜尋資料夾裡的副檔名
這 C:\auto_download_page\chap42589_00001_2013_0830_1457  的副檔名是xls ??
不是或所有檔案 ->  File_Nane = Dir("C:\auto_download_page\*.*")   '搜尋資料夾裡所有檔案

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim fs As Object, File_Nane As String
   
4.     Set fs = CreateObject("Scripting.FileSystemObject")
   
5.     File_Nane = Dir("C:\*.xls")   '搜尋資料夾裡的副檔名
   
6.     Do While File_Nane <> ""
   
7.         Set fs = CreateObject("Scripting.FileSystemObject").GetFILE(File_Nane)
   
8.         If UBound(Split(File_Nane, "_")) > 0 Then                              '檔案名稱中有 "???_???_"
   
9.             If Val(Split(File_Nane, "_")(1)) >= 6 And fs.Size / 1024 > 70 Then '00006 以後的 size 超過 70kb的檔案
   
10.                 Workbooks.Open (fs)
    
11.             Else
    
12.                 Kill fs      '在電腦自動刪除 ' 或不讀取->註解這程式碼不執行
    
13.             End If
    
14.         Else
    
15.             Kill fs         '在電腦自動刪除 ''檔案名稱中沒有 "????????_?????"
    
16.                              '或不讀取 -> 註解這程式碼不執行        
    
17.         End If
    
18.         File_Nane = Dir         '搜尋資料夾裡下一個相同的副檔名
    
19.     Loop
    
20. End Sub

複製代碼