CreateObject - funkce jazyka VBScript

Popis:

Vytvoří a vrací Automation objekt.

Syntaxe:

Object CreateObject(Variant class)

Parametry:

class	(Variant) třída. Užívá syntaxi JmenoServeru.JmenoTypu: JmenoServeru - Název aplikace poskytující objekt JmenoTypu - Typ nebo třída vytvářeného objektu

Poznámka:

Automation servery poskytují nejméně jeden typ objektu. Například aplikace textového editoru může poskytovat objekt aplikace, objekt Dokument a objekt Nástrojová lišta.
Vytvoření Automation objektu se provede přiřazením objektu vráceného funkcí CreateObject do proměnné objektu:

Dim oExcel

Set oExcel = CreateObject("Excel.Sheet")

Tento skript startuje aplikaci, která vytvoří objekt (v tom případě Microsoft Excel tabulku). Jakmile se vytvoří objekt, lze se na něj ve skriptu odkazovat pomocí vytvořené proměnné objektu.

Viz také:

- VBScript.GetObject (funkce)

- Jak číst v aplikaci obecné XML soubory

- Jak uložit binární soubor (obrázek) z URL adresy

- Předkonfigurace "Zaslání mailů z aplikace"

- Předkonfigurace "FTP přenos souborů (ActiveX)"

- Pm.ShellExecute (metoda)

- Pm.CreateProcess (metoda)

Příklad1:

Vytvoří soubor Test.xls pomocí programu EXCEL

VBScriptVyber a zkopíruj do schránky



Dim oExcelApp, oWorkbook, oSheet

Set oExcelApp = CreateObject("Excel.Application")

oExcelApp.Visible = true

Set oWorkbook = oExcelApp.WorkBooks.Add

Set oSheet = oExcelApp.Sheets(1)


oSheet.Cells(1, 1) = oWorkbook.Sheets.Count

oSheet.Cells(1, 2) = 34

oSheet.Cells(2, 1) = Now()


oSheet.SaveAs "C:\Data\Test.xls"

oExcelApp.Quit

Příklad2:

Vytvoří soubor Test.doc pomocí programu WORD

VBScriptVyber a zkopíruj do schránky



Dim oWord

Set oWord = CreateObject("Word.Basic")

oWord.AppShow

oWord.FileOpen "C:\Data\Test.doc"

oWord.Insert "" & vbNewLine

oWord.Insert "Teplota=" & pMe.Pm("/Kogen/Temp").Value & " °C " & vbNewLine

oWord.FileSave