Tạo ra và trả về một tham chiếu đến một đối tượng tự động hóa.
CreateObject(servername.typename [, location])
Đối số
servername
Required. Tên của các ứng dụng cung cấp cho các đối tượng.
typename
Required. Kiểu hoặc lớp của đối tượng để tạo ra.vị trí
location
Optional. Tên của các máy chủ mạng, nơi đối tượng được tạo ra.
Remarks
Tự động hóa các máy chủ cung cấp ít nhất một loại đối tượng. Ví dụ, một ứng dụng xử lý văn bản có thể cung cấp mộtđối tượng áp dụng, đối tượng một tài liệu, và đối tượng một thanh công cụ.
Để tạo một đối tượng tự động hóa, giao cho đối tượng trả về bởi CreateObject để một biến đối tượng:
Dim ExcelSheet
Set ExcelSheet = CreateObject("Excel.Sheet")
This code starts the application that creates the object (in this case, a Microsoft Excel spreadsheet). Once an object is created, refer to it in code using the object variable you defined. As shown in the following example, you can access properties and methods of the new object using the object variable, ExcelSheet, and other Excel objects, including the Application object and the ActiveSheet.Cells collection:
Đoạn code này bắt đầu một ứng dụng tạo ra các đối tượng (trong trường hợp này, một bảng tính Microsoft Excel). Một khi một đối tượng được tạo ra, đề cập đến nó trong mã bằng cách sử dụng các biến đối tượng bạn định nghĩa. Như trong ví dụ sau đây, bạn có thể truy cập tài sản và phương pháp của đối tượng mới bằng cách sử dụng các biến đối tượng, ExcelSheet, và các đối tượng khác của Excel, bao gồm cả Application object vàActiveSheet.Cells collection:
‘Làm Excel hiển thị thông qua các đối tượng Application.ExcelSheet.Application.Visible = True
' Chèn text vào ô đầu tiên của sheet.
ExcelSheet.ActiveSheet.Cells(1,1).Value = "This is column A, row 1"
' Save the sheet.
ExcelSheet.SaveAs "C:\DOCS\TEST.XLS"
' Close Excel with the Quit method on the Application object.
ExcelSheet.Application.Quit
' Release the object variable.
Set ExcelSheet = Nothing
Tạo một đối tượng trên một máy chủ từ xa chỉ có thể được thực hiện khi Internet an ninh đã được tắt. Bạn có thể tạo một đối tượng trên một máy tính nối mạng từ xa bằng cách truyền tên của máy tính để các đối số servername của CreateObject. Tên đó là giống như phần tên máy của một tên chia sẻ. Đối với một mạng chia sẻ có tên là "\\myserver\public", servername là "myserver". Ngoài ra, bạn có thể chỉ định servername sử dụng định dạng DNS hoặc địa chỉ IP.
Các mã sau đây trả về số phiên bản của một thể hiện của Excel chạy trên một mạng máy tính từ xa có tên "myserver":
Function GetVersion
Dim XLApp
Set XLApp = CreateObject("Excel.Application", "MyServer")
GetVersion = XLApp.Version
End Function
Community Content
sửa đổi các tập tin excel đã có
create excel object an modify file
set excel = createobject("Excel.Application") '##create excel object
excel.visible = true
excel.workbooks.open "c:\test.xls"
excel.range("A1").value = "sample"
excel.range("B1").value = true
excel.activeworkbook.save
excel.quit