„Microsoft Excel“ galime patikrinti, ar failas yra tam tikroje vietoje, naudojant VBA kodą. Makrokomandos būsena bus rodoma pranešimų lange. Šiame straipsnyje mes nustatysime, ar yra kokio nors konkretaus failo būsena, ar ne, naudodami VBA kodą. Naudodami funkciją „Dir“ galime patikrinti, ar failas yra vietoje, naudojant „Excel VBA“.
Naudodami šią programą galime patikrinti, ar toje pačioje vietoje jau yra failų. Taigi, kad galėtume ištrinti arba pervadinti seną failą.
Klausimas: Kurdami makrokomandą užduočiai automatizuoti, išvesties failą paprastai išsaugome tam tikroje vietoje. Norėčiau turėti makrokomandą patikrinti ir mainais parodyti, ar failas pasiekiamas, ar ne konkrečiu keliu.
Norėdami iliustruoti šį pavyzdį, išsaugosime failą „Sample.xlsx“ kelyje „D: \ FolderName \ Sample.xlsx“
Norėdami nustatyti, ar darbo knyga yra, turime atlikti toliau nurodytus veiksmus, kad paleistumėte VB redaktorių:
- Spustelėkite skirtuką Kūrėjas
- Iš kodų grupės pasirinkite „Visual Basic“
- Spustelėkite Įterpti, tada - Modulis
- Tai sukurs naują modulį
- Į standartinį modulį įveskite šį kodą
Sub FileExists () Dim FilePath kaip eilutė Dim TestStr As String FilePath = "D: \ FolderName \ Sample.xlsx" TestStr = "" On Error Resume Next TestStr = Dir (FilePath) On Error GoTo 0 If TestStr = "" Tada MsgBox " Failas neegzistuoja "Kitos darbaknygės. Atidarykite" D: \ FolderName \ Sample.xlsx "End If End Sub
- Dabar makrokomanda yra paleista, mes naudosime F5 spartųjį klavišą ir bus atidarytas „Pavyzdinis“ failas
- Jei failas nepasiekiamas iš anksto nustatytu keliu, bus parodytas šis pranešimų langas
Išvada: Tokiu būdu mes galime lengvai atpažinti, ar tam tikras failas yra ar ne konkrečiu keliu, naudojant VBA kodą.
Jei jums patiko mūsų tinklaraščiai, pasidalykite jais su draugais „Facebook“. Taip pat galite sekti mus „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime patobulinti, papildyti ar naujovinti savo darbą ir padaryti jį geresnį. Parašykite mums el