विवरण लिखें
अनुक्रमिक फ़ाइल में डेटा लिखता है।
सिंटैक्स लिखें
1 | लिखना #फाइलनंबर, [आउटपुट लिस्ट] |
लिखें कथन में 2 तर्क हैं:
फाइल संख्या: कोई भी मान्य फ़ाइल संख्या।
आउटपुट सूची: वैकल्पिक। किसी फ़ाइल में लिखने के लिए एक या अधिक अल्पविराम-सीमांकित संख्यात्मक अभिव्यक्ति या स्ट्रिंग अभिव्यक्ति।
एक्सेल VBA राइट फंक्शन के उदाहरण
पहला नाम | उपनाम | उम्र | लिंग |
रॉबर्ट | स्टेप | 20 | पुरुष |
जेनिफर | मारिस्कैल | 33 | महिला |
डेविड | रोमिगो | 35 | पुरुष |
कार्मेल | इनग्राम | 26 | महिला |
एक फ़ाइल में उपरोक्त चित्र की तरह एक शीट में रेंज ("ए 2: डी 5") आउटपुट करने के लिए, आप निम्न कोड का उपयोग कर सकते हैं।
12345678910111213141516171819202122232425262728293031323334353637 | उप WriteRangeToFile (स्ट्रिंग के रूप में strFile, रेंज के रूप में rng)रेंज के रूप में मंद पंक्ति, रेंज के रूप में सेलमंद फ़ाइल संख्या पूर्णांक के रूप मेंफाइलनंबर = फ्रीफाइलआउटपुट के लिए स्ट्रफाइल खोलें #FileNumber . के रूप मेंप्रत्येक पंक्ति के लिए rng.rows . मेंपंक्ति में प्रत्येक सेल के लिए। सेलअगर सेल। कॉलम = पंक्ति। सेल। फिर गिनें#FileNumber, सेल लिखेंअन्यथा#FileNumber लिखें, सेल,अगर अंतअगली सेलअगली पंक्तिबंद करें #फाइलनंबरअंत उपउप लिखें_उदाहरण ()स्ट्रिंग के रूप में मंद strFolderस्ट्रिंग के रूप में मंद strFileFileDialog के रूप में मंद dlgFolderरेंज के रूप में मंद rngdlgFolder = Application.FileDialog (msoFileDialogFolderPicker) सेट करेंअगर dlgFolder.Show = True तबstrFolder = dlgFolder.SelectedItems(1)अन्यथाउप से बाहर निकलेंअगर अंतसेट आरएनजी = रेंज ("ए 1: डी 5")strFile = "Write_Output.txt"WriteRangeToFile strFolder और "\" और strFile, rngअंत उप |
"Write_Output.txt" फ़ाइल का आउटपुट:
12345 | "पहला नाम", "अंतिम नाम", "आयु", "लिंग""रॉबर्ट", "स्टेप", "20", "पुरुष""जेनिफर", "मैरिस्कल", "33", "महिला""डेविड", "रोमिग", "35", "पुरुष""कारमेल", "इनग्राम", "26", "महिला" |