使用vb.net在Excel中右移到下一个单元格

Question

I need to name my headers according to the items I have in a combo box. I'm basically taking the items from a combo box and adding them to the end of an existing header row in a excel sheet, so starting at the first empty cell in the headers row. However, I can't seem to move to the next cell to the right which would be the next header/column name. Here is my code thus far:

For i = 0 To ComboBox1.Items.Count - 1
    Dim s As String
    s = Convert.ToString(ComboBox1.Items(i))
    xlWorkSheet.Range(columnName & "1").Value = s
Next i

ColumnName is the next blank header in that row, Column "L", so from there i would like to populate that cell then move to the right to the next cell.

Answer 1

As others have suggested, you can use Cells() to help iterate easier. Note that the user/macro needs the column number , not letter :

Edit: How's this instead:

Dim s   As String
Dim myCol As Long
For i = 0 To ComboBox1.Items.Count - 1
    myCol = Range(columnName & 1).Column
    s = Convert.ToString(ComboBox1.Items(i))
    xlWorksheet.Cells(1, myCol + i).Value = s
Next i

Answer 2

Loops are so yesterday :]
You can set all headers at once with something like:

Dim headers = ComboBox1.Items.Cast(Of Object).ToArray
xlWorkSheet.Range("A1").Resize(1, headers.Length).Value2 = headers

Also, when you get acceptable answer you should check the green check next to it https://stackoverflow.com/tour

Answer 3

• you can create a method that will get parameter of the column number to start, use counter to point the column index.

• if headers are not in row 1 so add another parameter of row and replace xlWorksheet.Cells(1, counter) with
  xlWorksheet.Cells(yourNewParameter, counter) .

• use short or integer data type not Long .

• you dont need to create a variable for xlWorksheet.Cells(1, counter) make your code shorter.

code:

Private Sub AddHeaders(ByVal columnNumberToStart As Short)
    Dim counter As Short = columnNumberToStart
    For i = 0 To ComboBox1.Items.Count - 1
        xlWorksheet.Cells(1, counter) = ComboBox1.Items(i).ToString()
        counter += 1
    Next
End Sub

Answer 4

This is what finally worked for me

Dim headers = ComboBox1.Items.Cast(Of Object).ToArray
        xlWorkSheet.Range(columnName & "1").Resize(1, headers.Length).Value2 = headers

Answer 5

This also worked:

  For i = 0 To ComboBox1.Items.Count - 1
            Dim s As String
            myCol = xlWorkSheet.Range(columnName & 1).Column
            s = Convert.ToString(ComboBox1.Items(i))
            xlWorkSheet.Cells(1, myCol + i).Value = s
        Next i