අන්තර්ගත වගුව
ස්වභාවිකව, අපට වෙනත් නාමාවලියක VBA භාවිතයෙන් මව් Excel ගොනුවකින් ගොනුව විවෘත කිරීමට අවශ්ය විය හැක. නමුත් ඒ සමඟම, අපට වැඩපොත විවෘත කිරීමට අවශ්ය ආකාරය පිළිබඳ විවිධ නිර්ණායක ද ඇත. විචල්ය නාමයෙන් ඔබට වැඩපොතක් විවෘත කරන්නේ කෙසේදැයි දැන ගැනීමට ඔබ කුතුහලයෙන් සිටින්නේ නම්, මෙම ලිපිය ඔබට ප්රයෝජනවත් වනු ඇත. මෙම ලිපියෙන්, අපි විස්තරාත්මක පැහැදිලි කිරීම් සමඟ Excel හි VBA භාවිතයෙන් විචල්ය නාමයක් සහිත වැඩපොතක් විවෘත කරන්නේ කෙසේදැයි අපි සාකච්ඡා කරමු.
පුහුණු වැඩපොත බාගන්න
මෙම පුහුණු වැඩපොත පහතින් බාගන්න.
VBA.xlsm භාවිතයෙන් විචල්ය නම සමඟ වැඩපොත විවෘත කරන්න
Sample.xlsx
4 පහසු Excel හි VBA භාවිතා කරමින් විචල්ය නාමයක් සහිත වැඩපොත විවෘත කිරීමට ක්රම
අපි නිරූපණය සඳහා පහත දත්ත කට්ටලය භාවිතා කරන්නෙමු. නිෂ්පාදන කිහිපයක නිෂ්පාදන තොරතුරු ඔවුන්ගේ හැඳුනුම්පත සමඟ අප සතුව ඇත. මෙය අපි VBA කේතය භාවිතයෙන් විවෘත කිරීමට යන නියැදි ගොනුවකි.
1. වැඩපොත භාවිතා කිරීම.විවෘත දේපල
වැඩපොත භාවිතා කිරීම .විවෘත දේපල, අපට නාමාවලිය සඳහන් කිරීමෙන් හෝ ස්ථානය සඳහන් නොකර ගොනු විවෘත කළ හැක. අපට විවෘත කරන ලද ගොනුව කියවීමට පමණක් කළ හැක.
1.1 විවෘත වැඩපොත සඳහන් කිරීමේ ගොනු මාර්ගය
ඊළඟ ක්රමයේදී, අපි Workbook.Open Property භාවිතා කරන්නෙමු. සඳහන් කළ ගොනු ස්ථාන නාමාවලියෙන් ගොනුව කෙලින්ම විවෘත කිරීමට. ගොනුව පිහිටා ඇති ස්ථානය කුමක් වුවත්, අපට ගොනුව විවෘත කළ හැකියඑනම් Sub Open_File_with_Add_Property()
⮚ එවිට අපි File_Path විචල්යය String type ලෙස ප්රකාශ කරමු.
2440
⮚ සහ File_Path විචල්යය ගොනුවේ ස්ථානයට සකසන්න.
8019
⮚ අපි Wb වැඩපොත වර්ගය තුළ විචල්යයක් ලෙස ප්රකාශ කරමු.
1227
⮚ පසුව Workbook.Add දේපල භාවිතයෙන් File_Path ස්ථානයේ ගබඩා කර ඇති බහලුමෙන් වැඩපොත එකතු කරනු ලැබේ.
4167
⮚ අවසාන වශයෙන්, අපි අවසන් කරමු. මෙම කේතයේ උප ක්රියා පටිපාටිය.
වැඩිදුර කියවන්න: [ස්ථාවර!] වස්තු වැඩපොත් විවෘත කිරීමේ ක්රමය අසාර්ථකයි (විසඳුම් 4ක්)
නිගමනය
එය සාරාංශ කිරීම සඳහා, අපට VBA භාවිතයෙන් විචල්ය නම් සහිත වැඩපොත් විවෘත කරන්නේ කෙසේද යන ගැටලුවට විවිධ උදාහරණ 4 කින් මෙහි පිළිතුරු සපයනු ලැබේ. VBA Macro ක්රමයට මුල සිටම තේරුම් ගැනීමට පෙර VBA-ආශ්රිත දැනුම අවශ්ය වේ.
මෙම ගැටලුව සඳහා, ඔබට පුහුණු විය හැකි ස්ථාන බාගැනීමට සාර්ව සක්රීය වැඩපොතක් තිබේ. මෙම ක්රම.
අදහස් අංශය හරහා ඕනෑම ප්රශ්නයක් හෝ ප්රතිපෝෂණ ඇසීමට නිදහස් වන්න. Exceldemy ප්රජාවගේ අභිවෘද්ධිය සඳහා වන ඕනෑම යෝජනාවක් ඉතා අගය කළ යුතුය
පහසුවෙන්.පියවර
- අපට විවෘත කිරීමට අවශ්ය ලේඛන ෆෝල්ඩරයේ ගොනුවක් ගබඩා කර ඇත.
- අපි ගොනුව භාවිතා කරන්නෙමු. විචල්යයක් ලෙස නම් කර කුඩා VBA මැක්රෝ එකක් භාවිතයෙන් ගොනුව විවෘත කරන්න.
- ගොනුවේ නියම ගොනු නාමාවලිය ගුණාංග කවුළුවේ පහත දැක්වේ.
<1
- මුලින්ම Developer tab එකට ගොස් Visual Basic ක්ලික් කරන්න. ඔබට එය නොමැති නම්, ඔබට සංවර්ධක ටැබය සක්රීය කළ යුතුය . නැතහොත් ඔබට දෘශ්ය මූලික සංස්කාරකය විවෘත කිරීම සඳහා ' Alt+F11' ඔබන්න.
- එවිට නව සංවාද පෙට්ටියක් එනු ඇත, එම සංවාද කොටුවෙහි, ඇතුළු කරන්න > මොඩියුලය මත ක්ලික් කරන්න.
- ඊළඟට, මොඩියුලය සංස්කාරක කවුළුවෙහි, පහත කේතය ටයිප් කරන්න:
9053
- ඉන්පසු <වසන්න. 6>මොඩියුලය කවුළුව.
- ඉන් පසු, View ටැබ් > Macros වෙත යන්න.
- ඉන්පසු View මත ක්ලික් කරන්න. Macros .
- View Macros ක්ලික් කිරීමෙන් පසු, ඔබ දැන් නිර්මාණය කළ macros තෝරන්න. මෙහි නම Open_with_File_Path වේ. ඉන්පසු Run ක්ලික් කරන්න.
- ඉන් පසු නියැදි ගොනුව විවෘත වේ.
🔎 කේතයේ බිඳවැටීම
2303
⮚ පළමුව, අපි උප- සඳහා නමක් සපයන්නෙමු. Open_with_File_Path වන ක්රියා පටිපාටිය.
3509
⮚ ඉන්පසුව, අපි ගොනුවේ පිහිටීම File_Path variable
2447
⮚ තුළ තබමු.ඉන්පසුව, අපි අපගේ විචල්යය wrkbk ප්රකාශ කරමු, එහි වර්ගය වැඩපොතක් වේ.
2287
⮚ ඉන්පසුව, අපි File_Path බහලුම විචල්යයේ නම් කර ඇති ගොනුව විවෘත කර ගොනුව සකසන්න. wrkbk විචල්යය ලෙස.
7167
⮚ අවසාන වශයෙන්, අපි මෙම කේතයේ උප ක්රියා පටිපාටිය අවසන් කරමු.
තවත් කියවන්න: කෙසේද Excel VBA භාවිතයෙන් Path වෙතින් වැඩපොත විවෘත කරන්න (උදාහරණ 4)
1.2 ගොනු මාර්ගය සඳහන් නොකර වැඩපොත විවෘත කරන්න
ඊළඟ ක්රමයේදී, අපි ගොනුව මව් ෆෝල්ඩරයෙන් විවෘත කරන්නෙමු. ප්රධාන ගොනුව සුරැකේ. කේතයේ කිසිදු ස්ථානයක් සඳහන් නොකර ගොනුව විවෘත කළ හැකිය. මෙම ගොනුව මාපිය ෆෝල්ඩරය ඇති එකම ෆෝල්ඩරයේම තිබිය යුතුය.
පියවර
- අපට වෙනත් ගොනුවක් මව්පියන් සිටින නාමාවලියේම සුරැකී ඇත. Excel ගොනුව දැන් සුරකින ලදි.
- ගොනුවේ නම 1 වේ.
- මුලින්ම, සංවර්ධක<7 වෙත යන්න> ටැබය සහ දෘශ්ය මූලික මත ක්ලික් කරන්න. ඔබට එය නොමැති නම්, ඔබට සංවර්ධක ටැබය සක්රීය කළ යුතුය . නැතහොත් ඔබට දෘශ්ය මූලික සංස්කාරකය විවෘත කිරීම සඳහා ' Alt+F11 ' ඔබන්න.
- එවිට නව සංවාද පෙට්ටියක් එනු ඇත, එම සංවාද කොටුවෙහි, ඇතුළු කරන්න > මොඩියුලය මත ක්ලික් කරන්න.
- ඊළඟට, මොඩියුලය සංස්කාරක කවුළුවෙහි, පහත කේතය ටයිප් කරන්න:
5939
- ඉන්පසු <වසන්න. 6>මොඩියුලය කවුළුව.
- ඉන් පසු, View ටැබ් > Macros වෙත යන්න.
- ඉන්පසු View මත ක්ලික් කරන්න.Macros .
- Vew Macros ක්ලික් කිරීමෙන් පසුව, ඔබ දැන් නිර්මාණය කළ macros තෝරන්න. මෙහි නම Open_without_File_Path වේ. ඉන්පසු Run ක්ලික් කරන්න.
- Run එබීමෙන් පසුව, 1 නම් ගොනුව දැන් විවෘත වී ඇති බව ඔබට පෙනෙනු ඇත.
- එමෙන්ම අපි Excel හි VBA භාවිතයෙන් විචල්ය නාමය සහිත වැඩපොත විවෘත කරන්නේ මෙලෙසයි. කේතය
7403
⮚ පළමුව, අපි Sub Open_without_File_Path()
1705
⮚ අපි wrkbk උප ක්රියා පටිපාටිය සඳහා නමක් සපයන්නෙමු. 7> වැඩපොත් වර්ගයෙහි විචල්යයක් ලෙස
7778
⮚ අපි 1.xlsx නම් වූ මව් නාමාවලියෙන් ගොනුව විවෘත කරමු.
5476
⮚ අවසාන වශයෙන්, අපි උප ක්රියා පටිපාටිය අවසන් කරමු. මෙම කේතයේ.
1.3 වැඩපොත කියවීමට පමණක් ලෙස විවෘත කරන්න
මෙම ක්රමය පළමු ක්රමයට බෙහෙවින් සමාන ය, නමුත් මෙහිදී අපි ගොනුව කියවීමට-පමණක් ආකාරයෙන් විවෘත කරන්නෙමු, එනම් අපි එසේ නොකරනු ඇත. Excel ගොනුවේ ඕනෑම දත්තයක් හෝ අගයක් වෙනස් කිරීමට හැකියාව ඇත.
පියවර
- අපට විවෘත කිරීමට අවශ්ය ගොනුව ලේඛන ෆෝල්ඩරය තුළ සුරැකේ.
- සහ මෙය අපට කියවීමට පමණක් ලෙස විවෘත කිරීමට අවශ්ය ගොනුවයි.
- පළමුව, සංවර්ධකයා වෙත යන්න ටැබ් එක ක්ලික් කර දෘශ්ය මූලික<7 මත ක්ලික් කරන්න>. ඔබට එය නොමැති නම්, ඔබට සංවර්ධක ටැබය සක්රීය කළ යුතුය . නැතහොත් ඔබට දෘශ්ය මූලික සංස්කාරකය විවෘත කිරීම සඳහා ' Alt+F11 ' ඔබන්න.
- එවිට අලුත් එකක් එයි. සංවාද කොටුව, එම සංවාද කොටුව තුළ, මත ක්ලික් කරන්න > මොඩියුලය ඇතුළු කරන්න.
- ඊළඟට, මොඩියුලය සංස්කාරක කවුළුව තුළ, ටයිප් කරන්න පහත කේතය:
1664
- ඉන්පසු මොඩියුලය කවුළුව වසා දමන්න.
- ඉන් පසු, View ටැබය වෙත යන්න > Macros .
- ඉන්පසු View Macros මත ක්ලික් කරන්න.
- Vew ක්ලික් කිරීමෙන් පසු මැක්රෝස්, ඔබ දැන් නිර්මාණය කළ මැක්රෝ තෝරන්න. මෙහි නම Open_with_File_Read_Only වේ. ඉන්පසු Run ක්ලික් කරන්න.
- Run ක්ලික් කිරීමෙන් පසුව, ගොනුව දැන් විවෘත වී ඇති බව අපට පෙනෙනු ඇත. මාතෘකා තීරුවේ පෙන්වා ඇති පරිදි කියවීමට පමණි
2542
⮚ පළමුව, අපි Open_with_File_Read_Only()
5262
⮚ අපි wrkbk වැඩපොත් වර්ගය අනුව විචල්යයක් ලෙස ප්රකාශ කරන්නෙමු උප-ක්රියාපටිපාටිය සඳහා නමක් සපයන්නෙමු. 1>
7980
⮚ ගොනුව පසුව නම් කරන ලද නාමාවලියෙන් විවෘත වනු ඇත, අවසාන තර්කය මඟින් ගොනුව කියවීමට පමණක් සකසනු ඇත.
8697
⮚ අවසාන වශයෙන්, අපි අවසන් කරන්නේ මෙම කේතයේ උප ක්රියා පටිපාටිය.
වැඩිදුර කියවන්න: Excel VBA සමඟින් කියවීමට පමණක් ලෙස වැඩපොත විවෘත කරන්නේ කෙසේද
2. පණිවිඩ පෙට්ටිය භාවිතා කිරීම
පෙර ක්රමයට බොහෝ දුරට සමානව, අපට මෙහි VBA කේතය හරහා Excel හි ගොනු විවෘත කළ හැක, නමුත් මෙම අවස්ථාවේදී, අපි මෙහි කුඩා පණිවිඩ පෙට්ටියක් ඇතුළත් කරන්නෙමු.
පියවර
- මුලින්ම Developer tab එකට ගොස් Visual Basic ක්ලික් කරන්න. ඔබට එය නොමැති නම්, ඔබට සබල කිරීමට සිදුවේසංවර්ධක ටැබය . නැතහොත් ඔබට දෘශ්ය මූලික සංස්කාරකය විවෘත කිරීම සඳහා ' Alt+F11' ඔබන්න.
- එවිට නව සංවාද පෙට්ටියක් එනු ඇත, එම සංවාද කොටුවෙහි, ඇතුළු කරන්න > මොඩියුලය මත ක්ලික් කරන්න.
- ඊළඟට, මොඩියුලය සංස්කාරක කවුළුවෙහි, පහත කේතය ටයිප් කරන්න:
8069
- ඉන්පසු <වසන්න. 6>මොඩියුලය කවුළුව.
- ඉන් පසු, View ටැබ් > Macros වෙත යන්න.
- ඉන්පසු View මත ක්ලික් කරන්න. Macros .
- View Macros ක්ලික් කිරීමෙන් පසු, ඔබ දැන් නිර්මාණය කළ macros තෝරන්න. මෙහි නම Open_File_with_Messege_Box වේ. ඉන්පසු Run ක්ලික් කරන්න.
- ඉන්පසු අපට අනතුරු ඇඟවීමේ පෙට්ටිය ලැබුණි, එයින් පෙන්නුම් කරන්නේ ගොනුව සාර්ථකව විවෘත වී ඇති බවයි. . විවෘත කරන්න.
- ඉන්පසු අපි කේතය ටිකක් වෙනස් කිරීමට උත්සාහ කරමු.
- අපි ගොනුවේ නම ලෙස වෙනස් කරමු Sample10 , සහ ලේඛන ෆෝල්ඩරයේ Sample10 නම් ගොනුවක් නොමැත. නැවත කේතය ක්රියාත්මක කරන්න, එවිට ගොනුව විවෘත කිරීම අසාර්ථක විය යනුවෙන් පණිවිඩ පෙට්ටියක් ඇත.
- මෙයට පසුව හරි ක්ලික් කරන්න.
🔎 සංග්රහයේ බිඳවැටීම
7512
⮚ පළමුව, අපි උප ක්රියා පටිපාටිය සඳහා නමක් සපයන්නෙමු. Open_with_File_Read_Only()
7666
⮚ අපි wrkbk වැඩපොතේ විචල්යයක් ලෙස ප්රකාශ කරන්න ගොනුව විවෘත කරන්න, ඒ සමඟම පණිවිඩය පෙන්වනු ඇත.
9889
⮚ නාමාවලියෙහි නියැදිය නමින් ගොනුවක් නොමැති නම්, මෙම පණිවිඩය භාර දෙනු ඇත.
6610
⮚ අවසාන වශයෙන්, අපි මෙම කේතයේ උප ක්රියා පටිපාටිය අවසන් කරමු.
5654
⮚ අවසාන වශයෙන්, අපි මෙම කේතයේ උප ක්රියා පටිපාටිය අවසන් කරමු.
වැඩිදුර කියවන්න: VBA භාවිතයෙන් වැඩපොත විවෘත කරන්නේ කෙසේද සහ මැක්රෝ ධාවනය කරන්නේ කෙසේද (උදාහරණ 4)
3. ගොනුව විවෘත කිරීමට Dialog Box භාවිතා කිරීම
ගොනු ස්ථාන නාමාවලිය උපුටා ගැනීම සහ ඒවා එක් එක් වර ආයාත කිරීම VBA කේතය තරමක් අපහසුයි. ගැටළුව විසඳීම සඳහා, ඔබට ඕනෑම ඩිරෙක්ටරියකින් ගොනුවක් තෝරා ගැනීමට සංවාද කොටුවක් භාවිතා කළ හැකි ආකාරය අපි පෙන්වන්නෙමු.
පියවර
- දැන් අපි ගොනුව විවෘත කරන්නෙමු. ගොනු ගවේෂක සංවාද කොටුව භාවිතයෙන්.
- පළමුව, සංවර්ධක ටැබය වෙත ගොස් දෘශ්ය මූලික මත ක්ලික් කරන්න. ඔබට එය නොමැති නම්, ඔබට සංවර්ධක ටැබය සක්රීය කළ යුතුය . නැතහොත් ඔබට දෘශ්ය මූලික සංස්කාරකය විවෘත කිරීම සඳහා ' Alt+F11' ඔබන්න.
- එවිට නව සංවාද පෙට්ටියක් එනු ඇත, එම සංවාද කොටුවෙහි, ඇතුළු කරන්න > මොඩියුලය මත ක්ලික් කරන්න.
- ඊළඟට, මොඩියුලය සංස්කාරක කවුළුවෙහි, පහත කේතය ටයිප් කරන්න:
9182
- ඉන්පසු මොඩියුලය වසන්න. කවුළුව.
- ඉන් පසු, View tab > Macros වෙත යන්න.
- ඉන්පසු View Macros<7 මත ක්ලික් කරන්න>.
- View Macros ක්ලික් කිරීමෙන් පසු, ඔබ දැන් නිර්මාණය කළ macros තෝරන්න. මෙහි නම Open_File_with_Dialog_Box වේ. ඉන්පසු Run ක්ලික් කරන්න.
- ඉන්පසු නව කවුළුවක් විවෘත වේ. ගොනු ගවේෂක සංවාද කොටුව තුළ නියැදිය තෝරා OK ක්ලික් කරන්න.
- ඉන්පසු නම් කර ඇති ගොනුව නියැදිය විවෘත විය.
- අපි Excel හි VBA භාවිතයෙන් විචල්ය නාමය සහිත වැඩපොත විවෘත කරන්නේ මෙලෙසයි.
🔎 කේතයේ බිඳවැටීම
8919
⮚ පළමුව, අපි Sub Open_File_with_Dialog_Box()
උප ක්රියා පටිපාටිය සඳහා නමක් සපයන්නෙමු.5127
⮚ අපි Dbox FileDialog type
5554
⮚ විචල්යයක් ලෙස File_Path විචල්යයක් ලෙස ප්රකාශ කරමු>File_Path ලෙස String type
8417
⮚ පළමු පේළියේ සිට සංවාද කොටුවක් ඇත. ඊළඟ පේළිය සංවාද කොටුවේ නම සහ ගොනු වර්ගය දක්වයි.
⮚ Dbox.Title සංවාද කොටුවේ මාතෘකාව සකසනු ඇත. සහ
FileType
ගොනු වර්ගය සකසන්න.8451
⮚ Dbox.Filters.Clear diaog පෙට්ටියෙහි යෙදී ඇති ඕනෑම පෙර පෙරහන ඉවත් කරයි
3713
⮚ Dbox.Show මඟින් සංවාද කොටුව ගොනුව මත දිස්වේ.
⮚ මෙම පේළිය පරිශීලකයා ගොනු එකකට වඩා තෝරා ගත්තේද නැද්ද යන්න තීරණය කරයි. පරිශීලකයා වඩා තෝරා ගන්නේ නම්එක් ගොනුවක්, සම්පූර්ණ ක්රියා පටිපාටිය නතර වනු ඇත.
2210
⮚ අවසාන වශයෙන්, අපි මෙම කේතයේ උප ක්රියා පටිපාටිය අවසන් කරමු.
වැඩිදුර කියවන්න: විවෘත කරන්නේ කෙසේද ෆෝල්ඩරය සහ Excel VBA භාවිතයෙන් ගොනුව තෝරන්න (උදාහරණ 4)
4. වැඩපොත භාවිතා කිරීම. දේපල එකතු කිරීම
පෙර ක්රමවලට පටහැනිව, අපි කලින් තීරණය කළ නාමාවලියක නව Excel ගොනුවක් සාදන්නෙමු. ඉන්පසු අපි එය වැඩපොත භාවිතයෙන් විවෘත කරන්නෙමු. දේපල එකතු කරන්න.
පියවර
- මුලින්ම Developer tab එකට ගොස් Visual Basic<මත ක්ලික් කරන්න 7>. ඔබට එය නොමැති නම්, ඔබට සංවර්ධක ටැබය සක්රීය කළ යුතුය . නැතහොත් ඔබට දෘශ්ය මූලික සංස්කාරකය විවෘත කිරීම සඳහා ' Alt+F11' ඔබන්න.
- එවිට නව සංවාද පෙට්ටියක් එනු ඇත, එම සංවාද කොටුවෙහි, ඇතුළු කරන්න > මොඩියුලය මත ක්ලික් කරන්න.
ඊළඟට, මොඩියුලය සංස්කාරක කවුළුවෙහි, පහත කේතය ටයිප් කරන්න:
3206
- ඉන්පසු මොඩියුලය කවුළුව වසා දමන්න.
- පසු එනම්, View tab > Macros වෙත යන්න.
- ඉන්පසු View Macros මත ක්ලික් කරන්න.
- මැක්රෝ බලන්න ක්ලික් කිරීමෙන් පසු, ඔබ දැන් නිර්මාණය කළ මැක්රෝ තෝරන්න. මෙහි නම Open_File_with_Add_Property වේ. ඉන්පසු Run ක්ලික් කරන්න.
- Run ක්ලික් කිරීමෙන් පසු අලුත් ගොනුවක් ඇති බව ඔබට පෙනෙනු ඇත. නිර්මාණය කර විවෘත කර ඇත.
🔎 සංග්රහයේ බිඳවැටීම
⮚ පළමුව, අපි සපයන්නෙමු උප පටිපාටිය සඳහා නමක්