Excel හි VBA DIR කාර්යය භාවිතා කරන්නේ කෙසේද (ප්‍රායෝගික උදාහරණ 7)

Hugh West

21-08-2023 එක්සෙල් කාර්යයන්
  • මේක Share කරන්න
Hugh West

VBA හි DIR ශ්‍රිතය ප්‍රධාන වශයෙන් ඔබට පෙන්වනුයේ ඩිරෙක්ටරිය හෝ දී ඇති ෆෝල්ඩරයක ඇති ගොනු ය. මෙම ශ්‍රිතය සමඟින් පළමු ගොනුව ද එය ආපසු ලබා දිය හැක. මෙම කාර්යය විශේෂිත ගොනු සහ ෆෝල්ඩර ලබා ගැනීමට බොහෝ භාවිතයන් ඇත. ඔබට අවශ්‍ය වන්නේ VBA කේතයේ ගමන් මාර්ගයට ගොනු මාර්ගය ඇතුළු කිරීමට පමණි. ඔබට VBA DIR කේත භාවිතා කිරීම අපහසු විය හැක. කණගාටු නොවන්න, මෙම ලිපියෙන් අපි ඔබට VBA DIR කාර්යය භාවිතා කිරීමට වඩා හොඳ දෘශ්‍යකරණයක් සඳහා උදාහරණ කිහිපයක් පෙන්වන්නෙමු. ලිපිය කියවීමෙන් පසු ඔබට කාර්යය භාවිතා කිරීමට හැකි වනු ඇතැයි බලාපොරොත්තු වෙනවා. ඉතින්, අපි පටන් ගනිමු.

පුහුණු වැඩපොත බාගන්න

පහත පුහුණු වැඩපොත බාගන්න. එය ඔබට විෂය වඩාත් හොඳින් අවබෝධ කර ගැනීමට උපකාරී වනු ඇත.

DIR Function.xlsm

DIR කාර්යයට හැඳින්වීම

සාරාංශය:

VBA DIR ශ්‍රිතය ලබා දී ඇති ෆෝල්ඩර මාර්ගයකින් ගොනුවක හෝ නාමාවලියක නම ලබා දෙයි. සම්ප්‍රදායිකව, එය පළමු ගොනුව ආපසු ලබා දෙයි.

Syntax:

Dir [ (pathname, [ attributes ] ) ]

තර්ක පැහැදිලි කිරීම:

12>
තර්කය අවශ්‍ය/විකල්ප පැහැදිලි කිරීම
PathName විකල්ප Path ගොනුවට ප්‍රවේශ වීමට සහ නිශ්චය කරයි
ගුණාංග විකල්ප ස්ථාවර හෝ සංඛ්‍යාත්මක ප්‍රකාශනය ගැළපෙන ගොනුවල ගුණාංග නියම කරයි
0>පෙර කිහිපයක් තිබේනිර්වචනය කළ ගුණාංග, ඒවා නම්-
ගුණාංග නාමය විස්තරය
vbසාමාන්‍ය ගොනු නිශ්චිත ගුණාංග නොමැතිව
vbReadOnly කිසිදු ගුණාංගයක් නොමැති කියවීමට පමණක් ගොනු
vbHidden සැඟවී ඇත ගුණාංග නොමැති ගොනු
vbSystem උලක්ෂණ නොමැති පද්ධති ගොනු
vbVolume වෙළුම් ලේබලය
vbDirectory උපලක්ෂණ නොමැති නාමාවලි හෝ ෆෝල්ඩර
vbAlias නිශ්චිත ගොනු නාමය අන්වර්ථයකි

7 Excel හි VBA DIR ශ්‍රිතය භාවිතා කිරීමේ උදාහරණ

විස්තරයෙන්, VBA DIR ක්‍රියාකාරීත්වය සපයන බව ඔබට වැටහෙන්නට ඇත. සපයා ඇති මාර්ගයෙන් ගොනු නාමය. අපි එය උදාහරණයෙන් තේරුම් ගනිමු. මෙන්න අපි ඔබට විවිධ උදාහරණ පෙන්වීමට Exceldemy_Folder නාමාවලියක් සාදා ඇත. මෙම ෆෝල්ඩරය තුළ විවිධ කුඩා ෆෝල්ඩර සහ ගොනු ඇත.

1. මාර්ගයෙන් ගොනු නාමය සොයන්න

අපගේ ෆෝල්ඩරයේ, අපට නිශ්චිත ගොනුවක් සොයා ගත හැක ගොනු නාම මාර්ගය ප්‍රකාශ කිරීම.

ගොනුවේ මාර්ගය පිටපත් කිරීමෙන් පසු, ඔබ කේතය ක්‍රියාත්මක කළ යුතුය.

මේ හේතුව නිසා, සංවර්ධක tab >> Visual Basic තෝරන්න. ඉන්පසු ඇතුළු කරන්න ටැබය වෙත යන්න >> මොඩියුලය තෝරන්න. සාමාන්‍ය සංවාද කොටුව තුළ, අපි කේතය ලියන්නෙමු.

අපගේ න්‍යාය පත්‍රය ලෙස <1 සොයා ගැනීමයි>ගොනු නාමය pathname වෙතින්, අපි සකසන්නෙමුසම්පූර්ණ pathname (මූලයේ සිට ගොනුව දක්වා) සහ අපගේ කේතය වනුයේ

1233

මෙහි අපගේ කේතය තුළ, අපි මාර්ග නාමය E:\Exceldemy\Sales_of_January ලෙස සකසා ඇත. xlsx

කේත බිඳවැටීම:

  • මුලදී, අපි FN<නමින් තන්තු විචල්‍යයක් ප්‍රකාශ කළෙමු. 2>. තවද Dir ශ්‍රිතයේ ප්‍රතිදානය මෙම විචල්‍යය තුළ සුරැකිණි.
  • ඊළඟට, Dir ශ්‍රිතය මඟින් ගොනු නාමය සොයාගෙන එය සපයා ඇති මාර්ගයෙන් ආපසු ලබා දේ.
  • ඉන්පසු MsgBox පණිවිඩ පෙට්ටිය හරහා ප්‍රතිදානය සකසයි. MsgBox පණිවිඩ පෙට්ටියක් භාවිතයෙන් ප්‍රතිදානය ලබා දෙයි.
  • ඉන්පසු, F5 යතුර සමඟ කේතය ක්‍රියාත්මක කරන්න.

අවසාන වශයෙන්, අපි Sales_of_January.xlsx නම් ගොනුව සොයාගෙන ඇත.

2. නාමාවලියක පැවැත්ම පරීක්ෂා කරන්න

අපට Dir ශ්‍රිතය භාවිතයෙන් නාමාවලියක පැවැත්ම පරීක්ෂා කළ හැක. Exceldemy ෆෝල්ඩරය තිබේදැයි පරීක්ෂා කිරීමට කේතය ලියමු. පහත කේතය සාමාන්‍ය කොටුවේ ලියා එය F5 යතුර සමඟ ක්‍රියාත්මක කරන්න.

9751

කේත බිඳවැටීම :

  • අපි විචල්‍ය දෙකක් ප්‍රකාශ කර ඇත; PN හි අපගේ පිරික්සුම් නාමාවලියෙහි සම්පූර්ණ පථ නාමය අඩංගු වේ.
  • මෙහි Dir ශ්‍රිතය තුළ, අපි අගයන් දෙකක් සකසා ඇත, pathname සහ attribute අගය vbDirectory ලෙස. මෙම ගුණාංග අගය නාමාවලිය හඳුනා ගැනීමට උපකාරී වේ. තවද මෙම ශ්‍රිතයේ ප්‍රතිදානය ගබඩා කර ඇත File variable.
  • ඊට පස්සේ අපි බැලුවා variable එක හිස්ද නැද්ද කියලා. විචල්‍යය නොමැති බව අපට පෙනී ගියහොත්, නාමාවලියෙහි පැවැත්ම පණිවිඩ පෙට්ටියක් හරහා ප්‍රකාශ කරන්න, එසේ නොමැතිනම්, ආපසු පැමිණීම නොපවතී.

මෙහි, Exceldemy බහලුම පවතී, එබැවින් අපි " Exceldemy පවතී " සොයාගනු ඇත, එහිදී Exceldemy යනු ෆෝල්ඩරයේ නමයි.

3. නොපවතින ෆෝල්ඩරයක් සාදන්න

ඔබගේ පරිගණකයේ නොමැති ෆෝල්ඩරයක් සෑදිය හැක. මේ සඳහා ඔබගේ ෆෝල්ඩර වල නොමැති pathname එකක් සාදාගත යුතුය. අපි හිතමු අපි Exceldemy_1 නමින් නාමාවලියක් නිර්මාණය කිරීමට යන බව. ඩිරෙක්ටරිය සෑදීමට අපි MkDir විධානය භාවිතා කරන්නෙමු, නමුත් ඊට පෙර, අපි පහත VBA කේතය ලිවිය යුතුය.

1767

0>මෙහිදී අපි අපගේ කේතයේ Elseකොටසේ ඇති pathname භාවිතා කරමින් නාමාවලිය නිර්මාණය කිරීමට විධානයක් ලියා ඇත. F5යතුර සමඟ කේතය ධාවනය කරන්න.

ඩිරෙක්ටරිය නිර්මාණය කර ඇත. අපි නාමාවලි ෆෝල්ඩරය දෙස බලමු. Exceldemy_1 ෆෝල්ඩරය දැන් ඔබේ පරිගණකයේ දෘශ්‍යමාන වේ.

සමාන කියවීම්:

  • Excel හි VBA හි උපක්‍රමයක් අමතන්නේ කෙසේද (උදාහරණ 4)
  • VBA ශ්‍රිතයේ අගයක් ආපසු දෙන්න (Aray සහ Non-array අගයන් දෙකම)
  • Excel හි VBA UCASE ශ්‍රිතය භාවිතා කරන්න (උදාහරණ 4)
  • TRIM ක්‍රියාකාරිත්වය භාවිතා කරන්නේ කෙසේදExcel හි VBA (අර්ථ දැක්වීම + VBA කේතය)

4. ඩිරෙක්ටරියකින් පළමු ගොනුව සොයන්න

Dir ශ්‍රිතයේ ප්‍රධාන කාර්යය වන්නේ සපයා ඇති නාමාවලියෙහි පළමු ගොනුව සොයා ගැනීමට. ශ්‍රිතය තුළ ඔබට සැපයීමට අවශ්‍ය වන්නේ පථ නාමය (කන්ටේනර් නාමාවලිය දක්වා) වන අතර, එය එම නාමාවලියෙන් පළමු ගොනුව ආපසු ලබා දෙනු ඇත.

අපි අපගේ වෙතින් පළමු ගොනුව සොයා ගනිමු. Exceldemy නාමාවලිය. අපගේ කේතය වනු ඇත

7762

ඔබට මූලික කේතය දැකිය හැක; අපි pathname එක Dir ශ්‍රිතය වෙත යොමු කර ඇත. දැන් Run කේතය F5 යතුර සමඟින්, ඔබට මෙම නාමාවලියෙහි පළමු ගොනුව සොයාගත හැකිය.

5. සියල්ල සොයන්න නාමාවලියකින් ගොනු

පෙර කොටසේදී, නාමාවලියකින් පළමු ගොනු නාමය සොයා ගන්නේ කෙසේදැයි අපි දැක ඇත්තෙමු. ඔබට විශේෂිත නාමාවලියකින් සියලුම ගොනු සොයා ගැනීමට අවශ්ය වන විට තත්වය මතු විය හැකිය. නිශ්චිත බහලුමක ඇති සියලුම ගොනු සොයා ගැනීමට, ඔබ පහත VBA කේතය ලිවිය යුතුය.

2562

මෙහිදී ගොනු නාම ගබඩා කිරීමට විචල්‍ය දෙකක් ඇත. තනි ( FN ), සහ ලැයිස්තුවක් ලෙස ( FL ). Do while loop එක නැවත නැවත ක්‍රියා කරයි කිසිදු ගොනුවක් නාමාවලියෙහි ඉතිරි නොවේ, මෙම ලූපය භාවිතා කරමින්, අපි සෑම ගොනු නාමයක්ම FL විචල්‍යයට තල්ලු කරමු.

කේතය ක්‍රියාත්මක කරන්න, පහත රූපයේ මෙන් ඔබට නාමාවලියෙහි ඇති සියලුම ගොනු සොයා ගත හැක.

6. නාමාවලියකින් සියලුම ගොනු සහ ෆෝල්ඩර සොයන්න

අපිසියලුම ලිපිගොනු සොයා ගත හැකි ස්ථානය කලින් කොටසේ සඳහන් කර ඇත. ෆෝල්ඩරයක ඇති සියලුම උප ෆෝල්ඩර අපට සොයාගත හැකිය. මෙය සිදු කිරීම සඳහා, අපි පහත අමුණා ඇති පහත දැක්වෙන VBA කේතය ලියන්න.

6486

අපගේ කේතය වෙනස් කිරීම ගුණාංග පරාමිති භාවිතා කිරීම පමණි. අපි එම ක්ෂේත්‍රයේ vbDirectory භාවිතා කර ඇත. ධාවනය කරන්න කේතය, එවිට ඔබට Exceldemy_Folder හි සියලුම ගොනු සහ උප ෆෝල්ඩර සොයා ගත හැක.

7 . විශේෂිත වර්ගයක සියලුම ගොනු සොයන්න

VBA Dir ශ්‍රිතය භාවිතයෙන්, අපට ඕනෑම විශේෂිත ගොනු වර්ගයක් සොයාගත හැක. අපි උදාහරණයක් සමඟින් ගවේෂණය කරමු.

අපි අපගේ නාමාවලියෙන් .csv ගොනු සොයා ගන්නෙමු. අපගේ කේතය පහත පරිදි වනු ඇත-

4194

ගොනු සෙවීම සඳහා සමාන යාන්ත්‍රණයක් භාවිතා කරන කේතය ඔබ තේරුම් ගෙන ඇතැයි අපි බලාපොරොත්තු වෙමු. මාර්ග නාමයේදී, අපි Wildcard එකක් භාවිතා කළෙමු ( * ). මෙම තරු ලකුණ (*) යන්නෙන් අදහස් කරන්නේ ඕනෑම අංකයක් දක්වා ඕනෑම අක්ෂරයක් සිදුවිය හැකි බවයි. ගොනු නාමය ඕනෑම දෙයක් විය හැකි නමුත් .csv ගොනුවක් විය යුතු ආකාරයට Wildcard භාවිතා කර ඇත.

ඔබ කේතය ධාවනය කරන විට, එය ලබා දෙයි. csv ගොනු අපගේ Exceldemy නාමාවලියෙන්.

අභ්‍යාස අංශය

අපි පුහුණුවක් සපයා ඇත ඔබේ පුහුණුවීම් සඳහා දකුණු පැත්තේ එක් එක් පත්‍රයේ කොටස. කරුණාකර එය ඔබම කරන්න.

නිගමනය

අද සැසිය ගැන එච්චරයි. ඒ වගේම මේ සරල උදාහරණ කිහිපයක්එක්සෙල් හි VBA Dir කාර්යයේ. ඔබට කිසියම් ප්‍රශ්නයක් හෝ යෝජනා ඇත්නම් කරුණාකර අදහස් කොටසේ අපට දන්වන්න. වඩා හොඳ අවබෝධයක් සඳහා, කරුණාකර පුහුණු පත්‍රිකාව බාගන්න. අපගේ වෙබ් අඩවිය, Exceldemy , එක්-නැවතුම් Excel විසඳුම් සපයන්නා වෙත පිවිසෙන්න, විවිධ වර්ගයේ Excel ක්‍රම ගැන සොයා බලන්න. මෙම ලිපිය කියවීමේදී ඔබගේ ඉවසීමට ස්තූතියි.

කලින් පෝස්ට් එක Excel හි Active Cell වෙතින් පරාසයක් තෝරා ගැනීමට VBA භාවිතා කරන්නේ කෙසේද (ක්‍රම 3)
ඊළඟ පෝස්ට් එක Excel හි වැඩපොත අවසන් ලෙස සලකුණු කරන්නේ කෙසේද (පහසු පියවර සමඟ)

Hugh West යනු ක්ෂේත්‍රයේ වසර 10කට වැඩි පළපුරුද්දක් ඇති ඉතා පළපුරුදු Excel පුහුණුකරුවෙකු සහ විශ්ලේෂකයෙකි. ඔහු ගිණුම්කරණය සහ මූල්‍ය පිළිබඳ ශාස්ත්‍රවේදී උපාධියක් සහ ව්‍යාපාර පරිපාලනය පිළිබඳ ශාස්ත්‍රපති උපාධියක් ලබා ඇත. හියු ඉගැන්වීම සඳහා දැඩි ආශාවක් ඇති අතර අනුගමනය කිරීමට සහ තේරුම් ගැනීමට පහසු වන අද්විතීය ඉගැන්වීම් ප්‍රවේශයක් වර්ධනය කර ඇත. ඔහුගේ Excel පිළිබඳ විශේෂඥ දැනුම ලොව පුරා සිටින දහස් ගණනක් සිසුන්ට සහ වෘත්තිකයන්ට ඔවුන්ගේ කුසලතා වැඩිදියුණු කිරීමට සහ ඔවුන්ගේ වෘත්තීය ජීවිතය තුළ විශිෂ්ටත්වයට පත් කිරීමට උපකාර කර ඇත. ඔහුගේ බ්ලොගය හරහා, හියු ඔහුගේ දැනුම ලෝකය සමඟ බෙදා ගනී, නොමිලේ එක්සෙල් නිබන්ධන සහ පුද්ගලයන්ට සහ ව්‍යාපාරවලට ඔවුන්ගේ පූර්ණ හැකියාවන් කරා ළඟා වීමට උපකාර කිරීමට මාර්ගගත පුහුණුව ලබා දෙයි.