अगस्त में, Microsoft ने OneNote का संस्करण SP1 जारी किया। यह एक नवीनीकरण होना चाहिए। उन्होंने कई अविश्वसनीय सुविधाओं को जोड़ा, एक एप्लिकेशन प्रोग्रामिंग इंटरफ़ेस शामिल है जो अन्य एप्लिकेशनों को OneNote पर डेटा पुश करने की अनुमति देता है।
Microsoft कई उत्कृष्ट वेबसाइटें प्रदान करता है जो आपको OneNote में डेटा पुश करने के लिए VB.Net का उपयोग करना सिखाएँगी। लेकिन, चूंकि यह साइट है, आप और मैं और अन्य 200 मिलियन ऑफिस उपयोगकर्ता सबसे अधिक चिंतित हैं कि ऑफिस वीबीए का उपयोग करके OneNote को डेटा कैसे पुश किया जाए। मुझे यह कहते हुए खुशी हो रही है कि यह किया जा सकता है। यह पृष्ठ आपको वह सब कुछ बताएगा जो आपको करने की आवश्यकता है।
मैं मान लूंगा कि आप VBA से मामूली परिचित हैं। यदि आप नहीं हैं, तो मैं Microsoft Excel के लिए VBA और मैक्रोज़ की अत्यधिक अनुशंसा करता हूं, किसी VBA सीखने की अवस्था में किसी को लेने के लिए डिज़ाइन की गई पुस्तक।
अवलोकन
आप डेटा को XML डेटा के रूप में फ़ॉर्मेट करके OneNote पर भेज सकते हैं। XML एक काफी नई अवधारणा है। यह HTML की तरह है। इसे स्टेरॉयड पर CSV फ़ाइल के रूप में सोचें। आप XML से मेरा परिचय पढ़ सकते हैं।
मूल रूप से, आपके VBA प्रोग्राम को XML फ़ाइल लिखने की आवश्यकता होती है, फिर .Import पद्धति का उपयोग करके OneNote पर XML फ़ाइल की सामग्री को पास करें। XML फ़ाइल को इन तत्वों को शामिल करने की आवश्यकता है:
- प्रत्येक पृष्ठ के लिए एक EnsurePage तत्व जिसे आप लिखना चाहते हैं। यदि पेज मौजूद नहीं है, तो OneNote आपके लिए पेज बनाएगा। सिद्धांत रूप में, आपको एक विशिष्ट मौजूदा पृष्ठ के बाद पृष्ठ को नियंत्रित और स्थान देना चाहिए। हालांकि, व्यवहार में, यह काम नहीं करता है।
- प्रत्येक आइटम के लिए एक PlaceObject तत्व जिसे आप पृष्ठ में जोड़ना चाहते हैं। आप आइटम के लिए X & Y स्थान और आइटम के स्रोत को निर्दिष्ट करते हैं। एक आइटम या तो एक छवि, एक इंक ऑब्जेक्ट, या HTML प्रारूप में पाठ हो सकता है। आप सोचते होंगे कि चूंकि OneNote HTML से पढ़ता है, आप वास्तव में TR और TD टैग के साथ एक तालिका पारित कर सकते हैं, लेकिन यह काम नहीं करता है। आप लाइनफ़ीड को जोड़ने के लिए BR और P टैग के साथ पाठ पास करने तक सीमित हैं। UL & LI टैग काम करने के लिए प्रकट होते हैं। फ़ॉन्ट टैग काम करते हैं।
द गॉटचा
किसी मौजूदा पृष्ठ को अपडेट करने के लिए, आपको उस पृष्ठ के लिए विश्वव्यापी विशिष्ट पहचानकर्ता (GUID) पता होना चाहिए। OneNote में किसी मौजूदा पृष्ठ के लिए GUID खोजने का कोई तरीका प्रतीत नहीं होता है। इसका मतलब है कि आप किसी मौजूदा पेज पर केवल आइटम को अपडेट या डिलीट कर सकते हैं यदि आपने प्रोग्राम को पेज बनाया है और उस पेज को अपनी कार्यपुस्तिका में बनाने के लिए उपयोग किए गए GUID को संग्रहीत किया है। नीचे दिया गया उदाहरण पृष्ठ, डेटा तालिका और चार्ट के लिए GUID को बचाने के लिए कार्यपत्रक पर एक आउट-ऑफ-द-वे स्थान का उपयोग करता है।
GUIDs
OneNote के प्रत्येक नए पृष्ठ को GUID की आवश्यकता है। किसी पृष्ठ पर रखी गई प्रत्येक नई वस्तु को GUID की आवश्यकता होती है। हालांकि GUBs को VB.Net से जेनरेट करना आसान है, लेकिन GUID को VBA से जेनरेट करने का तरीका खोजना मायावी है। सभी 200 मिलियन ऑफिस VBA यूजर्स को Trigeminal Software के Michael Kaplan को कैप की टिप देने की जरूरत है। माइकल VBA से GUID जेनरेट करने के कोड को तोड़ने के लिए दुनिया का एकमात्र लड़का प्रतीत होता है। उन्होंने बड़े ही विनम्रता से इस कोड को दुनिया के साथ साझा किया है। उसकी वेबसाइट पर पूरा कोड देखें। माइकल की अनुमति के साथ, मैंने यहां VBA में एक नया GUID बनाने के लिए आवश्यक कार्यों की प्रतिलिपि बनाई है। अपनी परियोजना में एक मॉड्यूल डालें और उस मॉड्यूल में निम्न कोड शामिल करें।
'------------------------------------------ ' basGuid from http://www.trigeminal.com/code/guids.bas ' You may use this code in your applications, just make ' sure you keep the (c) notice and don't publish it anywhere ' as your own ' Copyright (c) 1999 Trigeminal Software, Inc. All Rights Reserved '------------------------------------------ Option Compare Binary ' Note that although Variants now have ' a VT_GUID type, this type is unsupported in VBA, ' so we must define our own here that will have the same ' binary layout as all GUIDs are expected by COM to ' have. Public Type GUID Data1 As Long Data2 As Integer Data3 As Integer Data4(7) As Byte End Type Public Declare Function StringFromGUID2 Lib "ole32.dll" _ (rclsid As GUID, ByVal lpsz As Long, ByVal cbMax As Long) As Long Public Declare Function CoCreateGuid Lib "ole32.dll" _ (rclsid As GUID) As Long '------------------------------------------------------------ ' StGuidGen ' ' Generates a new GUID, returning it in canonical ' (string) format '------------------------------------------------------------ Public Function StGuidGen() As String Dim rclsid As GUID If CoCreateGuid(rclsid) = 0 Then StGuidGen = StGuidFromGuid(rclsid) End If End Function '------------------------------------------------------------ ' StGuidFromGuid ' ' Converts a binary GUID to a canonical (string) GUID. '------------------------------------------------------------ Public Function StGuidFromGuid(rclsid As GUID) As String Dim rc As Long Dim stGuid As String ' 39 chars for the GUID plus room for the Null char stGuid = String$(40, vbNullChar) rc = StringFromGUID2(rclsid, StrPtr(stGuid), Len(stGuid) - 1) StGuidFromGuid = Left$(stGuid, rc - 1) End Functionएक संदर्भ जोड़ना
VBA में, OneNote 1.1 ऑब्जेक्ट लाइब्रेरी के संदर्भ को जोड़ने के लिए टूल्स - संदर्भ का उपयोग करें। यह आपको एक नया CSimpleImporter ऑब्जेक्ट घोषित करने और फिर .Import और .NavigateToPage विधियों का उपयोग करने की अनुमति देगा।
मामले का अध्ययन
इस एक्सेल वर्कबुक में एक दैनिक रिपोर्टिंग प्रणाली है। दुकानों की एक स्थानीय श्रृंखला में प्रत्येक स्टोर के लिए एक वर्कशीट है। प्रत्येक पृष्ठ में दैनिक बिक्री दिखाने वाली एक तालिका और मासिक लक्ष्य की दिशा में एक चार्ट दिखाया गया है।
VBA कोड DailySales नामक एक नया खंड जोड़ देगा। प्रत्येक स्टोर के लिए एक नया पेज जोड़ा जाएगा। वर्कशीट से चार्ट को GIF फ़ाइल के रूप में निर्यात किया जाता है और OneNote पर आयात किया जाता है। वर्कशीट से डेटा OneNote में HTML कॉलम के रूप में जोड़ा जाता है।
एक्सेल में निम्नलिखित कोड का उपयोग किया जाता है।
Sub CreateUpdateOneNoteReport() ' Requires basGuid module from above Dim Cht As Chart fname = "C:OneNoteImport.xml" On Error Resume Next Kill (fname) On Error GoTo 0 ' Do we need new GUID's? For Each ws In ThisWorkbook.Worksheets If Not ws.Range("J22").Value> "" Then ws.Range("J22").Value = StGuidGen() End If If Not ws.Range("J23").Value> "" Then ws.Range("J23").Value = StGuidGen() End If If Not ws.Range("J24").Value> "" Then ws.Range("J24").Value = StGuidGen() End If Next ws ' Build a temporary XML file fname = "C:OneNoteImport.xml" On Error Resume Next Kill (fname) On Error GoTo 0 Open fname For Output As #1 Print #1, " " Print #1, " " ' Make sure that for each page, we have a page FirstPage = True DateStr = Format(Date - 1, "yyyy-mm-dd") & "T21:00:00-06:00" For Each ws In ThisWorkbook.Worksheets ThisTitle = ws.Name ThisGuid = ws.Range("J22").Value Print #1, " " FirstPage = False LastGuid = ThisGuid Next ws For Each ws In ThisWorkbook.Worksheets ThisTitle = ws.Name ThisImage = "C: " & ThisTitle & ".gif" ThisGuid = ws.Range("J22").Value ChartGuid = ws.Range("J24").Value TableGuid = ws.Range("J23").Value ' Export the Chart Set Cht = ws.ChartObjects(1).Chart Cht.Export Filename:=ThisImage, FilterName:="GIF" ' Place the Chart on the top, right side Print #1, "" Print #1, " " Print #1, "" Print #1, " " Print #1, " " Print #1, " 
Resulting OneNote Notebook
Apparent Bugs
In the book, I mentioned an apparent bug with "insertafter". I forgot that XML is case sensitive. If you use "insertAfter", then everything works fine. Thanks to Donovan Lange at Microsoft for pointing this out.
I am guessing that the next issue is not a bug - the code is probably working like Microsoft intended, but they missed an opportunity to do something the right way. You are allowed to specify a date and time in the EnsurePage section of the XML. This date and time is only used if the page does not exist. Given that Microsoft later allows us to update the page by remembering the GUID, they really should have allowed us to update the date and time on the page. In the example here, we are pushing new data each day, yet the date is always going to show that it is as of the first time that the program was run. This is disappointing.
