VBA ఫ్రీఫైల్ | ఎక్సెల్ VBA లో ఫ్రీఫైల్ ఫంక్షన్‌ను ఎలా ఉపయోగించాలి?

ఎక్సెల్ VBA ఫ్రీఫైల్

ఫ్రీఫైల్ అనేది VBA లోని ఒక ఫంక్షన్, ఇది వర్క్‌షీట్ ఫంక్షన్‌గా కాకుండా VBA ఫంక్షన్‌గా మాత్రమే లభిస్తుంది. VBA ఫ్రీఫైల్ ఫంక్షన్ ప్రత్యేకమైన పూర్ణాంక సంఖ్యను ఫైల్‌కు తిరిగి ఇస్తుంది మరియు ఇది తదుపరి అందుబాటులో ఉన్న ఫైల్ నంబర్ కోసం సంఖ్యను సంరక్షిస్తుంది.

మేము సాధారణంగా మా కంప్యూటర్ నుండి ఏదైనా వ్రాయడానికి లేదా చదవడానికి మాత్రమే ఫైళ్ళను తెరుస్తాము, ఆ ఫైళ్ళను సూచించేటప్పుడు మనం ప్రత్యేకమైన పూర్ణాంక సంఖ్యతో సూచించాలి. VBA ఫ్రీఫైల్ ఫంక్షన్ VBA ని ఉపయోగించి ఫైళ్ళను చదవడానికి, వ్రాయడానికి మరియు తెరవడానికి ఫైల్ను తెరవడానికి కేటాయించటానికి ప్రత్యేకమైన పూర్ణాంక సంఖ్యను నిర్ణయించడానికి అనుమతిస్తుంది.

ఇప్పుడు ఓపెన్ స్టేట్మెంట్ యొక్క సింటాక్స్ చూడండి.

[ఫైల్ పాత్ చిరునామా] [ఫైల్ నంబర్] గా తెరవండి [ఫైల్ నంబర్]

ఫైల్ మార్గం చిరునామా: మేము తెరవడానికి ప్రయత్నిస్తున్న ఫైల్ చిరునామాను మన కంప్యూటర్లో పేర్కొనాలి.

తెరవడానికి మోడ్: ఫైల్‌ను తెరిచేటప్పుడు మనం ఎలాంటి మోడల్‌ను వర్తింపజేయబోతున్నామో తెలుసుకోవాలి. “ఇన్పుట్ మోడ్”, “అవుట్‌పుట్ మోడ్” మరియు “అపెండ్ మోడ్” అనే మూడు మోడ్‌లను మనం ఇక్కడ ఉపయోగించవచ్చు.

ఫైల్‌ను మాత్రమే చదవడానికి ఇన్‌పుట్ మోడ్.

ఇప్పటికే ఉన్న డేటాను తుడిచిపెట్టడానికి మరియు క్రొత్త డేటాను చొప్పించడానికి అవుట్పుట్ మోడ్.

ఇప్పటికే ఉన్న డేటాను నిలుపుకుంటూ కొత్త డేటాను జోడించడానికి మోడ్‌ను జోడించండి.

ఫైలు సంఖ్య: ఈ వాదనతో, మనం తెరుస్తున్న ఫైల్‌ను సూచించవచ్చు. ఇక్కడ “ఫ్రీఫైల్” ఫంక్షన్ కీలక పాత్ర పోషిస్తుంది మరియు ప్రత్యేకమైన పూర్ణాంక సంఖ్యను అందిస్తుంది.

ఎక్సెల్ VBA లో ఫ్రీఫైల్ ఫంక్షన్‌ను ఎలా ఉపయోగించాలి?

మీరు ఈ VBA FreeFile Excel మూసను ఇక్కడ డౌన్‌లోడ్ చేసుకోవచ్చు - VBA FreeFile Excel మూస

ఇప్పుడు, క్రింది కోడ్ చూడండి.

కోడ్:

 ఉప ఫ్రీఫైల్_ఎక్సాంపుల్ 1 () మసక మార్గం స్ట్రింగ్ డిమ్ ఫైల్ నంబర్ పూర్ణాంక మార్గం = "D: \ వ్యాసాలు \ 2019 \ ఫైల్ 1.txt" ఫైల్ నంబర్ = ఫైల్ నంబర్ పాత్ వలె అవుట్పుట్ కోసం ఫ్రీఫైల్ ఓపెన్ పాత్ = "D: \ వ్యాసాలు \ 2019 \ ఫైల్ 2.txt "ఫైల్ నంబర్ = ఫైల్ నంబర్ ఎండ్ సబ్ గా అవుట్పుట్ కోసం ఫ్రీఫైల్ ఓపెన్ పాత్ 

ఇప్పుడు మీరు అర్థం చేసుకోవడానికి పై కోడ్‌ను డీకోడ్ చేద్దాం.

మొదట నేను రెండు వేరియబుల్స్ డిక్లేర్ చేసాను.

 స్ట్రింగ్ వలె మసక మార్గం, పూర్ణాంకంగా డిమ్ ఫైల్ నంబర్ 

అప్పుడు నేను దాని పేరుతో ఫైల్ మార్గాన్ని కేటాయించాను.

మార్గం = "D: \ వ్యాసాలు \ 2019 \ ఫైల్ 1.txt"

మరో వేరియబుల్ కోసం, నేను ఫ్రీఫైల్ ఫంక్షన్‌ను కేటాయించాను.

ఫైల్ నంబర్ = ఫ్రీఫైల్

అప్పుడు నేను పైన పేర్కొన్న ఫైల్ మార్గంలో టెక్స్ట్ ఫైల్ను తెరవడానికి ఓపెన్ స్టేట్మెంట్ ఉపయోగించాను.

 ఫైల్ నంబర్ వలె అవుట్పుట్ కోసం ఓపెన్ పాత్

సరే, ఇప్పుడు నేను F8 కీని నొక్కడం ద్వారా లైన్ కోడ్ ద్వారా లైన్ నడుపుతాను మరియు వేరియబుల్ “ఫైల్ నంబర్” విలువను చూస్తాను.

ఇది ఫైల్ నంబర్ 1 గా చూపిస్తుంది. కాబట్టి, ఉచిత ఫైల్ ఫంక్షన్ స్వయంచాలకంగా ఈ సంఖ్యను ప్రారంభ ఫైల్‌కు రిజర్వు చేస్తుంది. దీన్ని నడుపుతున్నప్పుడు ఇతర ఫైళ్లు తెరవబడవు.

ఇప్పుడు నేను VBA కోడ్ యొక్క తదుపరి పంక్తిని అమలు చేస్తూనే ఉంటాను మరియు నేను తదుపరి పంక్తికి దూకితే ఫైల్ నంబర్ ఏమిటో చూస్తాను.

ఇప్పుడు అది 2 అని చెప్పింది. కాబట్టి ఫ్రీఫైల్ ఫంక్షన్ ప్రత్యేకమైన పూర్ణాంక సంఖ్య 2 ను రెండవ ప్రారంభ ఫైల్‌కు రిజర్వు చేస్తుంది.

మేము ఎక్సెల్ ఫైల్ను మూసివేస్తే ఫ్రీఫైల్ ఫంక్షన్ ఎల్లప్పుడూ 1 ని అందిస్తుంది

మనం చూడవలసిన ఒక విషయం ఏమిటంటే, రెండవ ఎక్సెల్ ఫైల్‌ను తెరవడానికి ముందు తెరిచిన ఫైల్‌ను మూసివేస్తే VBA “ఫ్రీఫైల్” ఫంక్షన్ ఎల్లప్పుడూ 1 ని అందిస్తుంది.

ఉదాహరణకు, క్రింది కోడ్‌ను చూడండి.

కోడ్:

 ఉప ఫ్రీఫైల్_ఎక్సాంపుల్ 2 () మసకబారిన మార్గం స్ట్రింగ్ డిమ్ ఫైల్ నంబర్ పూర్ణాంక మార్గం = "D: \ వ్యాసాలు \ 2019 \ ఫైల్ 1.txt" ఫైల్ నంబర్ = ఫైల్ నంబర్ వలె అవుట్పుట్ కోసం ఫ్రీఫైల్ ఓపెన్ పాత్ ఫైల్ నంబర్ పాత్ = "D: \ వ్యాసాలు \ 2019 \ ఫైల్ 2 .txt "ఫైల్ నంబర్ = ఫైల్ నంబర్ మూసివేసేటప్పుడు అవుట్పుట్ కోసం ఫ్రీఫైల్ ఓపెన్ పాత్ ఫైల్ నంబర్ ఎండ్ సబ్ 

ఇప్పుడు నేను మరోసారి F8 కీని నొక్కడం ద్వారా కోడ్ లైన్‌ను లైన్ ద్వారా అమలు చేస్తాను.

ఇది ఎప్పటిలాగే 1 అని చెబుతుంది.

ఇప్పుడు నేను తదుపరి స్థాయికి చేరుకుంటాను.

దీనికి రెండవ ప్రయత్నంలో కూడా 1 చెప్పారు.

దీనికి కారణం, మేము క్లోజ్ ఫైల్ స్టేట్‌మెంట్‌ను ఉపయోగించినందున ఫ్రీఫైల్ కొత్తగా తెరిచిన ఫైల్‌ను తాజాగా గుర్తించి, పూర్ణాంక సంఖ్యను 1 గా తిరిగి ఇస్తుంది.