guardar datagriedview como txt o en excel

[manueltibaduiza]

Hola, quisiera saber como puedo utilizar el componente savefiledialog, para guardar un datagriedview.
agradecería la ayuda

[giovani_loera]

Este metodo, toma como parametros un dataSet y donde se guardara el archivo.
El metodo recorreo las tablas del DataSet, primero pone el nombre a las hojas y despues va poniendo las columnas.
Una vez esto empezara agreagar los datos por cada DataTable del DataSet creara una hoja en el Excel.

al ultimo de agregar los campos, le pondra tamaño a las columnas.

Código C#:

private bool CreateExcel(DataSet dsData, string saveBook)
        {
            xlApp=new Excel.Application();            
            xlWorkBook = xlApp.Workbooks.Add(misValue);
            try
            {
                int index = 1;
                foreach (DataTable dt in dsData.Tables)
                {
                    xlWorkSheet = (Excel.Worksheet)xlWorkBook.Worksheets.get_Item(index);
                    xlWorkSheet.Name = dt.TableName;
 
                    for (int col = 0; col < dt.Columns.Count; col++)
                    {
                        string colName = Convert.ToChar(65 + col).ToString() + "1";
                        chartRange = xlWorkSheet.get_Range(colName, colName);
                        chartRange.FormulaR1C1 = dt.Columns[col].ColumnName;
                        chartRange.Font.Color = System.Drawing.Color.Black;
                        chartRange.Interior.Color = System.Drawing.Color.FromArgb(128, 128, 128).ToArgb();
                        chartRange.Borders.LineStyle = System.Windows.Forms.BorderStyle.FixedSingle;
                        
                    }
                    for(int row=0; row<dt.Rows.Count;row++)
                    {
                        for (int col = 0; col < dt.Columns.Count; col++)
                        {
                            xlWorkSheet.Cells[row + 2, Convert.ToChar(65 + col).ToString()] = dt.Rows[row][col].ToString();
                            if (eventProcess != null)
                                eventProcess();
                        }
                    }
                    chartRange = xlWorkSheet.get_Range("A1", Convert.ToChar(65 + dsData.Tables[index-1].Columns.Count).ToString() + (dsData.Tables[index-1].Rows.Count+1).ToString());
                    chartRange.Columns.AutoFit();
                    index++;
                }
                xlWorkBook.SaveAs(saveBook, Excel.XlFileFormat.xlWorkbookNormal, misValue, misValue,misValue, misValue, 
                    Excel.XlSaveAsAccessMode.xlExclusive, misValue, misValue, misValue, misValue, misValue);
                return true;
            }
            catch(System.Runtime.InteropServices.COMException)
            {
                return false;
            }
            finally
            {
                xlWorkBook.Close(false, misValue, misValue);
                xlApp.Quit();
                this.ReleaseObject(xlWorkBook);
                this.ReleaseObject(xlApp);
            }
        }
 

Espero que te Sirva

[Carlojas]

Que tal manueltibaduiza, puedes hacerlo de esta forma utilizando esta función que exporta el contenido de tu DataGridView a un excel:

Código vb:

Public Sub ExportToExcel(ByVal Dt As DataTable, ByVal Path As String)
        On Error Resume Next
        Dim excelApplication As Excel.Application = New Excel.Application
        Dim excelWorkbook As Excel.Workbook = CType(excelApplication.Workbooks.Add(System.Reflection.Missing.Value), Excel.Workbook)
        Dim excelSheet As Excel.Worksheet = CType(excelWorkbook.Sheets(1), Excel.Worksheet)
 
        For i As Integer = 0 To Dt.Columns.Count - 1
            CType(excelSheet.Cells(1, i + 1), Excel.Range).Value2 = Dt.Columns(i).ColumnName
        Next i
 
        excelSheet.Range(excelSheet.Cells(1, 1), excelSheet.Cells(1, Dt.Columns.Count)).Font.Bold = True
        excelSheet.Range(excelSheet.Cells(1, 1), excelSheet.Cells(1, Dt.Columns.Count)).HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter
        For i As Integer = 0 To Dt.Rows.Count - 1
            excelSheet.Cells.Range(excelSheet.Cells(i + 2, 1), excelSheet.Cells(i + 2, Dt.Columns.Count)).Value2 = Dt.Rows(i).ItemArray
        Next i
 
        Dim tmp As String
        tmp = excelSheet.Cells.Range(excelSheet.Cells(2, 1), excelSheet.Cells(2, 1)).Value2.ToString()
        If Path <> vbNullString Then
            excelWorkbook.Close(True, Path, Nothing)
 
            System.Runtime.InteropServices.Marshal.ReleaseComObject(excelWorkbook)
            System.Runtime.InteropServices.Marshal.ReleaseComObject(excelApplication)
            excelWorkbook = Nothing
            excelApplication = Nothing
 
            MessageBox.Show("El Archivo fue exportado satisfactoriamente " + Path, "Exportación de Archivos", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Process.Start(Path)
        Else
            MessageBox.Show("Debe seleccionar la ubicación donde guardar el archivo", "Exportación de Archivos", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Exit Sub
        End If
    End Sub
 

Y en un Boton o donde quieras haces esto habiendo agregado un control SavaFileDialog a tu diseño:

Código vb:

Dim ruta As String
Me.SavaFileDialog1.Filter = "Todos los Archivos (*.*)|*.*|Archivos Excel 95-97 (*.xls)|*.xls|Archivos Excel 2000-2003 (*.xls)|*.xls|Archivos Excel 2007 (*.xlsx)|*.xlsx"
Me.SavaFileDialog1 .ShowDialog()
ruta = Me.SavaFileDialog1.FileName
Call ExportToExcel(Me.TUGRID.DataSource, ruta)
 

Saludos.

[manueltibaduiza]

Iniciado por Carlojas

Que tal manueltibaduiza, puedes hacerlo de esta forma utilizando esta función que exporta el contenido de tu DataGridView a un excel:

Código vb:

Public Sub ExportToExcel(ByVal Dt As DataTable, ByVal Path As String)
        On Error Resume Next
        Dim excelApplication As Excel.Application = New Excel.Application
        Dim excelWorkbook As Excel.Workbook = CType(excelApplication.Workbooks.Add(System.Reflection.Missing.Value), Excel.Workbook)
        Dim excelSheet As Excel.Worksheet = CType(excelWorkbook.Sheets(1), Excel.Worksheet)
 
        For i As Integer = 0 To Dt.Columns.Count - 1
            CType(excelSheet.Cells(1, i + 1), Excel.Range).Value2 = Dt.Columns(i).ColumnName
        Next i
 
        excelSheet.Range(excelSheet.Cells(1, 1), excelSheet.Cells(1, Dt.Columns.Count)).Font.Bold = True
        excelSheet.Range(excelSheet.Cells(1, 1), excelSheet.Cells(1, Dt.Columns.Count)).HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter
        For i As Integer = 0 To Dt.Rows.Count - 1
            excelSheet.Cells.Range(excelSheet.Cells(i + 2, 1), excelSheet.Cells(i + 2, Dt.Columns.Count)).Value2 = Dt.Rows(i).ItemArray
        Next i
 
        Dim tmp As String
        tmp = excelSheet.Cells.Range(excelSheet.Cells(2, 1), excelSheet.Cells(2, 1)).Value2.ToString()
        If Path <> vbNullString Then
            excelWorkbook.Close(True, Path, Nothing)
 
            System.Runtime.InteropServices.Marshal.ReleaseComObject(excelWorkbook)
            System.Runtime.InteropServices.Marshal.ReleaseComObject(excelApplication)
            excelWorkbook = Nothing
            excelApplication = Nothing
 
            MessageBox.Show("El Archivo fue exportado satisfactoriamente " + Path, "Exportación de Archivos", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Process.Start(Path)
        Else
            MessageBox.Show("Debe seleccionar la ubicación donde guardar el archivo", "Exportación de Archivos", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Exit Sub
        End If
    End Sub
 

Y en un Boton o donde quieras haces esto habiendo agregado un control SavaFileDialog a tu diseño:

Código vb:

Dim ruta As String
Me.SavaFileDialog1.Filter = "Todos los Archivos (*.*)|*.*|Archivos Excel 95-97 (*.xls)|*.xls|Archivos Excel 2000-2003 (*.xls)|*.xls|Archivos Excel 2007 (*.xlsx)|*.xlsx"
Me.SavaFileDialog1 .ShowDialog()
ruta = Me.SavaFileDialog1.FileName
Call ExportToExcel(Me.TUGRID.DataSource, ruta)
 

Saludos.

Gracias amigo por tu respuesta, pero tengo un problema y me dice que los tipos Excel.Application Excel.Workbook no se encuentran definidos.

[Carlojas]

Debes agregar la referencia a la libreria de Excel desde tu aplicación e importarla antes de la función que te publique:

Código vb:

Imports Excel = Microsoft.Office.Interop.Excel
 

Saludos.

[manueltibaduiza]

uchas gracias, amigo Carlojas me fue de gran ayuda