WinccFlexible Runtim - Xuất/nhập dữ liệu từ file Excel (CSV)

[hiennguyen]

Cách xuất nhập dữ liệu từ file Excel đây
http://support.automation.siemens.co...ard&viewreg=WW
Chúc các bạn thành công nhé!!

[daocongdabl]

cám ơn bạn nhiều link tài liệu rất hay

[hiennguyen]

Hướng dẫn cách xuất dữ liệu ra file excel hay .txt có sẵn project mẫu luôn cách bạn down về tham khảo nhé,hướng dẫn khá chi tiết
https://support.automation.siemens.c...11&caller=view
Chúc các bạn vui vẻ :p

[daocongdabl]

cám ơn hiennguyen tài liệu và hướng dẩn rất hay .

[hiennguyen]

Hướng dẫn cách xuất dữ liệu ra file excel hay .txt có sẵn project mẫu luôn cách bạn down về tham khảo nhé,hướng dẫn khá chi tiết
https://support.automation.siemens.c...11&caller=view
Chúc các bạn vui vẻ :p

anh Hưng cái project trong link này giờ mình muốn nó xuất dữ liệu ra 1 file trong thư mục của mình muốn phải làm sao??,e thử đổi đoạn script thành
If bExtension = 0 Then
'path = "\flash\textfile.txt"
path = "\C:\Documents and Settings\TIA-Portal\Desktop\textfile.txt"
Else
'path = "\flash\textfile.csv"
path = "\C:\Documents and Settings\TIA-Portal\Desktop\textfile.csv"
End If
mà không được,và đây là nguyên mẫu đoạn code để save dữ liệu ra text file dạng .csv hay .txt ,ghi ra đây để cho anh em tiện xem,hoặc vào link bên trên down cả project về
Dim f, path

If bExtension = 0 Then
'path = "\flash\textfile.txt"
path = "\Storage Card2\textfile.txt"
Else
'path = "\flash\textfile.csv"
path = "\Storage Card2\textfile.csv"
End If

'Error Routine - Fehlerroutine
On Error Resume Next

'Create object - Objekt erstellen
Set f = CreateObject("FileCtl.File")

If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If

'Open the textfile - Öffnen der Textdatei
f.open path , 2

If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If

'Write values into the textfile
f.LinePrint("material; " & szMaterial & ";")
f.LinePrint("pressure; " & nPressure & "; mbar;")
f.LinePrint("temperature; " & nTemperature & "; °C;")

'Close file - Datei schließen
f.Close
Set f = Nothing

ShowSystemAlarm "Storage of the data was successful!"

[dohung]

anh Hưng cái project trong link này giờ mình muốn nó xuất dữ liệu ra 1 file trong thư mục của mình muốn phải làm sao??,e thử đổi đoạn script thành
If bExtension = 0 Then
'path = "\flash\textfile.txt"
path = "\C:\Documents and Settings\TIA-Portal\Desktop\textfile.txt"
Else
'path = "\flash\textfile.csv"
path = "\C:\Documents and Settings\TIA-Portal\Desktop\textfile.csv"
End If
mà không được,và đây là nguyên mẫu đoạn code để save dữ liệu ra text file dạng .csv hay .txt ,ghi ra đây để cho anh em tiện xem,hoặc vào link bên trên down cả project về
Dim f, path

If bExtension = 0 Then
'path = "\flash\textfile.txt"
path = "\Storage Card2\textfile.txt"
Else
'path = "\flash\textfile.csv"
path = "\Storage Card2\textfile.csv"
End If

'Error Routine - Fehlerroutine
On Error Resume Next

'Create object - Objekt erstellen
Set f = CreateObject("FileCtl.File")

If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If

'Open the textfile - Öffnen der Textdatei
f.open path , 2

If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If

'Write values into the textfile
f.LinePrint("material; " & szMaterial & ";")
f.LinePrint("pressure; " & nPressure & "; mbar;")
f.LinePrint("temperature; " & nTemperature & "; °C;")

'Close file - Datei schließen
f.Close
Set f = Nothing

ShowSystemAlarm "Storage of the data was successful!"

Em sữa 1 chỗ không thì nó không có chạy đâu,trong file còn có 2 cái đoạn cript nữa,em vô đó sữa tiếp.

[letrung]

Chào các pro

mình cũng đang gặp vấn đề tương tự.
Vấn đề của mình là dùng VB để viết giao diện điều khiển một máy đếm linh kiện.
sau đó sẽ xuất logview của quá trình đếm ra một file report định dạng csv.
có pro nào có giải pháp cho vấn đề này thì xin chỉ giáo dùm.

DC mail của mình là : [email protected]
hoặc [email protected]

mong anh em giúp đỡ.
thanks.

[dohung]

Chào các pro

mình cũng đang gặp vấn đề tương tự.
Vấn đề của mình là dùng VB để viết giao diện điều khiển một máy đếm linh kiện.
sau đó sẽ xuất logview của quá trình đếm ra một file report định dạng csv.
có pro nào có giải pháp cho vấn đề này thì xin chỉ giáo dùm.

DC mail của mình là : [email protected]
hoặc [email protected]

mong anh em giúp đỡ.
thanks.

Chào anh.Vấn đề của anh tôi có 1 số ý kiến như sau :
+Nếu anh dùng VB để xuất dữ liệu ra .csv file thì có lẻ vấn đề thu thập dữ liệu từ VB-PLC anh đã làm được rồi phải không ? Nếu như đã đạt bước đó,trên VB anh có thể dùng Grid để hiển thì các data cần xuất,dùng 1 button để viết 1 hàm xuất hết tất cả record trên Grid xuống .csv,lưu ý dữ liệu cần xuất ngăn cách nhau bởi dấu ;.
+Nếu anh dùng Wincc thì có thể sử dụng Taglogin , tuy nhiên,xuất kiểu này cấu trúc không như mong muốn,không điều khiển được form.cách nữa là anh dùng connectivity pack sẽ xuất theo form mềm dẻo hơn.
+Nếu anh dùng wincc flexible thì có thể sử dụng Taglogin hay alarmloging,hoặc có thể sử dụng 1 đoạn VBS để xuất dữ liệu 1 cách mềm dẻo.Hoặc anh có thể sử dụng Option Wincc flexible Audit Viewer hỗ trợ.

Hi vọng sẽ có ích đối với anh.

[daocongdabl]

mình thấy một anh bạn đả làm vấn đề xuất dử liệu từ scada ra exel làm báo cáo ,cứ 1 giờ xuất 1 lần và cuối ngày xuất ra một file exel và file ngày này bao gồm tổng sản lượng các giờ ,khi cuối ngày thì file báo cáo này có tên đúng với ngày tháng năm báo cáo (ví dụ: báo cáo ngày 21-15-2012 ) riêng scada từ wincc flexible thì mình củng chĩ xuất được theo giờ giờ thôi còn giống như cách làm giống như yêu cầu trên không biết có pro nào trên diễn đàn làm chưa giúp mình với?

[dohung]

Chào anh Đà.
Vấn đề này của anh em đã làm nhưng chưa hoàn thiện.Nghĩa là em làm sau 30s thì lưu dữ liệu 1 lần,ghi 1 field gồm 8 thông số máy vào file excel.Và mỗi ngày nó sẽ tự tạo ra 1 file excel với cú pháp : tên file_ngay_thang_nam...
Còn tính tổng như anh em không làm vì máy đó người ta không có nhu cầu.

mình thấy một anh bạn đả làm vấn đề xuất dử liệu từ scada ra exel làm báo cáo ,cứ 1 giờ xuất 1 lần và cuối ngày xuất ra một file exel và file ngày này bao gồm tổng sản lượng các giờ ,khi cuối ngày thì file báo cáo này có tên đúng với ngày tháng năm báo cáo (ví dụ: báo cáo ngày 21-15-2012 ) riêng scada từ wincc flexible thì mình củng chĩ xuất được theo giờ giờ thôi còn giống như cách làm giống như yêu cầu trên không biết có pro nào trên diễn đàn làm chưa giúp mình với?