Trao đổi dữ liệu giữa WinCC V7 và MS Excel

[PHAMTRUNGVAN]

mình góp ý các bác nếu muốn gọi luôn file exel ra xem thì đoạn code trên bỏ luôn 2 dòng objExcelApp.Workbooks.Close và
objExcelApp.Quit
dạng xuất này là dạng xuất theo phiếu định dạng trước
nếu muốn xuất 1 lần 1 phiếu thì trên đoạn code trên tại dòng
objExcelApp.ActiveWorkbook.Save sửa lại là objExcelApp.ActiveWorkbook.Saveas +số lần xuất từ 1 tag sẻ ra như ý muốn
và cũng từ đoạn code trên thêm 1 chút mắn ,muối vào nửa nó sẻ cho ra phiếu xuất theo ngày tháng báo cáo
ngoài ra cách xuất theo phiếu thì wincc còn 1 dạng xuất theo data
là cứ 1 lần xuất sẻ ghi xuống 1 dòng và 1 ngày hoặc 1 tháng cho ra 1 file báo cáo
lưu ý để cho file báo cáo có dung lượng nhỏ ngoài cách sử dụng dạng exel gốc kiểu file.xls hoặc xlsx thì có thể dùng kiểu file.csv cho file báo cáo dung lượng nhỏ để tiện lưu trử

Chào bạn!!!
bạn có thể cho 1 code ngắn ví dụ được không?
chỉ cần mỗi lần mình nhấn là du liệu từ wincc xuất ra excel kèm theo ngày giờ nữa được không?

[daocongdabl]

Chào bạn!!!
bạn có thể cho 1 code ngắn ví dụ được không?
chỉ cần mỗi lần mình nhấn là du liệu từ wincc xuất ra excel kèm theo ngày giờ nữa được không?

đoạn code đó là ngắn và đơn giản nhất rồi
quá cụ thể còn gì bàn nửa

[PHAMTRUNGVAN]

đoạn code đó là ngắn và đơn giản nhất rồi
quá cụ thể còn gì bàn nửa

Mình thử ok rồi!
Nhưng yêu cầu là xuất ra excel cả thời gian và mỗi lần xuất ra thì excel xuống 1 dòng.
Đoạn code trên chỉ xuất ra và bị lặp lại ô dữ liệu.
Mình còn yếu về vấn đề này nên mong bạn có thể chỉ rõ hơn.
Cám ơn ACE trong diễn đàn đã quan tâm!!!

[daocongdabl]

code này thích hợp cho xuất báo cáo dạng phiếu ,biểu mẩu thôi
còn vấn đề bạn đưa ra là xuất dạng data thì code này không đáp ứng được
phải dùng code khác

[PHAMTRUNGVAN]

code này thích hợp cho xuất báo cáo dạng phiếu ,biểu mẩu thôi
còn vấn đề bạn đưa ra là xuất dạng data thì code này không đáp ứng được
phải dùng code khác

Bạn có code theo yêu cầu đó ko? up lên giúp mình với!!!
P/s xuất ra excel nhé!!! mình có mấy code nhưng chỉ xuất ra access thôi mà access thì không rành cho lắm!

[khoadang87]

Bác nào có code xuất dữ liệu dạng data theo thời gian cho em xin, access cũng được mà excel thì tốt quá!

[ncrazy]

hic, thì xuất được exell rồi thì cải tiến nó chút xíu đi bạn, ^_^ đợi chờ người khác làm gì, ví dụ đơn giản nhất là bạn lưu lại vị trí cell vừa xuất vào biến nhớ nào đó, lần sau trước khi ghi thì đọc cái vị trí đó lên rồi dịch xuống 1 ô là dc, còn không thì trước khi ghi đọc xem nó có trống không, nếu trống thì ghi vào, nếu ko thì xuống 1 dòng.

[PHAMTRUNGVAN]

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É!!!

[ncrazy]

code nhảy dòng ở chữ cells chứ đâu ^_^

[PHAMTRUNGVAN]

code nhảy dòng ở chữ cells chứ đâu ^_^

cells đó là quy định ô trong excel chứ nhảy dòng gì huynh?chưa hiểu rõ lắm. :D