Chuyển dữ liệu từ WinCC ra Excel

Cùng thảo luận nhé !
đây là 1 VD:
thử xem thế nào nhé !!!Phần này thực tế cũng rất cần !
Example 1: MS Excel
In this example, an output value from an input field is written in an Excel table.
'VBS113
Dim objExcelApp
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
'ExcelExample.xls is to create before executing this procedure.
'Replace with the real path of the file ExcelExample.xls.
objExcelApp.Workbooks.Open "\ExcelExample.xls"
objExcelApp.Cells(4, 3).Value = ScreenItems("IOField1").OutputValue
objExcelApp.ActiveWorkbook.Save
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp = Nothing

Đoạn code trên là chuyển dữ liệu j thế ?

Bạn xem phần chữ xanh nhé ! Mình cũng ko rành lắm đâu có gì sai sót bỏ qua hehehe

Đoạn code trên là chuyển dữ liệu từ IOField1 (nơi bạn nhập dư liệu từ màn hình wincc hoặc nơi hiển thị dữ liệu từ các tag nội, ngoại) khi bạn nhấn 1 nút ví dụ như "xuất dữ liệu", . Mình đã làm đoạn code này rùi nhưng nó chỉ là tạo 1 nút ấn "xuất dữ liệu" , ở nút ấn đó bạn viết đoạn code nay vào phần event viết bằng VB....chú ý là tạo file ecxel trước nhé từ đó biết được mình nên xuất dữ liệu ra cột nào , hàng nào. Cái này chỉ xuất được dl từ IOField trong picture mà mình đặt nút ấn thôi...không xuất được IOField từ các picture khác, vì ở các picture khác nhau thì IOField lại trùng tên "IOField1,IOField2...". thêm nữa là nếu ta thay chữ "IOField1" bằng 1 tên tag thì không thể xuất dl từ 1 tag nội hay tag ngoại đó ra được.....

sokoloemily đã viết:

Đoạn code trên là chuyển dữ liệu từ IOField1 (nơi bạn nhập dư liệu từ màn hình wincc hoặc nơi hiển thị dữ liệu từ các tag nội, ngoại) khi bạn nhấn 1 nút ví dụ như "xuất dữ liệu", . Mình đã làm đoạn code này rùi nhưng nó chỉ là tạo 1 nút ấn "xuất dữ liệu" , ở nút ấn đó bạn viết đoạn code nay vào phần event viết bằng VB....chú ý là tạo file ecxel trước nhé từ đó biết được mình nên xuất dữ liệu ra cột nào , hàng nào. Cái này chỉ xuất được dl từ IOField trong picture mà mình đặt nút ấn thôi...không xuất được IOField từ các picture khác, vì ở các picture khác nhau thì IOField lại trùng tên "IOField1,IOField2...". thêm nữa là nếu ta thay chữ "IOField1" bằng 1 tên tag thì không thể xuất dl từ 1 tag nội hay tag ngoại đó ra được.....

Rất hay cảm ơn bạn đã đóng góp cho diễn đàn : Bạn có thể làm cái Video, Up bài bạn đã thử làm để xuất ra Excel không ? Để mọi người hiểu thêm .Thank

Mình thấy có đoạn code này tìm thấy trên mạng :

"""
Đây là code để tạo một cái file excel và ghi dữ liệu vào đó từ WinCC viết bằng VBS.
(lưu ý: WinCC chỉ hỗ trợ xuất ra file excel bằng excel 2003 thôi nhé, nếu 2007 thì bó tay đó).

Function action

Const ForReading = 1, ForWriting = 2, ForAppending = 8

Dim fso, f,Str,I(5), index

Set fso = CreateObject("Scripting.FileSystemObject")

Str = Replace(Now,"/","_")

Str = Replace(str,":","_")

Str = Replace(str," ","_")

Str = "Report_" & str & ".xls"

Set f = fso.OpenTextFile("\\\D:\\" & str, ForWriting, True)


Set I(1) = HMIRuntime.Tags("Test_Tag1")

Set I(2) = HMIRuntime.Tags("Test_Tag2")

Set I(3) = HMIRuntime.Tags("Test_Tag3")

Set I(4) = HMIRuntime.Tags("Test_Tag4")

Set I(5) = HMIRuntime.Tags("Test_Tag5")


index = 0

f.Write "**** Muon ghi cai gi thi viet vao day cho no dep **** " & vbCrLf & vbCrLf

f.Write Now & vbCrLf


For index = 1 To 5

I(index).Read

f.Write I(index).Name & vbTab & i(index).Value & vbCrLf

Next

f.Close

'MsgBox("Report OK")


End Function

""
Không biết phần I/O file ở trên có quan trọng Excel 2003 hay 2007 hay ko ?

Ôi , hay quá .

chào mọi người...cảm ơn huudotb mĩnh thử đoạn code trên nhưng chưa được,,, rồi mh sẽ tìm ra vấn đề là ở đâu...hi..
À còn đây là video mình làm về xuất từ IOField trên wincc ra excel... nhưng rất tiếc là không thu được tiếng, vì nhà hỏng hết phone rùi...
[You must be registered and logged in to see this link.]

À quên...anh em nào mà làm cái này thì chú ý là bỏ 2 dòng
objExcelApp.Workbooks.Close
objExcelApp.Quit
đi nhé, vì nếu không bỏ đi thì khi click vào nút "xuất dữ liệu" nó mở nên rồi tắt đi liền trong nháy mắt , chẳng xem được gì....
ta phải tạo 1 file excel trước thì biết được ô nào (dòng mấy, cột mấy) sẽ hiển thị dữ liệu ở iofield nào......sau đó save lại, rùi tắt đi........trong code thì có dòng chỉ đến đường dẫn của file đó... bạn không cần mở file excel trước, khi nhấn nút nó sẽ tự mở (objExcelApp.Workbooks.Open "\ExcelExample.xls")....

sokoloemily bác pro đó!

Đúng rùi 2 câu lệnh này làm cho Excel tự động tắt :
objExcelApp.Workbooks.Close
objExcelApp.Quit

Thấy video rất hay và ý nghĩ.Thank bạn nhé ! Rất cần sự đóng góp hay của bạn và các thành viên

sokoloemily đã viết:

chào mọi người...cảm ơn huudotb mĩnh thử đoạn code trên nhưng chưa được,,, rồi mh sẽ tìm ra vấn đề là ở đâu...hi..
À còn đây là video mình làm về xuất từ IOField trên wincc ra excel... nhưng rất tiếc là không thu được tiếng, vì nhà hỏng hết phone rùi...
[You must be registered and logged in to see this link.]

cảm ơn bài viết và đoạn video của anh rất nhiều, em mới tìm hiểu về wincc để làm đồ án tốt nghiệp nên rất cần thêm nhiều thông tin, nhất là cái hiển thị giá trị trả về của cảm biến đó anh. rất mong được sự giúp đỡ từ anh.

chào tranxuanloc89... chắc bạn muốn hiển thị giá trị đo được từ cảm biến analog nên win cc phải không?
cb đưa vào plc xử lý bằng hàm FC105 sau đó lấy giá trị ra vào 1 biến vd như MD10 chẳng hạn... sau đó trên Wincc cho 1 i/o hiển thị dl từ MD10 trên plc....về hàm xửu lý analog thì trên diễn đàn cũng đã có bài , bạn hãy tìm đọc...chúc thành công.

sokoloemily đã viết:

chào tranxuanloc89... chắc bạn muốn hiển thị giá trị đo được từ cảm biến analog nên win cc phải không?
cb đưa vào plc xử lý bằng hàm FC105 sau đó lấy giá trị ra vào 1 biến vd như MD10 chẳng hạn... sau đó trên Wincc cho 1 i/o hiển thị dl từ MD10 trên plc....về hàm xửu lý analog thì trên diễn đàn cũng đã có bài , bạn hãy tìm đọc...chúc thành công.

thanks sokoloemily. Nếu được tham khảo chương trình bạn viết trong video thi hay quá. :)

sokoloemily đã viết:

chào tranxuanloc89... chắc bạn muốn hiển thị giá trị đo được từ cảm biến analog nên win cc phải không?
cb đưa vào plc xử lý bằng hàm FC105 sau đó lấy giá trị ra vào 1 biến vd như MD10 chẳng hạn... sau đó trên Wincc cho 1 i/o hiển thị dl từ MD10 trên plc....về hàm xửu lý analog thì trên diễn đàn cũng đã có bài , bạn hãy tìm đọc...chúc thành công.

khi xuất dữ liệu ra excell thi chi lưu được tại ô mình đã chỉ định thôi hả bác. có cách nào để lưu giá trị mới vào cột khác hàng khác được không vậy. mong sokoloemily chỉ giáo

Cũng có thể có những đoạn code giả quyết được vấn đề của bạn, tuy nhiên theo mh thì việc lưu dữ liệu hay xuất ra excel thi phải kiểm soát được nó, các lần xuất ra để in ấn thì cấu trúc của bản báo cáo phải như nhau chứ, chẳng lẽ mỗi lần xuất ra dữ liệu lại nhảy lung tung ah???. nếu thêm giá trị mới thì chỉ cần thêm 1 dòng lệnh mới cho cái code trên...thế là cũng nhanh gọn rùi...........

sokoloemily đã viết:

Cũng có thể có những đoạn code giả quyết được vấn đề của bạn, tuy nhiên theo mh thì việc lưu dữ liệu hay xuất ra excel thi phải kiểm soát được nó, các lần xuất ra để in ấn thì cấu trúc của bản báo cáo phải như nhau chứ, chẳng lẽ mỗi lần xuất ra dữ liệu lại nhảy lung tung ah???. nếu thêm giá trị mới thì chỉ cần thêm 1 dòng lệnh mới cho cái code trên...thế là cũng nhanh gọn rùi...........

nếu như mình dùng với mục đích là giám sát các lỗi đã xảy ra, hoặc dã có những hoạt động gì đã được thực hiện.... thì cần nó lưu tự động vào excell chi tiết về cả thời gian xảy ra nữa...
Bạn chỉ giúp mình với nhé
Thanks

việc giám sát và đưa ra cảnh báo, phát hiện lỗi gì, vị trí ở đâu bạn hoàn toàn có thể khai thác chức năng Alarm loging của WinCC,...bạn nên đọc lại phần này.

[You must be registered and logged in to see this image.]

huudotb đã viết:

Cùng thảo luận nhé !
đây là 1 VD:
thử xem thế nào nhé !!!Phần này thực tế cũng rất cần !
Example 1: MS Excel
In this example, an output value from an input field is written in an Excel table.
'VBS113
Dim objExcelApp
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
'ExcelExample.xls is to create before executing this procedure.
'Replace with the real path of the file ExcelExample.xls.
objExcelApp.Workbooks.Open "\ExcelExample.xls"
objExcelApp.Cells(4, 3).Value = ScreenItems("IOField1").OutputValue
objExcelApp.ActiveWorkbook.Save
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp = Nothing

sokoloemily đã viết:

Đoạn code trên là chuyển dữ liệu từ IOField1 (nơi bạn nhập dư liệu từ màn hình wincc hoặc nơi hiển thị dữ liệu từ các tag nội, ngoại) khi bạn nhấn 1 nút ví dụ như "xuất dữ liệu", . Mình đã làm đoạn code này rùi nhưng nó chỉ là tạo 1 nút ấn "xuất dữ liệu" , ở nút ấn đó bạn viết đoạn code nay vào phần event viết bằng VB....chú ý là tạo file ecxel trước nhé từ đó biết được mình nên xuất dữ liệu ra cột nào , hàng nào. Cái này chỉ xuất được dl từ IOField trong picture mà mình đặt nút ấn thôi...không xuất được IOField từ các picture khác, vì ở các picture khác nhau thì IOField lại trùng tên "IOField1,IOField2...". thêm nữa là nếu ta thay chữ "IOField1" bằng 1 tên tag thì không thể xuất dl từ 1 tag nội hay tag ngoại đó ra được.....

HI!
Mình làm như trong video rồi mà ko được.
Khi mình ấn nút thì cũng thấy file excel hiện ra nhưng khi
vào file đó để xem có kết quả hiện lên ko thì ko thấy kết quả đâu cả.
Không biết mình còn cài đặt gì thiếu sót không.
Mình chỉ làm đơn giản với IOField1 điều khiển tag 'apsuat'. Thay đổi tag này bằng cách nhập IOField1.
Mong được các bạn giúp đỡ.
Code của mình:
Sub OnClick(ByVal Item)
Dim objExcelApp
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
'ExcelExample.xls is to create before executing this procedure.
'Replace with the real path of the file ExcelExample.xls.
objExcelApp.Workbooks.Open "D:\Du _An\Viet_han\viethan.xls"
objExcelApp.Cells(9, 3).Value = ScreenItems("IOField1").OutputValue
objExcelApp.Cells(6, 2).Value = ScreenItems("IOField2").OutputValue
objExcelApp.Cells(7, 2).Value = ScreenItems("IOField1").OutputValue
objExcelApp.ActiveWorkbook.Save
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp = Nothing
End Sub

chào bạn! Không biết bạn dùng Excel 2007 hay 2003? Nếu 2007 bạn nên lưu dạng 2003 nhá ! rùi tim đường dẫn lại xem .Chúc thành công

Chào mọi người,
Em đã đưa được dữ liệu từ IOField ra fiel excel 2003 rồi. Thế nhưng khi em thay đổi giá trị của IOField thì dữ liệu không tự động cập nhật, chỉ khi nhấn lại nút nhấn thì dữ liệu mới mới được đưa vào, tuy nhiên lại đưa vào 1 file excel khác. (Suy ra nãy giờ là 2 file excel).
Do kiến thức về VB em còn yếu, nên không biết làm cách nào để dữ liệu mới sẽ được đưa vào cell dưới, cứ như thế ...
Hi vọng mọi người sẽ hướng dẫn em, hoặc có thể cho em xin ít tài liệu về VB trong WINCC này không ạ.
Cám ơn mọi người - Chúc sức khoẻ.

huudotb đã viết:

chào bạn! Không biết bạn dùng Excel 2007 hay 2003? Nếu 2007 bạn nên lưu dạng 2003 nhá ! rùi tim đường dẫn lại xem .Chúc thành công

Hi!
Mình dùng excel 2003.
mình đặt đúng đường dẫn tới file rồi.
không hiểu sao lại ko in vào excel được.
không biết phần này có gì cần chú ý khi làm không?
Bạn luckystar9923 có thể chỉ giúp mình ko?
thank you!

lethang_hp đã viết:

huudotb đã viết:

chào bạn! Không biết bạn dùng Excel 2007 hay 2003? Nếu 2007 bạn nên lưu dạng 2003 nhá ! rùi tim đường dẫn lại xem .Chúc thành công

Hi!
Mình dùng excel 2003.
mình đặt đúng đường dẫn tới file rồi.
không hiểu sao lại ko in vào excel được.
không biết phần này có gì cần chú ý khi làm không?
Bạn luckystar9923 có thể chỉ giúp mình ko?
thank you!

Chào bạn,
Đây là đoạn code ở trên của huudo
'VBS113
Dim objExcelApp
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
'ExcelExample.xls is to create before executing this procedure.
'Replace with the real path of the file ExcelExample.xls.
objExcelApp.Workbooks.Open "\ExcelExample.xls"
objExcelApp.Cells(4, 3).Value = ScreenItems("IOField1").OutputValue
objExcelApp.ActiveWorkbook.Save
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp = Nothing

Bạn bỏ 2 dòng là được ( nhớ tạo file exel trước)
objExcelApp.Workbooks.Close
objExcelApp.Quit

Thank nhé!
Mình làm được rồi.
Không hiểu sao mình chỉ thay cái đường dẫn là nó lưu được luôn.
Mà rõ ràng hôm trước mình đã thay mấy lần mà ko được.