Promotic
WikipediaLinkedInYoutubeTwitterFacebook

CreateObject - funkce jazyka VBScript

Popis:
Vytvoří a vrátí odkaz na Automation objekt.
Syntaxe:
CreateObject(class As Variant) As Object
Volání:
Set o = CreateObject(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 script startuje aplikaci vytvářející objekt (v tomto případě Microsoft Excel tabulku). Jakmile je objekt vytvořen, lze se na něj ze scriptu odkazovat pomocí vytvořené proměnné objektu.

Příklad1:
Vytvoření souboru Test.xls pomocí programu EXCEL
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ření souboru Test.doc pomocí programu WORD
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
Příklad3:
Spuštění IE prohlížeče s určenou webovou adresou
Dim oIE
Set oIE = CreateObject("InternetExplorer.Application.1")
oIE.Visible = true
oIE.Navigate "http://www.promotic.eu"
© MICROSYS, spol. s r. o.Tavičská 845/21 703 00 Ostrava-Vítkovice