-
Thành viên cấp 2
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
BÁc nào làm qua vấn đề này rùi chỉ ah. Chỉ giúp em tại sao xuất sang Excel ko có gỉ cả???
-
Tag của Chủ đề này
Quyền viết bài
- Bạn Không thể gửi Chủ đề mới
- Bạn Không thể Gửi trả lời
- Bạn Không thể Gửi file đính kèm
- Bạn Không thể Sửa bài viết của mình
-
Nội quy - Quy định
Back to Top
Múi giờ GMT +7. Bây giờ là 03:31 AM.
Phiên bản 4.2.5
Phát triển bởi thành viên PLCVietNam®.
Đánh dấu