Microsoft Excel & VBA

Zřejmě jste si všimli, že s příchodem balíku Office 2007 se změnil i typ výchozích formátů souborů při ukládaní dokumentů.
Pokud píšete aplikace pro více uživatelů a ti mají různé verze Office včetně nových 2007 a navíc ve svém kódu používáte metodu GetOpenFileName, určitě jste už museli řešit, jak nechat vybrat uživatele ten správný typ formátu.

Pří použití metody GetOpenFileName máte možnost nastavit filtry pro výběr formátu, ale taky nemusíte žádné omezení nastavovat a nechat uživatele vybrat ze všech typů souborů ( txt, doc, xls, bas, dbf,mdb a tisíce dalších ), což se v praxi moc nepoužívá neboť to uživatele zdržuje. Většinou se snažíme ukázat pouze ty dokumenty, které nás zajímají.
Vytvoření filtru je naprosto jednoduché, stačí napsat jakýkoliv textový popis, který se zobrazí v comboboxu Typ souboru (Files of type) a vůbec nezáleží jaký textový popis zvolíte, ale běžnou praxi je napsat název aplikace např.

Application.GetOpenFilename("Excel(*.xls),*.xls")
' ale muzete napsat opravdu cokoliv, jako textovy popis
' a dokonce nemusite uvadet text za carkou - carku ale ponechat musite Application.GetOpenFilename("Moje soubory jen moje(*.xls),")

Obrázky obou případu následují

Pokud byste si třeba napsali svůj vlastní program, který by používal vlastní typy souboru stačilo by pak napsat tento jednoduchý kód, který by zobrazil pouze Vaše soubory ( zvolil sem koncovky "aaa"  )

Application.GetOpenFilename("Vaše aplikace (*.aaa),*.aaa")



Teď už zbývá vyřešit pouze otázku, jak uživateli zobrazit typy souboru starších verzí Office tak nejnovějších 2007.

Opět máme více možnosti, můžeme vybrat jaký typ dokumentu uživatel chce vidět v comboboxu "typ souboru". Tzn. že si klasicky rozklikne šipku a vybere jestli chce vidět dokumenty pouze xls nebo xlsx atd.
Programový kód by vypadal takto

Application.GetOpenFilename("Excel Files (*.xls),*.xls,Excel Files 2007 (*.xlsx),*.xlsx")
' pomoci argumentu FilterIndex muzeme urcit
' ktery typ bude vybrat jako prvni
Application.GetOpenFilename (FileFilter:="Excel Files (*.xls),*.xls,Excel Files 2007 (*.xlsx),*.xlsx",FilterIndex:=2)

Všimněte si, že jednotlivé typy dokumentů jdou pěkné za sebou a jsou odděleny čárkou. Nejprve celá specifikace klasického xls - Text položky(přípona) čárka a pak následuje další typ dokumentu. Výsledek vidíte na obrázku níže



Další z možnosti je vypsat všechny typy dokumentů, které chceme mít možnost otevřít do jednoho řádku. Jak se to dělá? Je to opět tak jednoduché jako předchozí případ. Kód je tentokrát delší, protož vypisujeme všechny možné typy dokumentu Excelu, ale rozdíl v zápisu je pouze ten, že vyměníme čárku za středník mezi jednotlivými typy dokumentů.

Application.GetOpenFilename(FileFilter:="All Excel Files (*.xlsx;*.xlsm;*.xlsb;*.xlam;*.xltx;*.xltm;*.xls;*.xlt),")



A nakonec zbývá poslední možnost jak nechat uživatele vybrat typ souboru bez omezeni verze. Výhoda posledního souboru je univerzálnost, pokud Microsoft nezmění první dvě písmenka a vždy bude jen přidávat nebo měnit písmena u přípony Excel dokumentu, tak už nikdy nebude muset dopisovat další koncovky do kódu, tak jak tomu je v příkladu výše. Nevýhoda je, že se můžou zobrazit i soubory, které s Excelem nemají nic společného, ale jejich přípony dokumentů začínají na "xl" ( nejsem si jistý, jestli toto má Microsoft patentováno ).Další možnou nevýhodou je zobrazení hvězdičky v typu dokumentu, záleží na uživateli, jestli se mu to bude líbit nebo ne. Kód pro toto univerzální řešení následuje

Application.GetOpenFilename(FileFilter:="All Excel Files (*.xl*),")



Jak sami vidíte, jdou vybrat všechny typy dokumentu pro Excel nový i starší.