Tất cả các ứng dụng văn phòng của Microsoft đều hỗ trợ tự động hóa. Chúng có thể chạy dưới dạng máy chủ COM và được sử dụng từ các tập lệnh bên ngoài hoặc được nhúng vào tài liệu. Vì vậy, bạn có thể ghi dữ liệu vào tài liệu Excel từ tập lệnh vba.
Cần thiết
- - đã cài đặt ứng dụng Microsoft Excel;
- - Trình soạn thảo / soạn thảo văn bản Visual Basic.
Hướng dẫn
Bước 1
Tạo vùng chứa để lưu trữ mã vba. Nếu tập lệnh được nhúng vào tài liệu, hãy tải tệp thích hợp lên Microsoft Excel. Mở Trình soạn thảo Visual Basic bằng cách nhấn Alt + F11. Nếu cần, hãy tạo một mô-đun mới (Mục Mô-đun trong menu Chèn). Mở một trong các mô-đun hoặc biểu mẫu. Tạo một trình xử lý để kiểm soát biểu mẫu của bạn hoặc chỉ thêm một thủ tục vào một mô-đun. Ví dụ:
Kiểm tra phụ ()
Kết thúc Sub
Nếu bạn đang phát triển một tập lệnh độc lập (nghĩa là nó sẽ chạy trong Windows Script Host), thì bạn chỉ cần tạo một tệp có phần mở rộng vbs trong trình soạn thảo văn bản.
Bước 2
Trong tập lệnh được nhúng trong tài liệu, hãy thêm khai báo biến ở đầu thủ tục:
Dim oWorkbook As Excel. Workbook
Làm mờ oSheet như Excel. Worksheet
Cái đầu tiên là để lưu trữ một tham chiếu đến một đối tượng sổ làm việc Excel và cái thứ hai dành cho một trang tính.
Bước 3
Khởi tạo các biến với các tham chiếu đối tượng. Trong tập lệnh vbs, hãy tạo một đối tượng ứng dụng Excel (đối tượng này sẽ khởi chạy Excel dưới dạng máy chủ COM):
Đặt oApplication = CreateObject ("Excel. Application").
Trong tập lệnh được nhúng trong tài liệu, đối tượng Ứng dụng chung sẽ được sử dụng thay vì biến oApplication, tham chiếu đến đối tượng ứng dụng hiện tại. Chọn một sổ làm việc hiện có hoặc mở một sổ làm việc Excel mới. Ví dụ:
Đặt oWorkbook = Application. Workbooks (1)
Đặt oWorkbook = Application. Workbooks ("Book1")
Đặt oWorkbook = oApplication. Workbooks. Open ("D: / vic / Related / tmp / test.xls")
Nhận một liên kết đến trang tính mong muốn của cuốn sách:
Đặt oSheet = oApplication. Sheets ("Sheet1")
Bước 4
Ghi dữ liệu vào Excel từ tập lệnh vba. Sử dụng bộ sưu tập Ô, là một thuộc tính của đối tượng trang tính sổ làm việc được tham chiếu ở bước trước, vào biến oSheet. Ví dụ về việc ghi một chuỗi vào một ô có thể trông như thế này:
oSheet. Cells (1, 1) = "Chuỗi sẽ được ghi vào ô A1"
Bước 5
Trong tập lệnh vbs, hãy thêm mã để lưu dữ liệu và tắt ứng dụng Excel:
oWorkbook. Save
oApplication. Quit
Bước 6
Lưu và thực thi tập lệnh. Trong Visual Basic Editor, nhấn Ctrl + S, sau đó định vị con trỏ trong phần nội dung của thủ tục và nhấn F5. Lưu tập lệnh vbs vào đĩa và sau đó chạy nó như một tệp thông thường.
