Menggunakan Excel VBA untuk Mendorong Kandungan ke Artikel OneNote - TechTV

Pada bulan Ogos, Microsoft mengeluarkan versi SP1 OneNote. Ini adalah peningkatan yang mesti ada. Mereka menambahkan banyak fitur luar biasa, termasuk antara muka pengaturcaraan aplikasi yang membolehkan aplikasi lain mendorong data ke OneNote.

Microsoft menawarkan beberapa laman web yang sangat baik yang akan mengajar anda bagaimana menggunakan VB.Net untuk memasukkan data ke OneNote. Tetapi, kerana ini adalah laman web ini, anda dan saya serta 200 juta pengguna Office yang lain sangat mengambil berat tentang bagaimana mendorong data ke OneNote menggunakan Office VBA. Saya dengan senang hati mengatakan bahawa ini BOLEH dilakukan. Halaman ini akan memandu anda melalui semua yang anda perlukan untuk menyelesaikannya.

Saya akan menganggap bahawa anda agak biasa dengan VBA. Sekiranya tidak, saya sangat mengesyorkan VBA & Makro untuk Microsoft Excel, buku yang direka untuk membawa seseorang mengikuti kurva pembelajaran VBA.

Gambaran keseluruhan

Anda dapat mengirim data ke OneNote dengan memformat data sebagai data XML. XML adalah konsep yang agak baru. Ia seperti HTML. Anggaplah ia sebagai fail CSV mengenai steroid. Anda boleh membaca Pengenalan saya kepada XML.

Pada dasarnya, program VBA anda perlu menulis fail XML, kemudian menyampaikan isi fail XML ke OneNote menggunakan kaedah .Import. Fail XML perlu mengandungi unsur-unsur ini:

• Elemen EnsurePage untuk setiap halaman yang ingin anda tulis. Sekiranya halaman tidak ada, OneNote akan membuat halaman untuk anda. Secara teori, anda seharusnya mempunyai kawalan dan meletakkan halaman setelah halaman tertentu yang ada. Walau bagaimanapun, dalam praktiknya, ini nampaknya tidak berfungsi.
• Elemen PlaceObject untuk setiap item yang ingin anda tambahkan ke halaman. Anda menentukan lokasi X & Y untuk item dan sumber item tersebut. Item boleh berupa gambar, objek Tinta, atau teks dalam format HTML. Anda akan berfikir bahawa kerana OneNote membaca dari HTML, anda sebenarnya boleh memberikan jadual dengan tag TR dan TD, tetapi ini tidak berjaya. Anda terhad untuk menghantar teks dengan tag BR dan P untuk menambahkan feed line. Tanda UL & LI kelihatan berfungsi. Tag fon berfungsi.

The Gotcha

Untuk mengemas kini halaman yang ada, anda mesti mengetahui Pengenal Unik Globally (GUID) untuk halaman tersebut. Nampaknya tidak ada cara untuk mencari GUID untuk halaman yang ada di OneNote. Ini bermaksud bahawa anda hanya boleh mengemas kini atau menghapus item pada halaman yang ada jika anda membuat halaman secara terprogram dan menyimpan GUID yang digunakan untuk membuat halaman tersebut di buku kerja anda. Contoh di bawah menggunakan tempat di luar pada lembaran kerja untuk menyimpan GUID untuk halaman, jadual data dan carta.

PANDUAN

Setiap halaman baru di OneNote memerlukan GUID. Setiap objek baru yang diletakkan di halaman memerlukan GUID. Walaupun mudah untuk menghasilkan GUID dari VB.Net, mencari jalan untuk menghasilkan GUID dari VBA telah sukar difahami. Semua 200 juta pengguna Office VBA perlu memberikan tip topi kepada Michael Kaplan dari Trigeminal Software. Michael nampaknya satu-satunya lelaki di dunia yang melanggar kod bagaimana menghasilkan GUID dari VBA. Dia telah berkongsi kod ini dengan baik kepada dunia. Lihat kod lengkap di laman webnya. Dengan izin Michael, saya hanya menyalin fungsi yang diperlukan untuk menghasilkan GUID baru di VBA di sini. Masukkan modul dalam projek anda dan sertakan kod berikut dalam modul tersebut.

'------------------------------------------ ' 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

Menambah Rujukan

Di VBA, gunakan Alat - Rujukan untuk menambahkan rujukan ke Perpustakaan Objek OneNote 1.1. Ini akan membolehkan anda menyatakan objek CSimpleImporter baru dan kemudian menggunakan kaedah .Import dan .NavigateToPage pada objek tersebut.

Kajian kes

Buku kerja Excel ini mengandungi sistem pelaporan harian. Terdapat satu lembaran kerja untuk setiap kedai di rangkaian kedai tempatan. Setiap halaman mengandungi jadual yang menunjukkan penjualan harian dan carta yang menunjukkan kemajuan menuju matlamat bulanan.

Kod VBA akan menambah bahagian baru yang disebut DailySales. Satu halaman baru akan ditambahkan untuk setiap kedai. Carta dari lembaran kerja dieksport sebagai fail GIF dan diimport ke OneNote. Data dari lembaran kerja ditambahkan ke OneNote sebagai lajur HTML.