HJHJ!!!
TẠI VB EM CÒN GÀ QUÁ!!!
CHƯA BIẾT MÃ CODE THÌ LAM SAO VIẾT CHƯƠNG TRÌNH ĐƯỢC. ACE THÔNG CẢM
VỚI LẠI THỜI GIAN KHÔNG CÒN NHIỀU NÊN KHÔNG THỂ XEM HẾT TÀI LIỆU ĐƯỢC. ACE NÀO CÓ CODE SẴN THÌ UP LÊN. KHÔNG THÌ BÀY CÁCH HOẶC CHO EM MÃ LÊNH ĐỂ EM TẬP TRUNG VÀO TRÁNH TRƯỜNG HỢP COI LAN MAN.
CODE "Sub OnClick(ByVal Item)

Dim objExcelApp
Set objExcelApp = CreateObject("EXCEL.Application")
objExcelApp.Visible = True
objExcelApp.Workbooks.Open "D:\Study\DO AN TOT NGHIEP\NICE\EXCEL\TEST VER2-E.xlsx"

Set objExcelApp = CreateObject("EXCEL.Application")
objExcelApp.Visible = True
objExcelApp.Workbooks.Open "D:\Study\DO AN TOT NGHIEP\NICE\EXCEL\TEST VER2-E.xlsx"
objExcelApp.Cells(4, 2).Value = ScreenItems("I/O Field1").OutputValue
objExcelApp.Cells(5, 2).Value = ScreenItems("I/O Field2").OutputValue
objExcelApp.Cells(6, 2).Value = ScreenItems("I/O Field3").OutputValue
objExcelApp.Cells(7, 2).Value = Now
objExcelApp.ActiveWorkbook.Save

End Sub"
ĐÃ XUẤT RA ĐƯỢC THỜI GIAN NHƯNG LÚC ĐƯỢC LÚC KHÔNG NÊN KHÔNG BIẾT CÓ BỊ LỖI HAY CÒN THIẾU CHỖ NÀO KO???MONG MẤY PRO CHỈ GIÚP.
CODE TRÊN CÓ MỖI CHỮ "NOW" MÀ EM MẤT HẾT CẢ NGÀY CHỦ NHẬT. HIXHIX.
P/S ACE CÓ CODE NHẢY DÒNG EXCEL THÌ UP LUÔN NHÉ!!!