Núi cao sông rộng cho lòng thảnh thơi …

‘khai báo các biến cần dùng
Dim bXLS As Excel.Application
Dim bWB As Excel.Workbooks
Dim bSheet As Excel.Worksheet
Dim bVung As Range
Dim dong as integer
Dim cot as integer
‘khởi động Excel và nhận đối tượng Application.
Set bXLS = CreateObject("Excel.Application")
‘xác định đối tượng quản lý file Excel.
Set bWB = bXLS.Workbooks
‘mở file "Data.xls" chứa dữ liệu
bWB.Add "Data.xls"
‘thiết lập biến miêu tả worksheet cần truy xuất
Set bSheet = bWB.Item(1).Worksheets("Sheet1")
‘thiết lập vùng làn việc ví dụ A1:A20
Set bVung = bSheet.Range ("A1:A20")
 
‘Ghi dữ liệu vào 1 ô excel
bVung.cells(dong,cot) = "giá trị"
 
‘đóng đối tượng workbook (file xls)
bWB.Item(1).Close
‘đóng ứng dụng Excel
bXLS.Quit

Gửi phản hồi

Mời bạn điền thông tin vào ô dưới đây hoặc kích vào một biểu tượng để đăng nhập:

WordPress.com Logo

Bạn đang bình luận bằng tài khoản WordPress.com Log Out / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Log Out / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Log Out / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Log Out / Thay đổi )

Connecting to %s

%d bloggers like this: