Exportar DatagridView. Funciona, pero...

[prisiomechas]

Hola a todos, tengo la siguiente funcion para exportar un datagridview, en VB 2005, a Excel.
La forma de operar, es copiar en memoria el contendio de todo el datagrid y pegarlo en una nueva hoja de excel.

El código es el siguiente.

Código:

Private Sub ButtonExp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        System.Threading.Thread.CurrentThread.CurrentCulture = _
      System.Globalization.CultureInfo.CreateSpecificCulture("en-US")


        DataGridView1.SelectAll()
        DataGridView1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Clipboard.SetDataObject(DataGridView1.GetClipboardContent())
        appExcel = New Excel.Application
        appExcel.SheetsInNewWorkbook = 1
        wbExcel = appExcel.Workbooks.Add
        appExcel.Visible = True
        wbExcel.Worksheets(1).range("A1").Select()
        wbExcel.Worksheets(1).Paste()
    End Sub

Funciona bien, pero quisiera agregarle un par de cosas. primero seleccionar solo algunas celdas para copiar y pegar (un rango).

Y segundo, y lo mas importante, es que quisiera que la hoja se grabara automaticamente, lo he hecho agregando esta linea

appExcel.SaveWorkspace()

con esa linea se abre el cuadro de dialogo para grabar, pero si el usuario no guarda el doc y pone "cancelar", el programa se cae.

Necesito solucionar ese par de cosas, he buscado bastante antes de consultar aca, espero que me puedan ayudar.

Les agradezco, de antemano, su valiosa ayuda.

Muchas Gracias!!

[Darkavender]

Yo uso esta funcion...

Exporta a excel el contenido de un grid automaticamente al pulsar un boton y te almacena en un directorio predetermindado...

Private Declare Function ShellEx Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hWnd As Integer, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Integer) As Integer

ExportaExcel(DataGrid1, "exportedData", ".xls", _
My.Computer.FileSystem.SpecialDirectories.Desktop)

Private Sub ExportaExcel(ByVal grdView As DataGridView, ByVal fileName As String, _
ByVal fileExtension As String, ByVal filePath As String)
fileExtension = ".xls"
fileName = "DatosExcel" & Hour(Now()) & Minute(Now()) & Second(Now())

' Choose the path, name, and extension for the Excel file
Dim myFile As String = "DocExcel\" & fileName & fileExtension

' Open the file and write the headers
Dim fs As New IO.StreamWriter(myFile, 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"">")

' Create the styles for the worksheet
fs.WriteLine(" <ss:Styles>")
' Style for the column headers
fs.WriteLine(" <ss:Style ss:ID=""1"">")
fs.WriteLine(" <ss:Font ss:Bold=""1""/>")
fs.WriteLine(" <ss:Alignment ss:Horizontal=""Center"" ss:Vertical=""Center"" " & _
"ss:WrapText=""1""/>")
fs.WriteLine(" <ss:Interior ss:Color=""#C0C0C0"" ss:Pattern=""Solid""/>")
fs.WriteLine(" </ss:Style>")
' Style for the column information
fs.WriteLine(" <ss:Style ss:ID=""2"">")
fs.WriteLine(" <ss:Alignment ss:Vertical=""Center"" ss:WrapText=""1""/>")
fs.WriteLine(" </ss:Style>")
fs.WriteLine(" </ss:Styles>")

' Write the worksheet contents
fs.WriteLine("<ss:Worksheet ss:Name=""Sheet1"">")
fs.WriteLine(" <ss:Table>")
For i As Integer = 0 To grdView.Columns.Count - 1
fs.WriteLine(String.Format(" <ss:Column ss:Width=""{0}""/>", _
grdView.Columns.Item(i).Width))
Next
fs.WriteLine(" <ss:Row>")
For i As Integer = 0 To grdView.Columns.Count - 1
fs.WriteLine(String.Format(" <ss:Cell ss:StyleID=""1"">" & _
"<ss:Data ss:Type=""String"">{0}</ss:Data></ss:Cell>", _
grdView.Columns.Item(i).HeaderText))
Next
fs.WriteLine(" </ss:Row>")

' Check for an empty row at the end due to Adding allowed on the DataGridView
Dim subtractBy As Integer, cellText As String
If grdView.AllowUserToAddRows = True Then subtractBy = 2 Else subtractBy = 1
' Write contents for each cell
For i As Integer = 0 To grdView.RowCount - subtractBy
fs.WriteLine(String.Format(" <ss:Row ss:Height=""{0}"">", _
grdView.Rows(i).Height))
For intCol As Integer = 0 To grdView.Columns.Count - 1
cellText = grdView.Item(intCol, i).Value
' Check for null cell and change it to empty to avoid error
If cellText = vbNullString Then cellText = ""
fs.WriteLine(String.Format(" <ss:Cell ss:StyleID=""2"">" & _
"<ss:Data ss:Type=""String"">{0}</ss:Data></ss:Cell>", _
cellText.ToString))
Next
fs.WriteLine(" </ss:Row>")
Next

' Close up the document
fs.WriteLine(" </ss:Table>")
fs.WriteLine("</ss:Worksheet>")
fs.WriteLine("</ss:Workbook>")
fs.Close()

' Open the file in Microsoft Excel
' 10 = SW_SHOWDEFAULT
ShellEx(Me.Handle, "Open", myFile, "", "", 10)
End Sub

Saludos

[prisiomechas]

gracias por tu sugerencia... lo probe, pero me marca error en

Dim fs As New IO.StreamWriter(myFile, False)

espero que me puedas ayudar... muchas gracias