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

**hoangcdt** · 08-19-2013

e cũng làm như mấy anh chỉ, nhưng có điều nó bị lỗi, ko biết nên giãi quyết như thế nào... mong máy a giúp đỡ..
2.jpg
[IMG]

[/IMG]

**phuc_automation** · 07-04-2014

Hiện tại em đang học Wincc, phần xuất file excel chưa làm được. Lúc xuất ra, cửa sổ excel vừa hiện ra là tự tắt mất tiêu, trong thư mục đích để lưu file thì cũng không có file nào được tạo ra. Mò hai buổi tối rồi mà chưa ra

Đây là code VB xuất excel:

Sub OnClick(ByVal Item)
Dim objExcelApp

Set objExcelApp = CreateObject("Excel.Application")

objExcelApp.Visible = True

objExcelApp.Workbooks.Open "G:\AUTOMATION\LAP TRINH\SCADA\tets excel.xlsx"

objExcelApp.Cells(10, 6).Value = ScreenItems("value1").OutputValue
objExcelApp.Cells(10, 7).Value = ScreenItems("value2").OutputValue
objExcelApp.Cells(10, 8).Value = ScreenItems("value3").OutputValue
objExcelApp.Cells(10, 9).Value = ScreenItems("value4").OutputValue

objExcelApp.ActiveWorkbook.Save

objExcelApp.Workbooks.Close

objExcelApp.Quit

Set objExcelApp = Nothing

End Sub

Mong nhờ các sư huynh chỉ giáo với. Em gửi link bản project test. Huynh nào down về mở ra kiểm tra hộ em với. Rút cuộc là lỗi do đâu? Cách khác phục

Bản test: http://www.mediafire.com/download/fo...ukwgr/test.rar

Nhân tiện gửi luôn link bản demo của một bạn bên dientuvietnam.net ( quên mất luồng nào, tìm mãi không thấy ). Sao bản test của em không nhập được giá trị vào, mà bản demo của bạn "ấy" lại nhập được?
Bản demo: http://www.mediafire.com/download/is...c1zs/demo2.rar

Mong các huynh chỉ ra cái sai của em

**traininhbinh** · 07-20-2014

các anh cho em hỏi ? em xuất dữ liệu ra excel được rùi. h em muốn lưu dữ liệu ra excel 1 cách tự động thì phải làm sao ạ? nếu khi mất điện hệ thốn ngừng hoạt động thì ta vẫn có thể mở file excel để xem được dữ liệu cuối cùng? thanks all

**tiendungkct** · 08-12-2014

Bạn có thể dùng trigger lưu theo chu kỳ

**traininhbinh** · 08-12-2014

thanks a! em làm được cho nó xuất ra liên tục trong triger rùi. nhưng nó lại báo lỗi sql? chắc do key của wincc

**vanviet** · 08-13-2014

Em có 1 đoạn code VB Script Lưu trữ dữ liệu từ WinCC Flex vào tập tin Excel bằng cách sử dụng VBScript : em đã chép nó vào Script WinCC Flex và đưa nó vào Event của IO Field, sau đó e tìm cái file Excel nó suất ra ở đâu em không biết.
Em cũng mới tìm hiểu VB Script nên đọc code chưa được hiểu rõ mong các anh trong diễn đàn giúp đỡ em.

Code VB Script: http://stackoverflow.com/questions/1...using-vbscript

Dim wsh, XLSrunning, TargetBookrunning, objExcelApp, objWorkbook, TheTargetBook, TheTargetBookName
Dim TheCount, theSheet, theCell, theLastCell, theLastRow
Dim objFSO
Const OverwriteExisting = 1

Set wsh = CreateObject("WScript.Shell")
'TheTargetBookName = "report.xls"
'TheTargetBook = "D:\Out\" & TheTargetBookName

TheTargetBookName = "report.xls"
TheTargetBook = "f:\work\plc\" & TheTargetBookName
TheTargetBookName = "c:\" & TheTargetBookName

'---------------[Modification#1_Begin]-------------------------------------------
Set objFSO = CreateObject("Scripting.FileSystemObject")
If Not objFSO.FileExists(TheTargetBook) Then
objFSO.CopyFile TheTargetBookName, TheTargetBook, OverwriteExisting
'HMIRuntime.Trace "The file," & TheTargetBook & ", does not exist." & vbCrLf & "I've just created one for you!"
End If
Set objFSO = Nothing

'---------------[Modification#1_End]--------------------------------------------

TheCount = GetObject("winmgmts:root\CIMV2").ExecQuery("SELECT * FROM Win32_Process WHERE Name='EXCEL.EXE'").Count
'While TheCount is bigger than 0, it means the Excel Application is running..., but doesn't mean the workbook is open for sure!

If TheCount > 0 Then
Set objExcelApp = GetObject(,"Excel.Application")
' Using GetObject(,"Excel.Application") to point to the running Excel Application.

TargetBookrunning = 0
For Each XLSrunning In objExcelApp.Workbooks
If XLSrunning.name = TheTargetBookName Then
TargetBookrunning = 1
End If
Next
If TargetBookrunning = 1 Then
Set objWorkbook = GetObject(TheTargetBook)
Else
Set objWorkbook = objExcelApp.Workbooks.Open(TheTargetBook)
End If
Else

Set objExcelApp = CreateObject("Excel.Application")
Set objWorkbook = objExcelApp.Workbooks.Open(TheTargetBook)

End If

objExcelApp.Visible = True
objExcelApp.ScreenUpdating = True
objExcelApp.DisplayAlerts = True

Dim TheTargetRow ' <------[Modification#2]-------
Set theSheet = objWorkbook.ActiveSheet
With theSheet
Set theCell = theSheet.Cells(65535,2)
Set theLastCell = theCell.end(-4162)
theLastRow = theLastCell.row
.cells(theLastRow + 1, 1) = formatdatetime( now,vbShortDate) & ", " & formatdatetime( now,vbLongTime)
.cells(theLastRow + 1, 2) = SmartTags("Tag_1")
.cells(theLastRow + 1, 3) = SmartTags("Tag_2")
.cells(theLastRow + 1, 4) = SmartTags("Tag_3")
End With
objWorkbook.Save
'objWorkbook.Close

Set objWorkbook = Nothing
'objExcelApp.Quit
Set objExcelApp = Nothing
'MsgBox "Done"

Set wsh = Nothing

**minhhungspk** · 03-25-2015

Gửi bởi thangngo88

lấy dữ liệu từ SQL của Wincc ra thì bạn phải sài Connectivity Pack của Wincc sau đó viết một đoạn code C để export dữ liệu mà bạn muốn lấy ra...bạn có thể cho mình một viduj để mình hiểu rõ hơn không. mình mới làm về wincc nên còn kém quá..mình muốn viết một đoạn code c để lấy dữ liệu đã lưu trữ ra báo cáo tại một thời điểm bất kì mà chưa biết làm thế nào mong bạn giúp đỡ..thank bạn nhiều

bạn nào có link down Connectivity Pack cho wincc 7.0 không cho mình xin với.thân!

**minhhungspk** · 03-25-2015

Gửi bởi phuc_automation

Hiện tại em đang học Wincc, phần xuất file excel chưa làm được. Lúc xuất ra, cửa sổ excel vừa hiện ra là tự tắt mất tiêu, trong thư mục đích để lưu file thì cũng không có file nào được tạo ra. Mò hai buổi tối rồi mà chưa ra

Đây là code VB xuất excel:
Mong nhờ các sư huynh chỉ giáo với. Em gửi link bản project test. Huynh nào down về mở ra kiểm tra hộ em với. Rút cuộc là lỗi do đâu? Cách khác phục

Bản test: http://www.mediafire.com/download/fo...ukwgr/test.rar

Nhân tiện gửi luôn link bản demo của một bạn bên dientuvietnam.net ( quên mất luồng nào, tìm mãi không thấy ). Sao bản test của em không nhập được giá trị vào, mà bản demo của bạn "ấy" lại nhập được?
Bản demo: http://www.mediafire.com/download/is...c1zs/demo2.rar

Mong các huynh chỉ ra cái sai của em

đang tìm hiểu cái này hôm nay, hi! file exel bạn phải tạo ra trước nha!
còn runtime, lúc bạn xuất ra tự động tắt thì do lệnh này: objExcelApp.Quit
bạn muốn tự động lưu giá trị thì dùng chức năng trigger trong VB action nha!

**vinhtdh** · 07-03-2015

Các anh cho em hỏi là em muốn xuất dữ liệu từ Wincc ra excel theo dạng sự cố . ví dụ là có 1 biến nào đó thay đổi thì nó xuất ra bảng excel ạ . mong mọi người giúpp đỡ ạ