|
Nikdo nic? :) Tak já jsem si po hodinách usilovného boje nakonec poradil, takže si teď svoje otázky můžu zodpovědět sám:) 1) šířka sloupce - pro automatickou šířku sloupce pole délky textu v buňkách lze použít
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Add 'Nový sešit
Set oSheet = oBook.Worksheets(1) 'Nový list
oSheet.Range("A1:D1").Value = "Nějaká kategorie" 'vyplní 4 buňky
oExcel.Columns("A:D").EntireColumn.AutoFit
'a konečně přizpůsobení šířky sloupců A - D
2) Jak zjistit umístění aplikace Excel jsem nezjistil :), ale poradil jsem si takto:
'První tři řádky stejné jako výše
oExcel.Visible = True
'Toto způsobí spuštění Excelu tak, že ho uživatel vidí
'a pomocí tohoto:
oExcel.Quit
'..se aplikace ukončí
Takže pro moje potřeby toto stačí, potřeboval jsem jenom novou tabulku po vygenerování otevřít v Excelu a ukázat uživateli, čehož jsem takto docílil. Na další bod už mi bylo odpovězeno a tak stále zůstává poslední otázka - lze nějak tabulku z Excelu vytisknout? (jinak než ručně:)
|