Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
rikard.nilsson
in reply to: Anonymous

Hi,

 

If I use this code I get it to write more rows..

I added these rows to make it work

Height = 100

Inc = 1

 

And changed the way to read digits from String1

And removed "Continue Do"  and  "Exit Do"

 

i = 0
Offset = i * (1 in / 1 ul)
GoExcel.Open("Table.xlsx", "Sheet1")
String1 = "A4"
String2 = "B4"

GoExcel.CellValue(String1) = Offset
GoExcel.CellValue(String2) = iProperties.Volume
Height = 100
Inc = 1

Do Until Offset > Height + 1
	GoExcel.CellValue( String1) = Offset
	GoExcel.CellValue( String2) = iProperties.Volume
	i = i + Inc
	Offset = i * (1 in    / 1 ul)
	
	Dim myChars() As Char = String1.ToCharArray()
	Dim resultString As String = ""
	For Each ch As Char In myChars
	     If Char.IsDigit(ch) Then
	          resultString = resultString & ch
	     End If
	Next
	A = CStr(resultString) + Inc


	String1 = Left(String1,1) & CStr(A)
	String2 = Left(String2, 1) & CStr(A)

'Continue Do
'Exit Do
Loop

GoExcel.Save
GoExcel.Close

 

Regards

Rikard