यहाँ एक बहुत ही विशिष्ट उदाहरण है जिसे आप अपनी आवश्यकताओं के अनुसार ढाल सकते हैं। इसकी एक वर्कशीट ईवेंट मैक्रो है जो सेल B9 पर डबल-क्लिक करने से चालू होती है :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("B9")) Is Nothing Then Exit Sub
Cancel = True
Dim TextLine As String
Close #1
Open "C:\TestFolder\test.txt" For Input As #1
i = 1
j = 0
Do While Not EOF(1)
Line Input #1, TextLine
j = j + 1
Cells(i, j) = TextLine
Loop
Close #1
End Sub
आपको जो परिवर्तन करने होंगे:
- सेल टू डबल क्लिक B9 है
- पाठ फ़ाइल का फ़ाइल नाम खोला जाना चाहिए
- आयातित डेटा के लिए गंतव्य
क्योंकि यह वर्कशीट कोड है, इसे इंस्टॉल करना और उपयोग करने के लिए स्वचालित करना बहुत आसान है:
- एक्सेल विंडो के नीचे टैब नाम पर राइट-क्लिक करें
- देखें कोड चुनें - यह VBE विंडो लाता है
- सामान पेस्ट करें और VBE विंडो बंद करें
यदि आपको कोई चिंता है, तो पहले इसे परीक्षण कार्यपत्रक पर आज़माएं।
यदि आप कार्यपुस्तिका को सहेजते हैं, तो मैक्रो इसके साथ सहेजा जाएगा। यदि आप बाद में 2003 के एक्सेल के संस्करण का उपयोग कर रहे हैं, तो आपको .xlsx के बजाय .xlsm के रूप में फ़ाइल को सहेजना होगा
मैक्रो को हटाने के लिए:
- ऊपर के रूप में VBE विंडोज़ लाओ
- कोड साफ़ करें
- VBE विंडो बंद करें
सामान्य रूप से मैक्रोज़ के बारे में अधिक जानने के लिए, देखें:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
तथा
http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx
इवेंट मैक्रोज़ (वर्कशीट कोड) के बारे में अधिक जानने के लिए, देखें:
http://www.mvps.org/dmcritchie/excel/event.htm
इसके लिए मैक्रोज़ को सक्षम होना चाहिए!