02-12-2019
12:46 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
02-12-2019
12:46 PM
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