Trouble For Next

Legacy Poster

• 2015年06月11日 12:43

I'm having trouble with the For Next statement in Bartender VB script below:

 

dim objConn

dim strConn

dim rs

 

strConn = "Provider=Microsoft.Ace.OLEDB.12.0;Data Source='C:\Users\RMA\Desktop\2DTest\2dTest.xls';Extended Properties=""Excel 12.0 Xml;HDR=YES;"""

 

Dim strNames

Set objConn = CreateObject("ADODB.Connection")

objConn.Open strConn

Set rs = CreateObject("ADODB.Recordset")

Set rs = objConn.Execute("Select * FROM [Sheet1$]")

strNames = ""

rs MoveFirst()

 

j = 1

for j = 1 to 86

    strNames = strNames + CStr(rs.fields("IMEI")) + vbCrLf

    rs.MoveNext()

next

 

value=strNames

 

 

It seems that if the Excel file that I'm getting the data from does not have 86 rows of data it gives me an invalid use of null CStr error.  All computers have Windows 7 64 bit and Office 2013. All computers have Bartender 9.3 SR2.

0

• 

  Legacy Poster

  ★ BarTender Hero ★

  • 2015年06月11日 16:48

  On Error Resume Next

  0

请先登录再写评论。