Sut i wirio a oes ffeil yn bodoli mewn ffolder benodol?
Gan dybio, mae gennych ffolder sy'n cynnwys ffeiliau lluosog, ac yn awr, rydych chi am nodi a oes ffeil benodol yn bodoli yn y ffolder hon gan Excel. Yr erthygl hon, byddaf yn cyflwyno dull cyflym i chi wirio a oes ffeil yn bodoli mewn ffolder benodol mewn manylion trwy Excel.
Gwiriwch a oes ffeil yn bodoli mewn ffolder benodol gyda chod VBA
Gwiriwch a oes ffeil yn bodoli mewn ffolder benodol gyda chod VBA
I wirio a oes ffeil yn bodoli mewn ffolder benodol ai peidio yn nhaflen waith Excel, gallwch gymhwyso'r cod VBA canlynol, gwnewch fel hyn:
1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.
Cod VBA: Gwiriwch a oes ffeil yn bodoli mewn ffolder benodol:
Sub Test_File_Exist_With_Dir()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim FilePath As String
FilePath = ""
On Error Resume Next
FilePath = Dir("C:\Users\DT168\Desktop\Test folder\Book2.xlsx")
On Error GoTo 0
If FilePath = "" Then
MsgBox "File doesn't exist", vbInformation, "Kutools for Excel"
Else
MsgBox "File exist", vbInformation, "Kutools for Excel"
End If
Application.ScreenUpdating = False
End Sub
Nodyn: Yn y cod uchod, dylech newid llwybr ac enw'r ffeil C: \ Defnyddwyr \ DT168 \ Penbwrdd \ Ffolder prawf \ Book2.xlsx " i'ch angen.
3. Ar ôl pasio'r cod, pwyswch F5 allwedd i redeg y cod hwn:
(1.) Os yw'r ffeil yn bodoli, fe gewch y screenshot canlynol:
(2.) Os nad yw'r ffeil yn bodoli, cewch y rhybudd a ganlyn:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!