Copy column heading from previous sheet in excel using vb.net

I filling in an excel spreadsheet with a SQL dataset. Once the data fills up the first excel spread sheet, it adds a new sheet and continues the filling in the data. I want to take the column headings of the previous sheet and paste them to the new sheet before it continues with filling in the data. I looked at the copy method but it is intended to copy the whole sheet. I only want the headings.
Any suggestions?

Thank you.

Dim Column1Header as string

Put the above statement outside the For Loop.

While you are in the first sheet, copy the column heading to the string:

Column1Header = 'Header value of Column1, for example = FirstExcelWorksheet.Cell (1,2).value


When you define the new sheet immediately assign to the cell the value

FirstExcelWorksheet.Cell (1,2).value = Column1Header


Hope this is clear.

Good luck.

For reason it didn’t work, maybe I did it incorrectly (okay I did wrong  ).... I also forgot to mention, I will not know how columns I will be returning.

I have been using
ds.Tables(0).Columns.Count - 1
To determine how many time to loop though to get the column heading. Also I did place that bit code into a separate function.

Here is a bit of that code:

Dim columnName1 As String
columnCount = ds.Tables(0).Columns.Count
For x = 0 To columnCount - 1 'populates column heading by incremanting though the letter heading
columnName1 = ds.Tables(0).Columns.Item(x).ColumnName
.Range(Chr(y) & i.ToString).Value = columnName1
y += 1
Next

I do pass back the excel sheet with the name already on the tab. Then as each sheet is added it added the new name to tab.


Any suggestions?

Thank you

Let me try.

Your code:

Dim columnName1 As String
columnCount = ds.Tables(0).Columns.Count
For x = 0 To columnCount - 1 'populates column heading by incremanting though the letter heading
columnName1 = ds.Tables(0).Columns.Item(x).ColumnName
.Range(Chr(y) & i.ToString).Value = columnName1
y += 1
Next


Let us assume that x=0 goes to column 1 in Excelsheet, x=1 goes to column 2 and top row has the column name. Instead of using the range command, use

worksheetname.cells(1,x+1).value = columnName1

You don't need another variable y. Good luck. Hope it works.