7/25/2019 3:26 PM | |
Joined: 6/18/2018 Last visit: 2/3/2024 Posts: 9 Rating: (0) |
Hello. I have a similar situation, but however a problem arises. Could look at my code and show me an error. In my case, for example, I copy the value of the cells in one column into the second. Each of them has 3 lines. However, only one line is copied. I will be grateful! Dim objExcel, strExcelPath, objSheet, number, i, tag1, tag2, tag3 strExcelPath = "F:\Out\report.xlsx" Set objExcel = CreateObject("Excel.Application") objExcel.Workbooks.Open strExcelPath Set objSheet = objExcel.ActiveWorkbook.Worksheets(1) For i = 1 To 3 If (objSheet.Cells(i,1) <> 0) Then Set tag3 = HMIRuntime.Tags("test3") Set tag2 = objSheet.Cells(i,2) tag3.Value = objSheet.Cells(i,1).Value tag3.Write tag2.Value = tag3.Value tag2.Write End If Next objExcel.ActiveWorkbook.Save objExcel.Workbooks.Close objExcel.Quit ------------------------------------------------------------------------------------------ |
Last edited by: Jen_Moderator at: 07/26/2019 10:54:46New subject after splitting |
|
8/7/2019 12:26 PM | |
Joined: 6/18/2018 Last visit: 2/3/2024 Posts: 9 Rating: (0) |
Hello everybody! I solved my problem and ran a script for the .csv file. However, I do not stop there and want to implement an excel file. While I leave the script below, it can come in handy for someone! Briefly about the script: 1. Reads the prefix tag from the template created in Excel. 2. Connect it to the post prefix that is entered in the script. 3. The value of the received tag name is displayed in .csv. 4. Since there are many post prefixes per prefix tag, that is, structural tags, I made a loop to read the line + 1. I hope it will be clear if you write!
Attachmentcsv script.txt (26 Downloads) |
Last edited by: Sultan87718219638 at: 08/07/2019 12:27:07 |
|
This contribution was helpful to1 thankful Users |
Follow us on