Gửi bởi
congatechnical
các bác cho em hỏi chút? Em làm như VD trong phần Help mà sao khi xuất sang excel thi chỉ có file không có gì cả ( là không có gia trị của fielIO mong các bác chỉ giúp em là lỗi ntn với ah.
Code VD đây ah.
Dim objExcelApp
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
'
'ExcelExample.xls is to create before executing this procedure.
'Replace <path> with the real path of the file ExcelExample.xls.
objExcelApp.Workbooks.Open "<path>\ExcelExample.xls"
objExcelApp.Cells(4, 3).Value = ScreenItems("IOField1").OutputValue
objExcelApp.ActiveWorkbook.Save
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp = Nothing
Đánh dấu