On Feb 25, 10:27*am, confused wrote:
Hello;
Can someone please tell me how to write the code I need to use word
wrap.
I have avb2005 app that exports the data into excel and I want the
data in each row to use word wrap for every text columm. *The code
below only sets the column heading, I thought it would set all column
per row
(example cloumn a1 is name so all rows for a1 should be set with word
wrap)

SetColumnsFormat(oExcel)

Private Function SetColumnsFormat(ByVal oExcel As Object) As Boolean

* * * * For i As Integer = 0 To lstColumnsSelected.Items.Count - 1
* * * * * * Application.DoEvents()

* * * * * * Dim myExcel As Excel_ = oExcel

* * * * * * Dim col As dcColumn
* * * * * * col = lstColumnsSelected.Items.Item(i)
* * * * * * Dim nmLwr As String = col.Name.ToLower()

* * * * * * Select Case col.Type
* * * * * * * * Case 1
* * * * * * * * * * * ' Text Type R,Col * Width
* * * * * * * * * * myExcel.WrapText(1, i + 1, True)
* * * * * * * * * * Continue For

* * * * * * * * Case 2 * ' *Date Type
* * * * * * * * * * myExcel.FormatWidth(1, i + 1, col.Width)
* * * * * * * * * * Continue For

* * * * * * * * Case 3 * ' *Hours *Col * *Format
* * * * * * * * * * myExcel.FormatNum(i + 1, "###0")
* * * * * * * * * * myExcel.FormatWidth(1, i + 1, col.Width)
* * * * * * * * * * Continue For

* * * * * * * * Case 4 * ' *Money
* * * * * * * * * * myExcel.FormatNum(i + 1, "###,##0.00")
* * * * * * * * * * myExcel.FormatWidth(1, i + 1, col.Width)
* * * * * * * * * * Continue For

* * * * * * * * Case 5 * ' *Months
* * * * * * * * * * myExcel.FormatNum(i + 1, "##0.0")
* * * * * * * * * * myExcel.FormatWidth(1, i + 1, col.Width)
* * * * * * * * * * Continue For

* * * * * * * * Case Else
* * * * * * * * * * myExcel.FormatWidth(1, i + 1, col.Width)

* * * * * * End Select

* * * * Next i
* * End Function

What am I doing wrong?

Found my answer, doesn't seem to be much help on this group. Don't
know how to close this topic, if I could , I would