Cómo copiar Texto de la celda de DataGridView a Excel

Exportar datos desde el control DataGridView de Microsoft Excel , usted puede ahorrar tiempo al eliminar pasos cuando tiene que copiar los datos a Excel. En Visual Basic, puede utilizar la biblioteca de objetos de Microsoft Excel para exportar los datos desde la aplicación. El control DataGridView proporciona una tabla personalizable para la visualización de datos. El control se puede rellenar de forma manual, o bien puede mostrar los datos de bases de datos y otras fuentes de datos mediante el uso de la propiedad " DataSource " . Instrucciones
1

Inicie Microsoft Visual Basic Express. Haga clic en " Nuevo proyecto ... " en el panel izquierdo de la pantalla y , a continuación, seleccione " Aplicación de Windows Forms ". Haga clic en " Aceptar" para crear un nuevo proyecto.
2

doble clic en " DataGridView " en el panel " Toolbox" para agregar el control al formulario . Agregar un botón con la misma técnica .

3 Haga clic en el menú "Proyecto " y seleccionar " Propiedades . " Haga clic en " Referencias " y luego seleccionar " Añadir ". Seleccione " COM ". Haga clic en " Biblioteca de objetos de Microsoft . " Haga clic en " Aceptar".

4 Haga doble clic en el formulario para crear el procedimiento " Form1_Load " . Escriba el siguiente código para agregar los datos a la red de datos de control de vista : .

DataGridView1

Columnas RowHeadersVisible = False

( 0 ) Nombre = " ExcelValue " < . . br>

extremo con

Dim crecer como String () = {" 1 "}

gRow2 As String () = {" 2 "}

Me.DataGridView1.Rows

. Añadir ( crecer)

. Añadir ( gRow2 )

End con fotos de 5

doble clic en " Button1 "para crear un procedimiento de evento click para el botón. Escriba el siguiente código en la primera línea del módulo para importar el espacio de nombres de Office de Microsoft:

Importaciones Microsoft.Office.Interop
6

Escriba el siguiente código de abajo " Button1_Click " para crear las variables utilizadas para abrir Excel :

ExcelApp Dim As New Excel.Application

xCntr Dim As Integer = 1

ExcelApp.Visible = True

Dim ExcelWks Como Excel.Workbooks = ExcelApp.Workbooks

ExcelWk As Excel.Workbook = ExcelWks.Add

ExcelShts Dim Como Excel.Sheets = ExcelWk.Worksheets

ExcelSht Dim As Excel.Worksheet = ExcelShts ( "Sheet1 ")
7

agregue el código siguiente para recorrer las filas y añadir datos de la celda a un nuevo libro de Excel :

para cada fila como DataGridViewRow En DataGridView1.Rows

ExcelSht.Range ("A" y xCntr ) . Valor = row.Cells.Item ( " ExcelValue ") . Valor

xCntr + = 1
< p > Siguiente
8

Guarde el libro con el código siguiente :

ExcelSht.SaveAs ("C: \\ ExcelFile.xlsx ")
9

Pulse la tecla "F5 " para ejecutar el programa. Haga clic en " Button1 " para añadir los datos a Excel.