9.25.2008

Použivani MS Office z prostředí .NET

Jedna z častých otázek, která se objevuje na diskuzních fórech, je ovládání MS Office či přístup do jejich souborů. Přestože se to zdá jako jednoduchý úkol, realita je trošku někde jinde.
Máte v zásade tři možnosti, které mají své pro i proti.

1) OleDB provider pro Excel
2) Visual Studio Tools for Office ( VSTO )
3) Napsat si vlastni wrapper

Paradoxne nejjednodužší (*) a nejspolehlivějši je třetí možnost.
Když využijete schopnost VB.NET - late binding - tak můžete komunikovoat s COM rozhraním Office s poměrně vysokým (oproti ostatním možnostem) komfortem. V podstatě opisujete to, co vidíte ve VBA u Office a Excelu/Wordu/Outlooku/atd...

Přiklad:

Public Class ExcelApplication

    private m_NativeApplication As Object 'COM objekt s aplikaci excelu

     Public Sub New(nativeApplication As Object) 'konstruktor
         m_NativeApplication = nativeApplication
     End Sub

     Public Shared Function CreateApplication() As ExcelApplication
         Dim comObj = CreateObject("Excel.Application") 'vytvori instanci COM objektu excelu
         Dim ret As New ExcelApplication(comObj) 'vytvori wrapper tridu nad COM objektem
         Return ret
     End Function

     Public Readonly Property WorkBooks() As WorkBooks
         Get
             Dim comObj As Object = m_NativeApplication.WorkBooks 'ziska se COM objekt WorkBooks
             Dim ret As New WorkBooks(comObj)
             Return ret
         End Get
     End Property

     Public Sub Quit()
         m_NativeApplication.Quit() 'za behu aplikace se "samo" zjisti jaka metoda se ma zavolat = late binding
    End Sub
End Class

Public Class WorkBooks
     Dim m_NativeWorkBooks As Object

     public Sub New(nativeWorkBooks as Object)
         m_NativeWorkBooks = nativeWorkBooks
End Sub

     Public Default Readonly Property Item(index As Integer)
         Get
             Dim comObj as Object = m_NativeWorkBooks(index)
             Dim ret As new WorkBook(comObj)
             Eeturn ret
         End Get
     End Property

     Public Function Open(filename As String) As WorkBook
         Dim comObj as Object = m_NativeWorkBook.Open(filename)
         Dim ret As New WorkBook(comObj)
         Return ret
     End Function

End Class

...
...
...


A takto si vytvoříte třídy, jejich metody a property, které potřebujete. Navíc nejste zavislí na konkrétni verzi Office. Toto bude fungovat na Office 2000, xp, 2003, a novejsi, mozna i starsi.

(*) S příchodem VSTO 2007 SE se situace trochu zlepšila, a už to není tak strašné. Leč, stále mají co vylepšovat.

P.S.: Pokud chcete těch tříd hodně, zamyslete se nad možnosti automatické generace kódu.

9.24.2008

StackOverflow

Nedávno jsem narazil na server StackOverflow.com. Musím přiznat, že mě hned ze začatku chytnul. Mají tam docela pěkný systém bodování odpovědí ( rating ), a ( což je nezvyklé ) i otázek. Kromě toho lze získávat i odznaky, za různé aktivity. Bohužel mi některé připadají docela přízemní - zřejmě mají motivovat, ale dle mého názoru spíš devalvují jejich hodnotu.

Podle výše získaného ratingu se uživatelům zpřístupňují komunitní funkce. Úplně ze začátku může uživatel jen posílat dotazy či na ně odpovídat. Po získání 15 bodů už může i přidávat komentáře a hodnotit ostatni. Dále se pak nabízí další možnosti, nebudu je tu vypisovat, můžete si je přečíst ve faq.

Je vidět, že je server ještě mladý, jelikož již po chvíli používání člověku chybí pár užitešných funkcí. Mě osobně například chybí filtrování dotazů podle více tagů - nyní lze jen podle jednoho. Nicméně to vypadá, že vývojový tým ( mimochodem složený z docela známých jmen ) má zájem o odezvu uživatelů, tak se tato funkce snad brzy objeví.

Zatím jsem dosáhl hodnoceni 267 bodů a mé nadšení ještě neopadlo. Vypadá to, že se StackOverflow stane mým oblíbeným serverem ... a kdo ví, třeba nahradí i moje oblíbené fórum builder.cz.