Jose Ramos
Member
I have a trouble with FactoryTalk View Studio because I need export 500 values, I thought in use a for statment and a array because when I try put all the declaration show me a message that say "procedure too large", below you can see the script:
Dim WithEvents MyTagGroup As TagGroup
Private Sub Button7_Released()
Dim MyExcel As Excel.Application
Dim MySheet As Excel.Worksheet
Dim x as integer
Dim mytagvalue as variant
x=2
Set MyExcel = CreateObject("Excel.Application")
MyExcel.Visible = True
'Abrir un Archivo existente
MyExcel.Workbooks.Open "C:\Users\Documents\Cycle TimeCycle_Time.xls"
Set MySheet = MyExcel.ActiveSheet
Dim Tag1 As Tag
For i = 0 to 500
Set MyTagGroup = Application.CreateTagGroup(Me.AreaName)
MyTagGroup.Add "[PLC_10]PalletTime"
MyTagGroup.Active = True
Set Tag1 = MyTagGroup.Item("[PLC_10]PalletTime")
mytagvalue=Tag1.Value
MySheet.Cells(x, 2) = mytagvalue.value
x=x + 1
Next i
'Guardar Ejecucion en un archivo diferente
MyExcel.ActiveWorkbook.SaveAs "C:\Users\demak\Documents\Cycle Time\Cycle_Time" & "-" & Format(Now, "dd-mmm-yyyy-hh-mm-ss") & ".xls"
MyExcel.ActiveWorkbook.Close
MyExcel.Quit
End Sub
Really I need support because I'm new in factorytalk VBA.
Dim WithEvents MyTagGroup As TagGroup
Private Sub Button7_Released()
Dim MyExcel As Excel.Application
Dim MySheet As Excel.Worksheet
Dim x as integer
Dim mytagvalue as variant
x=2
Set MyExcel = CreateObject("Excel.Application")
MyExcel.Visible = True
'Abrir un Archivo existente
MyExcel.Workbooks.Open "C:\Users\Documents\Cycle TimeCycle_Time.xls"
Set MySheet = MyExcel.ActiveSheet
Dim Tag1 As Tag
For i = 0 to 500
Set MyTagGroup = Application.CreateTagGroup(Me.AreaName)
MyTagGroup.Add "[PLC_10]PalletTime"
MyTagGroup.Active = True
Set Tag1 = MyTagGroup.Item("[PLC_10]PalletTime")
mytagvalue=Tag1.Value
MySheet.Cells(x, 2) = mytagvalue.value
x=x + 1
Next i
'Guardar Ejecucion en un archivo diferente
MyExcel.ActiveWorkbook.SaveAs "C:\Users\demak\Documents\Cycle Time\Cycle_Time" & "-" & Format(Now, "dd-mmm-yyyy-hh-mm-ss") & ".xls"
MyExcel.ActiveWorkbook.Close
MyExcel.Quit
End Sub
Really I need support because I'm new in factorytalk VBA.