Các câu lệnh giúp xử lý file Excel trên VB6

Bước đầu chuyển từ VBA sang VB6, đối với việc khai thác bảng cơ sở dữ liệu nhỏ thì Excel vẫn là 1 công cụ hữu ích. Dưới đây là những câu lệnh giúp chúng ta mở/xem/sửa đổi/đóng 1 file excel thông qua VB6:

Khai báo biến

Dim xl As Excel.Application 'khai biến cho ứng dụng Excel
Dim xlsheet As Excel.Worksheet 'khai biến cho Excel worksheet
Dim xlwbook As Excel.Workbook 'khai biến cho bảng tính Excel

Mở bảng tính đã tạo sẵn

Set xlwbook = xl.Workbooks.Open("C:\book1.xlsx") 'giả định file bảng tính nằm ngay ở ổ C:
Set xlsheet = xlwbook.Sheets.Item(1) 'gán biến xlsheet là sheet1 của bảng tính

Lưu bảng tính sau khi đã hoàn tất các thao tác

xl.ActiveWorkbook.Close True, "C:\book1.xlsx" 'đóng bảng tính & lưu lại các thay đổi
xl.Quit ''thoát ứng dụng Excel

Tạo 1 bảng tính mới

Set xl = New Excel.application
Set xlwbook = xl.Workbooks.Add
Set xlsheet = xlwbook.Sheets.Item(1)

Lưu bảng tính mới

xl.ActiveWorkBook.Save ("C:\myfilename.xlsx")

Tạo Form Unload để thoát ứng dụng Excel

Private Sub Form_Unload (Cancel As Integer)
    Set xlwbook = Nothing
    Set xl = Nothing
End Sub

Khai thác dữ liệu từ bảng tính Excel

Text1.Text = xlsheet.Cells(2, 1) 'row 2 col 1
Text2.Text = xlsheet.Cells(2, 2) 'row 2 col 2