Hi

I'm new to vb, I'm using VB 2005

Ihave a DataGridView that i want to export to Excel

what is the simple way of doing that ?

You can write following code on button click

Response.Clear();
Response.AddHeader("content-disposition", "attachment;filename=YourFileName.xls");
Response.ContentType = "application/vnd.xls";

System.IO.StringWriter sw = new System.IO.StringWriter();
System.Web.UI.HtmlTextWriter hw = new HtmlTextWriter(sw);

GridView1.RenderControl(hw);
Response.Write(sw.ToString());
Response.End();

You will also need to override the VerifyRenderingInServerForm method.

public override void VerifyRenderingInServerForm(Control control)
{
return;
}

- HTH

Regards
Jignesh Desai

it's not a VB syntax am I right ?

and it's not recognize the Responce function at all

See if the following works for you:

http://www.wwwcoder.com/main/parentid/254/site/5334/68/default.aspx

You can ignore my previous post since it looks like the same code that Jignesh posted.

Are you creating a desktop application or a web app? Unfortunatelyalmost allcode examples are for a web app and use ASP objects, which wouldn't be available to a desktop application.

I'm creating a desktop application

what syntax do i need to use ?

yes

sure

great it works but i have some questions :

1. how do i make the user choose the name of the file and the location ?

2. how do i open the file automaticly ?

3. in my DataGridView i have many numbers, How do i convert them all to be numbers and not text on the Exel file ?

Thanks.

i got it all

just need to find out how to get the excel file show numbers and not text

CSV can solve this ?

Check out the speadsheet xml's SS:Data tag you can specify the type of data.

Represent a number:
<ss:Cell>
    <ss:Data ss:Type="Number">123</ss:Data>
</ss:Cell>

Can you tell me what do i need to change in my code ?

Thanks

Dim fs As New IO.StreamWriter("C:\temp\" & returnValue & ".xls", False)

fs.WriteLine("<?xml version=""1.0""?>")

fs.WriteLine("<?mso-application progid=""Excel.Sheet""?>")

fs.WriteLine("<ss:Workbook xmlns:ss=""urn:schemas-microsoft-com:office:spreadsheet"">")

fs.WriteLine(" <ss:Styles>")

fs.WriteLine(" <ss:Style ss:ID=""1"">")

fs.WriteLine(" <ss:Font ss:Bold=""1""/>")

fs.WriteLine(" </ss:Style>")

fs.WriteLine(" </ss:Styles>")

fs.WriteLine(" <ss:Worksheet ss:Name=""Sheet1"">")

fs.WriteLine(" <ss:Table>")

For x As Integer = 0 To DataGridView1.Columns.Count - 1

fs.WriteLine(" <ss:Column ss:Width=""{0}""/>", DataGridView1.Columns.Item(x).Width)

Next

fs.WriteLine(" <ss:Row ss:StyleID=""1"">")

For i As Integer = 0 To DataGridView1.Columns.Count - 1

fs.WriteLine(" <ss:Cell>")

fs.WriteLine(String.Format(" <ss:Data ss:Type=""String"">{0}</ss:Data>", DataGridView1.Columns.Item(i).HeaderText))

fs.WriteLine(" </ss:Cell>")

Next

fs.WriteLine(" </ss:Row>")

For intRow As Integer = 0 To DataGridView1.RowCount - 2

fs.WriteLine(String.Format(" <ss:Row ss:Height =""{0}"">", DataGridView1.Rows(intRow).Height))

For intCol As Integer = 0 To DataGridView1.Columns.Count - 1

fs.WriteLine(" <ss:Cell>")

fs.WriteLine(String.Format(" <ss:Data ss:Type=""String"">{0}</ss:Data>", DataGridView1.Item(intCol, intRow).Value.ToString))

fs.WriteLine(" </ss:Cell>")

Next

fs.WriteLine(" </ss:Row>")

Next

fs.WriteLine(" </ss:Table>")

fs.WriteLine(" </ss:Worksheet>")

fs.WriteLine("</ss:Workbook>")

You need to change

fs.WriteLine(String.Format(" <ss:Data ss:Type=""String"">{0}</ss:Data>", DataGridView1.Columns.Item(i).HeaderText))

to

fs.WriteLine(String.Format(" <ss:Data ss:Type=""Number"">{0}</ss:Data>", DataGridView1.Columns.Item(i).HeaderText))

for the number columns

it didn't work

i changed the intCOl

and it works

thanks