Continue giving me the same problem " The object doesnt accept this property or method" 

Can be cause excel workbook¿?

remembering, you have to manually create excel there the C: , 

with the same name

Prueba.xlsx

to

HMITags.xlsx

GusoXXL

Dim arr(99)

'Loop

For i=2 To Rwcnt

arr(i) = WorkSheet.Cells(i,1).Value

SmartTags("PruebaUA") = SmartTags("PruebaUA") & " "& arr(i)

Next

 I try to change the code accordig withyour recomendations. I continue having same problem and i start think is because the first colum that i want to read its only letters and when i stablished the variable intern "PruebaUA" and i put array i cant put array of chars or strings maybe there is the problem?

By the way the variable SmartTags(PruebaUA) i just want it to show in the HMI all the cells from that column, is good configurated?

i send u again the code with the new modifications (change PruebaUA for Visualizar)

----------------------------------------

Sub Excel()

'Var definition

Dim ExcelObject

Dim WorkSheet

Dim Workbook

'Dim objTag1

Dim Rwcnt

Dim i

Dim value

Dim path

Dim ErrorDesc

Dim arr(99)

'Errors

On Error Resume Next

'Path for the workbook

path = "C:\Users\VijeoSCADA\Desktop\Excel\HMITags.xlsx"

'Object for the process

Set ExcelObject = CreateObject("Excel.Application")

ExcelObject.Visible = False

ExcelObject.DisplayAlerts = True

'Error loop

If Err.Number <> 0 Then

ErrorDesc = Err.Description & "(" & Err.Number & ")"

SmartTags("ErrDesc") = ErrorDesc

Set ExcelObject = Nothing

Exit Sub

End If

'Setting workbook to open it with the path

Set Workbook = ExcelObject.Workbooks.Open (path)

'Openning first sheets

Set WorkSheet = ExcelObject.Activeworkbook.Worksheets(1)

'Error loop

If Err.Number <> 0 Then

ErrorDesc = Err.Description & "(" & Err.Number & ")"

SmartTags("ErrDesc") = ErrorDesc

Set ExcelObject = Nothing

Exit Sub

End If

'Number of rows in the porject

Rwcnt= ExcelObject.ActiveSheets.UsedRange.Rows.Count

'Error loop

If Err.Number <> 0 Then

ErrorDesc = Err.Description & "(" & Err.Number & ")"

SmartTags("ErrDesc") = ErrorDesc

Set ExcelObject = Nothing

Exit Sub

End If

'Loop

For i=1 To Rwcnt

arr(i)= WorkSheet.Cells(i,1).Value

SmartTags("Visualizar") = SmartTags("Visualizar") & "" & arr(i)

Next

'Error loop

If Err.Number <> 0 Then

ErrorDesc = Err.Description & "(" & Err.Number & ")"

SmartTags("ErrDesc") = ErrorDesc

Set ExcelObject = Nothing

'Closing connections

ExcelObject.ActiveWorkbook.Save

ExcelObject.Workbooks.Close

ExcelObject.Quit

'Connections to zero

'Set objTag1= Nothing

Set ExcelObject = Nothing

Set Workbook = Nothing

Set WorkSheet = Nothing

Exit Sub

End If

End Sub

Here it is wrong there is no s.

Rwcnt= ExcelObject.ActiveSheet.UsedRange.Rows.Count

rdoliveira

try this,

Rwcnt = ExcelObject.ActiveSheet.UsedRange.Rows.Count

 remember, look here.

GusoXXL

Dim arr(99)

'Loop

For i=2 To Rwcnt

arr(i) = WorkSheet.Cells(i,1).Value

SmartTags("PruebaUA") = SmartTags("PruebaUA") & " "& arr(i)

Next

 I try to change the code accordig withyour recomendations. I continue having same problem and i start think is because the first colum that i want to read its only letters and when i stablished the variable intern "PruebaUA" and i put array i cant put array of chars or strings maybe there is the problem?

By the way the variable SmartTags(PruebaUA) i just want it to show in the HMI all the cells from that column, is good configurated?

i send u again the code with the new modifications (change PruebaUA for Visualizar)

----------------------------------------

Sub Excel()

'Var definition

Dim ExcelObject

Dim WorkSheet

Dim Workbook

'Dim objTag1

Dim Rwcnt

Dim i

Dim value

Dim path

Dim ErrorDesc

Dim arr(99)

'Errors

On Error Resume Next

'Path for the workbook

path = "C:\Users\VijeoSCADA\Desktop\Excel\HMITags.xlsx"

'Object for the process

Set ExcelObject = CreateObject("Excel.Application")

ExcelObject.Visible = False

ExcelObject.DisplayAlerts = True

'Error loop

If Err.Number <> 0 Then

ErrorDesc = Err.Description & "(" & Err.Number & ")"

SmartTags("ErrDesc") = ErrorDesc

Set ExcelObject = Nothing

Exit Sub

End If

'Setting workbook to open it with the path

Set Workbook = ExcelObject.Workbooks.Open (path)

'Openning first sheets

Set WorkSheet = ExcelObject.Activeworkbook.Worksheets(1)

'Error loop

If Err.Number <> 0 Then

ErrorDesc = Err.Description & "(" & Err.Number & ")"

SmartTags("ErrDesc") = ErrorDesc

Set ExcelObject = Nothing

Exit Sub

End If

'Number of rows in the porject

Rwcnt= ExcelObject.ActiveSheets.UsedRange.Rows.Count

'Error loop

If Err.Number <> 0 Then

ErrorDesc = Err.Description & "(" & Err.Number & ")"

SmartTags("ErrDesc") = ErrorDesc

Set ExcelObject = Nothing

Exit Sub

End If

'Loop

For i=1 To Rwcnt

arr(i)= WorkSheet.Cells(i,1).Value

SmartTags("Visualizar") = SmartTags("Visualizar") & "" & arr(i)

Next

'Error loop

If Err.Number <> 0 Then

ErrorDesc = Err.Description & "(" & Err.Number & ")"

SmartTags("ErrDesc") = ErrorDesc

Set ExcelObject = Nothing

'Closing connections

ExcelObject.ActiveWorkbook.Save

ExcelObject.Workbooks.Close

ExcelObject.Quit

'Connections to zero

'Set objTag1= Nothing

Set ExcelObject = Nothing

Set Workbook = Nothing

Set WorkSheet = Nothing

Exit Sub

End If

here

'Closing connections

ExcelObject.ActiveWorkbook.Save

ExcelObject.Workbooks.Close

ExcelObject.Quit

'Connections to zero

'Set objTag1= Nothing

Set ExcelObject = Nothing

Set Workbook = Nothing

Set WorkSheet = Nothing

End Sub

put it here as well, because otherwise, it doesn't close or finalize the connections, when there's no error.

rdoliveira

 

GusoXXL

Dim arr(99)

'Loop

For i=2 To Rwcnt

arr(i) = WorkSheet.Cells(i,1).Value

SmartTags("PruebaUA") = SmartTags("PruebaUA") & " "& arr(i)

Next

 I try to change the code accordig withyour recomendations. I continue having same problem and i start think is because the first colum that i want to read its only letters and when i stablished the variable intern "PruebaUA" and i put array i cant put array of chars or strings maybe there is the problem?

By the way the variable SmartTags(PruebaUA) i just want it to show in the HMI all the cells from that column, is good configurated?

i send u again the code with the new modifications (change PruebaUA for Visualizar)

----------------------------------------

Sub Excel()

'Var definition

Dim ExcelObject

Dim WorkSheet

Dim Workbook

'Dim objTag1

Dim Rwcnt

Dim i

Dim value

Dim path

Dim ErrorDesc

Dim arr(99)

'Errors

On Error Resume Next

'Path for the workbook

path = "C:\Users\VijeoSCADA\Desktop\Excel\HMITags.xlsx"

'Object for the process

Set ExcelObject = CreateObject("Excel.Application")

ExcelObject.Visible = False

ExcelObject.DisplayAlerts = True

'Error loop

If Err.Number <> 0 Then

ErrorDesc = Err.Description & "(" & Err.Number & ")"

SmartTags("ErrDesc") = ErrorDesc

Set ExcelObject = Nothing

Exit Sub

End If

'Setting workbook to open it with the path

Set Workbook = ExcelObject.Workbooks.Open (path)

'Openning first sheets

Set WorkSheet = ExcelObject.Activeworkbook.Worksheets(1)

'Error loop

If Err.Number <> 0 Then

ErrorDesc = Err.Description & "(" & Err.Number & ")"

SmartTags("ErrDesc") = ErrorDesc

Set ExcelObject = Nothing

Exit Sub

End If

'Number of rows in the porject

Rwcnt= ExcelObject.ActiveSheets.UsedRange.Rows.Count

'Error loop

If Err.Number <> 0 Then

ErrorDesc = Err.Description & "(" & Err.Number & ")"

SmartTags("ErrDesc") = ErrorDesc

Set ExcelObject = Nothing

Exit Sub

End If

'Loop

For i=1 To Rwcnt

arr(i)= WorkSheet.Cells(i,1).Value

SmartTags("Visualizar") = SmartTags("Visualizar") & "" & arr(i)

Next

'Error loop

If Err.Number <> 0 Then

ErrorDesc = Err.Description & "(" & Err.Number & ")"

SmartTags("ErrDesc") = ErrorDesc

Set ExcelObject = Nothing

'Closing connections

ExcelObject.ActiveWorkbook.Save

ExcelObject.Workbooks.Close

ExcelObject.Quit

'Connections to zero

'Set objTag1= Nothing

Set ExcelObject = Nothing

Set Workbook = Nothing

Set WorkSheet = Nothing

Exit Sub

End If

here

'Closing connections

ExcelObject.ActiveWorkbook.Save

ExcelObject.Workbooks.Close

ExcelObject.Quit

'Connections to zero

'Set objTag1= Nothing

Set ExcelObject = Nothing

Set Workbook = Nothing

Set WorkSheet = Nothing

End Sub

put it here as well, because otherwise, it doesn't close or finalize the connections, when there's no error.

 that's what happens

GusoXXL

Dim arr(99)

'Loop

For i=2 To Rwcnt

arr(i) = WorkSheet.Cells(i,1).Value

SmartTags("PruebaUA") = SmartTags("PruebaUA") & " "& arr(i)

Next

 I try to change the code accordig withyour recomendations. I continue having same problem and i start think is because the first colum that i want to read its only letters and when i stablished the variable intern "PruebaUA" and i put array i cant put array of chars or strings maybe there is the problem?

By the way the variable SmartTags(PruebaUA) i just want it to show in the HMI all the cells from that column, is good configurated?

i send u again the code with the new modifications (change PruebaUA for Visualizar)

----------------------------------------

Sub Excel()

'Var definition

Dim ExcelObject

Dim WorkSheet

Dim Workbook

'Dim objTag1

Dim Rwcnt

Dim i

Dim value

Dim path

Dim ErrorDesc

Dim arr(99)

'Errors

On Error Resume Next

'Path for the workbook

path = "C:\Users\VijeoSCADA\Desktop\Excel\HMITags.xlsx"

'Object for the process

Set ExcelObject = CreateObject("Excel.Application")

ExcelObject.Visible = False

ExcelObject.DisplayAlerts = True

'Error loop

If Err.Number <> 0 Then

ErrorDesc = Err.Description & "(" & Err.Number & ")"

SmartTags("ErrDesc") = ErrorDesc

Set ExcelObject = Nothing

Exit Sub

End If

'Setting workbook to open it with the path

Set Workbook = ExcelObject.Workbooks.Open (path)

'Openning first sheets

Set WorkSheet = ExcelObject.Activeworkbook.Worksheets(1)

'Error loop

If Err.Number <> 0 Then

ErrorDesc = Err.Description & "(" & Err.Number & ")"

SmartTags("ErrDesc") = ErrorDesc

Set ExcelObject = Nothing

Exit Sub

End If

'Number of rows in the porject

Rwcnt= ExcelObject.ActiveSheets.UsedRange.Rows.Count

'Error loop

If Err.Number <> 0 Then

ErrorDesc = Err.Description & "(" & Err.Number & ")"

SmartTags("ErrDesc") = ErrorDesc

Set ExcelObject = Nothing

Exit Sub

End If

'Loop

For i=1 To Rwcnt

arr(i)= WorkSheet.Cells(i,1).Value

SmartTags("Visualizar") = SmartTags("Visualizar") & "" & arr(i)

Next

'Error loop

If Err.Number <> 0 Then

ErrorDesc = Err.Description & "(" & Err.Number & ")"

SmartTags("ErrDesc") = ErrorDesc

Set ExcelObject = Nothing

'Closing connections

ExcelObject.ActiveWorkbook.Save

ExcelObject.Workbooks.Close

ExcelObject.Quit

'Connections to zero

'Set objTag1= Nothing

Set ExcelObject = Nothing

Set Workbook = Nothing

Set WorkSheet = Nothing

Exit Sub

End If

End Sub

 yes the loop is concatenating.

Just Got it ¡¡¡ 

i was doing it and finally works and then u put the last advises.

I LET HERE THE FINAL CODE TO EVERYONE WHO WANT IT¡¡¡