Mình cần code VBA Access để mở 1 file Excel, active sheet cuối cùng. Nghiên cứu hoài chưa ra. Nhờ cao thủ trợ giúp cho!

Code active Work book và work sheet


Các sheet trong worksheet bình đẳng với nhau về vị trí (các sheet có thể thay đổi vị trí thoải mái). Vì vậy, khi gọi Worksheet phải có tên cụ thể nên trước khi close Workbook bạn đặt trước tên sheet cuối là "Sheet cuối" nếu muốn active sheet đó.

Đi tới sheet cuối cùng:
Sheets(Sheets.Count).Select

Đang sử dụng Access 2010. Từ Access sử dụng các cách kia không được. File Excel đặt tên theo số thứ tự (tên sheet giúp tham gia tính toán tự động nên không đặt theo chuỗi)

                                                  Đoạn Code chưa hoàn chỉnh:
Private Sub ActiveSheetCuoi_Click()
Dim appExcel As Object
Set appExcel = CreateObject("Excel.Application")
'Open Workbook
appExcel.Workbooks.Open "D:\TenFile.xlsx"
appExcel.Visible = True
appExcel.Sheets(Sheets.Count).Select               'lỗi ở khúc này.
End Sub

vodainhan Đã viết:Đang sử dụng Access 2010. Từ Access sử dụng các cách kia không được. File Excel đặt tên theo số thứ tự (tên sheet giúp tham gia tính toán tự động nên không đặt theo chuỗi)

                                                  Đoạn Code chưa hoàn chỉnh:
Private Sub ActiveSheetCuoi_Click()
Dim appExcel As Object
Set appExcel = CreateObject("Excel.Application")
'Open Workbook
appExcel.Workbooks.Open "D:\TenFile.xlsx"
appExcel.Visible = True
appExcel.Sheets(Sheets.Count).Select               'lỗi ở khúc này.
End Sub

=================================================
bạn sửa lại như sau:

Cám ơn Hieuvn. Code hoạt động tốt ròi.

Mở rộng thêm: Không rõ Access có tự động xử lý được 1 đối tượng đồ họa trong Excel không (ví dụ tự chọn 1 shapes có sẵn trong bảng tính rồi xóa đi)?

Đã mò ra rồi: 

...tiếp nối đoạn code trước

appExcel.ActiveSheet.Shapes("Rectangle1").Select

appExcel.ActiveSheet.Shapes("Rectangle1").Cut

Mudule này hoạt động tốt (nhập-xuất-tồn) trong file *.mdb. (kể cả khi sử dụng access 2003, 2010)
Nhưng save as sang file *.accdb thì đoạn code trên bị lỗi. (lỗi dòng hoso.edit). sửa sang hoso.editmode cũng không được. Chưa biết sửa thế nào. Nhờ cao thủ trợ giúp.

Function congdon()
Dim csdl As Database, hoso As Recordset, tl As Double
Set csdl = DBEngine.Workspaces(0).Databases(0)
Set hoso = csdl.OpenRecordset("T_THEKHO_NXT", DB_OPEN_TABLE)
tl = 0
hoso.MoveFirst
Do Until hoso.EOF
tl = tl + hoso!nhap - hoso!xuat
hoso.Edit
hoso!ton = tl
hoso.Update
hoso.MoveNext
Loop
hoso.Close
End Function

Bạn nên khai báo tường minh: 

Trích dẫn:Dim hoso As DAO.Recordset