Ako zistiť , či súbor existuje v programe Excel VBA

Visual Basic for Applications ( VBA ) je podmnožina jazyka , ktorý sa používa na prispôsobenie programov Microsoft Office tak , aby vyhovovali vašim potrebám . Pri zápise do súboru v jazyku VBA , je dobrým zvykom , aby sa ubezpečil , že určitý súbor existuje , ako sa pokúsite zapisovať . Ak chcete zistiť , či existuje súbor v programe Excel , vytvoriť modul VBA , ktorý robí trik . Aby bolo možné túto funkciu používať , mali by ste mať nejaké predchádzajúce skúsenosti s VB programovania . Veci , ktoré budete potrebovať
Excel 2007 alebo Excel 2010
Zobraziť ďalšie inštrukcie Cestuj 1

Skopírujte nasledujúci kód : klipart

Option Explicit

Funkčné FileOrDirExists ( PathName As String ) As Boolean

" Makro Účel : Funkcia vracia TRUE , ak je zadaný súbor

" alebo zložka existuje , false ak nie

" cestu k súboru . : Podporuje Windows namapovanej jednotky alebo UNC

" : Podporuje cesty Macintosh

" použitie súboru : Zabezpečiť úplnú cestu a príponu súboru , klipart použitie zložky

" : Zabezpečiť úplnú cestu k priečinku

" prijíma s /bez koncových " \\ " ( systém Windows )

" prijíma s /bez koncovej " : " ( Macintosh )

Dim iTemp As Integer

" Ignorovať chyby umožňujúci vyhodnotenie chýb

On Error Resume Next

iTemp = GetAttr ( PathName )

" Skontrolujte , či existuje chyba a nastaviť reakciu vhodne

Select Case err.number

Case Is = 0

FileOrDirExists = true

Case Else

FileOrDirExists = False

End Select

" Error Resume kontrolu klipart

On Error Goto 0

End Function

Sub TestItWithWindows ( )

" Makro Účel : Ak chcete otestovať funkcie FileOrDirExists s Windows

" iba súčasťou demonštrovať funkciu . Nie je nutné pre normálne používanie

Dim Späth As String

! " Zmeňte adresár tu

Späth = " C : \\ Test.xls "

" test , či existuje adresár alebo súbor

Ak FileOrDirExists ( Späth ) Potom

MsgBox Späth a " existuje ! "

Else

MsgBox Späth & " nie je existujú "

End If

End Sub klipart

Sub TestItWithMacintosh ( )

" Makro Účel : . Ak chcete otestovať funkciu FileOrDirExists s
Macintosh

" iba uvedené pre demonštráciu funkcie . Nie je nutné pre normálne používanie

Dim Späth As String

" Zmeňte adresár tu

Späth = ! " HardDriveName : Dokumenty : Test.doc "

" Test , či adresár alebo súbor existuje

Ak FileOrDirExists ( Späth ) Potom

MsgBox Späth a " existuje ! "

Else

MsgBox Späth a " robí neexistuje . "

End If

End Sub
2

Otvorte Excel a stlačte " Alt - F11 " zadať Editor jazyka Visual Basic .

Sims 3

kliknite na " Vložiť " a potom kliknite na " modul " .
4

Vložte kód do pravej table stlačením " Ctrl - " V. "

5

Zmena " text.xls " do názvu súboru , ktoré hľadáte .
6

Stlačte " F5 " pre spustenie procedúry . procedúra vráti pop - up okno ti , či súbor existuje .

• Predchádzajúca strana: Ako pridať čiarka na konci každého riadku v programe Excel 2007 
• Ďalšia strana: Ako si vyrobiť Hodinová graf v programe Excel