ض Automation á

CreateObject(servername.typename [, location])

servername 
ѡṩӦóơ 
typename 
ѡҪĶͻࡣ 
location 
ѡڵ 
˵
Automation ṩһֶ͡磬ִӦóṩӦóĵ͹

Ҫ Automation 󣬽 CreateObject صĶֵĳ 

Dim ExcelSheet
Set ExcelSheet = CreateObject("Excel.Sheet")
ڴʵУ Microsoft Excel ӱ񣩵Ӧó򡣶󴴽󣬾ͿڴʹöĶô˶ʾУʹöExcelSheet  Excel 󣬰 Application  Cells Ϸ¶Ժͷ磺 

' ʹ Excel  Application жɼ
ExcelSheet.Application.Visible = True
' һЩı빤ĵһԪС
ExcelSheet.ActiveSheet.Cells(1,1).Value = "This is column A, row 1"
' 湤
ExcelSheet.SaveAs "C:\DOCS\TEST.XLS"
' ر Excelʹ Quit  Application С
ExcelSheet.Application.Quit
' ͷŶ
Set ExcelSheet = Nothing
Զ̷ϴһ󣬵 Internet ȫرʱֻɡͨݼ CreateObject ĲԶϴ󡣸ͬݵĻ繲Ϊ "\\myserver\public", servername  "myserver",ָֻ servername ʹ DNS ʽ IP ַ

´뷵Ϊ"myserver"Զ Excel ʵİ汾 :

Function GetVersion
   Dim XLApp
   Set XLApp = CreateObject("Excel.Application", "MyServer")
   GetVersion = XLApp.Version
End Function
ָԶ̷ڻ޷ҵ

Ҫ
汾2
