troubleshooting Question

WrapText in Columns in Excel sheet via .net

Avatar of Fordraiders
FordraidersFlag for United States of America asked on
Visual Basic.NET
2 Comments1 Solution1662 ViewsLast Modified:
vb.net 2003
excel 2003

What I need:
Select Columns  G ang H
Format the Column to WrapText in the excel sheet

' current code from .net
XL.Visible = True 'open excel
        xlWB = XL.Workbooks.Open(xlPath) 'open the workbook
        xlWS = xlWB.Worksheets("GPS Worksheet") 'set the worksheet

        Dim SpecialChars As String = "!@#$%^&*()_+-={}|:<>?,[]./;"
        Dim Rng As Excel.Range
                ' delete special characters
        With xlWS
            Rng = XL.Intersect(.Range("A:A"), .UsedRange)
        End With
        For r As Integer = 1 To Rng.Rows.Count
            For c As Integer = 0 To SpecialChars.Length - 1
                Rng.Cells(r, 1).Value = Rng.Cells(r, 1).Value.ToString.Replace(SpecialChars.Chars(c), "")
            Next
        Next
        ' make the call to run
        xlWB.Application.Run(mcrName)
         '<-------------------  ' run the code to wraptext here...
Thanks
fordraiders
ASKER CERTIFIED SOLUTION
Rog D
SQL Developer / Web Development / Business Analysis

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Log in to continue reading
Become an EE member today7-DAY FREE TRIAL
Members can start a 7-Day Free trial then enjoy unlimited access to the platform for $9.99/mo
View membership options
Unlock 1 Answer and 2 Comments.
or
Learn why we charge membership fees
We get it - no one likes a content blocker. Take one extra minute and find out why we block content.
See how we're fighting big data
The Value of Experts Exchange in My Daily IT Life

Experts Exchange (EE) has become my company's go-to resource to get answers. I've used EE to make decisions, solve problems and even save customers. OutagesIO has been a challenging project and... Keep reading >>

Mike

Owner of Outages.IO
Phoenix, Arizona, United States
Member Since 2016
Join a full scale community that combines the best parts of other tools into one platform.
Unlock 1 Answer and 2 Comments.
View membership options
“All of life is about relationships, and EE has made a virtual community a real community. It lifts everyone's boat.”
William Peck

Member since 2004