VBA ChDir | ఎక్సెల్ VBA ChDir ఫంక్షన్ ఉపయోగించి డైరెక్టరీని ఎలా మార్చాలి?
ఎక్సెల్ VBA Chdir
“ChDir” ని “డైరెక్టరీని మార్చండి”. “ChDir” ను ఉపయోగించడం ద్వారా, పూర్తి అర్హత గల మార్గం లేకుండా ఫైళ్ళ కోసం శోధిస్తున్నప్పుడు VBA లో ఉపయోగించిన ప్రస్తుత డిఫాల్ట్ డైరెక్టరీని మార్చవచ్చు. ఉదాహరణ కోసం మేము ఫైల్ను డిఫాల్ట్‌గా క్రొత్త ఫైల్‌గా సేవ్ చేయడానికి ప్రయత్నించినప్పుడు సిస్టమ్ కాన్ఫిగర్ చేసిన డ్రైవ్ తెరుచుకుంటుంది మరియు అక్కడ నుండి మనం సేవ్ చేయదలిచిన ఫోల్డర్‌ను ఎంచుకుంటాము.
ఆ డిఫాల్ట్ ఫోల్డర్ పికర్ విండోను మా కోరికకు మార్చగలమని మీరు ఎప్పుడైనా అనుకున్నారా? అవును, మేము దీన్ని చేయగలము!
ఇప్పుడు VBA లోని ChDir ఫంక్షన్ యొక్క వాక్యనిర్మాణాన్ని చూద్దాం.
మార్గం: ఫైల్‌గా వేరే పేరుకు తెరవడానికి లేదా సేవ్ చేయడానికి ప్రయత్నించినప్పుడు డిఫాల్ట్‌గా తెరవాలనుకుంటున్న ఫోల్డర్ మార్గాన్ని ఇక్కడ పేర్కొనాలి.
మార్గం డబుల్ కోట్స్‌లో పేర్కొనాలి.
VBA లో ChDir ఫంక్షన్ యొక్క ఉదాహరణలు
ఎక్సెల్ VBA ChDir యొక్క ఉదాహరణలు క్రింద ఉన్నాయి.
మీరు ఈ VBA ChDir ఎక్సెల్ మూసను ఇక్కడ డౌన్‌లోడ్ చేసుకోవచ్చు - VBA ChDir Excel మూసఉదాహరణ # 1
ఇప్పుడు మొదట క్రింద ఉన్న VBA కోడ్‌ను చూడండి.
కోడ్:
ఉప ChDir_Example1 () మసక FD ఫైల్ డైలాగ్‌గా Dim ND స్ట్రింగ్ సెట్‌గా FD = Application.FileDialog (msoFileDialogFilePicker) FD తో .శీర్షిక = "మీ ఫైల్ను ఎంచుకోండి" .అల్లోమల్టీసెలెక్ట్ = ఫాల్స్ .ఎండ్ సబ్‌తో ముగించండి
నేను ఈ కోడ్‌ను F5 కీని ఉపయోగించి లేదా మానవీయంగా నడుపుతున్నప్పుడు, అది మొదట దిగువ డిఫాల్ట్ విండోను తెరుస్తుంది.
VBA కోడ్ ఉపయోగించి నేను తెరవాలనుకుంటున్న ఫైళ్ళను ఎంచుకోవడానికి ఇక్కడ నుండి నేను వివిధ ఫోల్డర్లు మరియు సబ్ ఫోల్డర్ల ద్వారా వెళ్ళాలి.
దీనికి చాలా సమయం పడుతుంది! నేను వివిధ ఫోల్డర్ల ద్వారా వెళ్ళవలసి వస్తే, అది వివిధ ఉప ఫోల్డర్ల కారణంగా తప్పు ఫైల్ ఎంపికకు దారితీయవచ్చు మరియు ఇది మరింత గందరగోళాన్ని పెంచుతుంది.
నా కోడ్ ఎంచుకోవలసిన నిర్దిష్ట ఫోల్డర్‌ను నా కోడ్ తెరవగలిగితే?
ఇది మంచి ఎంపిక కాదా?
అవును, దీనిని ప్రయత్నిద్దాం.
మా కోడ్‌ను దాటడానికి ముందు మనం ఫంక్షన్‌ను ఉపయోగించాలి ChDir మరియు ఫోల్డర్ మార్గాన్ని డబుల్ కోట్స్‌లో పేర్కొనండి.
ChDir "D: \ వ్యాసాలు \ ఎక్సెల్ ఫైల్స్"
పై కోడ్ అప్రమేయంగా తెరవవలసిన డైరెక్టరీని మారుస్తుంది “డి” డ్రైవ్ మరియు D డ్రైవ్ కింద “వ్యాసాలు” ఫోల్డర్ మరియు ఈ ఫోల్డర్ క్రింద తెరవవలసిన సబ్ ఫోల్డర్ “ఎక్సెల్ ఫైల్స్”.
కోడ్:
ఉప ChDir_Example2 () మసక ఫైల్ పేరు వేరియంట్ ChDir "D: \ వ్యాసాలు \ ఎక్సెల్ ఫైల్స్" ఫైల్ పేరు = అప్లికేషన్.గెట్సేవ్అస్ఫైల్ నేమ్ () టైప్ నేమ్ (ఫైల్ పేరు) “బూలియన్” అయితే MsgBox ఫైల్ పేరు ఎండ్ సబ్ ఉంటే
ఇప్పుడు నేను కోడ్‌ను మాన్యువల్‌గా లేదా ఎఫ్ 5 కీని నొక్కడం ద్వారా ఏ ఫైల్ డైరెక్టరీ తెరుచుకుంటుందో చూస్తాను.
పై చిత్రంలో మనం చూడగలిగినట్లుగా, నా స్పెసిఫికేషన్ ప్రకారం నాకు డిఫాల్ట్ విండో వచ్చింది.
ఒకవేళ మీ అయితే ChDir ఫంక్షన్ పేర్కొన్న ఫైల్ డైరెక్టరీని చూపడం లేదు, అప్పుడు మీరు మొదట మార్చాలి డ్రైవ్ అప్పుడు వర్తించండి ChDir ఫంక్షన్.
డ్రైవ్ మార్చడానికి మనం ఉపయోగించాలి “ChDrive” ఫంక్షన్. నేను ఫైల్ను తెరవాలనుకుంటున్నాను కాబట్టి “డి” మొదట డ్రైవ్ చేయండి నేను డ్రైవ్‌ను మార్చాలి “డి”.
ChDrive “D”
పై కోడ్ డ్రైవ్‌ను “E” గా మారుస్తుంది.
కోడ్:
ఉప ChDir_Example2 () మసక ఫైల్ పేరు వేరియంట్ ChDrive "D" ChDir "D: \ వ్యాసాలు \ ఎక్సెల్ ఫైల్స్" ఫైల్ పేరు = అప్లికేషన్.గెట్సేవ్అస్ఫైల్ నేమ్ () టైప్ నేమ్ (ఫైల్ పేరు) “బూలియన్” అయితే MsgBox ఫైల్ నేమ్ ఎండ్ సబ్ ఉంటే
VBA ని ఉపయోగించడం ద్వారా ఇలా చేయండి “ChDir”ఫంక్షన్, డిఫాల్ట్ ఫైల్ డైరెక్టరీని మన కోరికకు మార్చవచ్చు.
