Em chào các anh chị!!!!!anh chị nào biếtem làm cả mấy ngày nay cũng không xong.Em viết chương trình trong VBS để xuất báo cáo mà sao khi em kích nút xuất nó hiện lên file excel rồi biến mất liền.Em vào chỗ lưu nó cũng không thấy cập nhật chi hết mong anh chị
!!!!!!!!!!em cảm ơn anh chị nhiều!!!đây là code của em
Sub OnClick(Byval Item)
Dim xuat
Set xuat=CreateObject("Excel.Application")
xuat.visible=True
xuat.Workbooks.open"E:\xuatexcel\dulieu.xls"
xuat.cells(1,2).value=ScreenItems("CAT").outputval ue
xuat.cells(1,3).value=ScreenItems("DA").Outputvalu e
xuat .cells(1,4).value=ScreenItems("XIMANG").Outputvalu e
xuat.cells(1,5).value=ScreenItems("PHUGIA").Output value
xuat.ActiveWorkBook.Save
Set xuat = Nothing
End Sub
Đánh dấu