How to autofit excel column in VB.NET

Question

0.00/5 (No votes)

See more:

i have my codes below , when i try to run the codes only the first column in the excel that's fits. the other column where not, i want to see all of my column where automatically fits, hope you could help me guys !

What I have tried:

For k As Integer = 1 To DataGridView1.Columns.Count
xlWorkSheet.Cells(1, k) = DataGridView1.Columns(k - 1).HeaderText
xlWorkSheet.Cells(i + 2, j + 1) = DataGridView1(j,i).Value.ToString()

xlWorkSheet.Cells.RowHeight = 20
xlWorkSheet.Range("A1:F1").Columns.EntireColumn.AutoFit()

Posted 18-Mar-18 15:30pm

Member 13727051

Updated 4-Apr-18 20:17pm

Add a Solution

Comments

David O'Neil 18-Mar-18 23:33pm

Where is the end of your 'For' statement?

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Prakash Manikkam · Answer 1 · 2018-04-04T19:38:00

Solution 1

xlWorkSheet.Range(xlWorkSheet.Cells(i, 1), xlWorkSheet.Cells(i, 10)).ColumnWidth = AutoSize

This May Help You To auto fit Columns in Excel Sheet

Posted 4-Apr-18 19:38pm

Prakash Manikkam

Maciej Los · Answer 2 · 2018-04-04T20:19:00

Solution 2

Move this line outside the for..next loop and you'll get what you want.

VB

xlWorkSheet.Range("A:F").Columns.AutoFit()
'or
'xlWorkSheet.Columns("A:F").AutoFit()

More at MSDN: Range.AutoFit Method (Excel)[^]

Posted 4-Apr-18 20:19pm

Maciej Los