excel如何判斷是否存在指定文件名的文件?

excel如何判斷是否存在指定文件名的文件?

excel如何判斷是否存在指定文件名的文件?

問：每個月都要收到各區(qū)縣網點發(fā)來的關于本月開展的活動方案和總結的文件，收到文件后，根據網點名將文件簡化命名，例如，對于“XX縣安吉鄉(xiāng)營業(yè)所”的方案，簡化命名為“安吉”，將其總結簡化命名為“安吉總”，并在本工作簿所在的文件夾中存放這些文件。

如下圖所示，為方便說明，在列E和列F中臨時列出了這些文件的名稱，但最終的文件中列E和列F中不應該出現這些文件名。

每月末都要對收到的這些文件進行統(tǒng)計，了解各網點上報方案和總結的情況，但由于收到的文件很多，一個個文件核對工作量大且易出錯，能否使用VBA程序自動判斷這些文件是否存在？

答：使用下面的VBA代碼，可以方便地實現自動判斷文件是否存在的功能。

說明：

上述4個子過程中，IfFileExist子過程是主程序，它調用其它過程。

PlaceData子過程使用了VBA的InStr函數來獲取指定字符在字符串中的位置，使用Mid函數來提取字符串中指定位置的字符。

FileIsExist函數過程使用VBA的Dir函數來判斷指定的文件是否存在。這個自定義的函數過程可以作為一個通用程序，用來判斷文件是否存在。

假如這個月已經收到的文件如下圖所示：

運行程序后，結果如下圖：

改進建議

由于網點名稱是固定的，簡化的名稱也是固定的，因此可以專門建立一個存放這些數據的工作簿或工作表，直接讓程序在這個表中提取數據，然后與文件夾中的文件名對比來判斷是否文件存在，這樣應該可以簡化代碼，也更符合工作表設計原則。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發(fā)現本站中有涉嫌抄襲或描述失實的內容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發(fā)現本站中有涉嫌抄襲或描述失實的內容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。