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

Exportación de datos desde el control DataGridView a Microsoft Excel le puede ahorrar tiempo al eliminar pasos cuando es necesario copiar los datos a Excel. En Visual Basic, puede utilizar la biblioteca de objetos de Microsoft Excel para exportar datos desde la aplicación. El control DataGridView proporciona una tabla personalizable para la visualización de datos. El control se puede rellenar manualmente, o puede mostrar los datos de bases de datos y otras fuentes de datos mediante el uso de la propiedad "DataSource".

Instrucciones

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

2 Haga doble clic en "DataGridView" en el panel de "caja de herramientas" para agregar el control al formulario. Añadir un botón utilizando la misma técnica.

3 Haga clic en el menú "Proyecto" y seleccione "<proyecto> Propiedades". Haga clic en "Referencias" y luego seleccionar "Añadir". Seleccione "COM". Haga clic en "Microsoft Excel <número de versión> biblioteca de objetos." Haga clic en Aceptar."

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

con DataGridView1

.RowHeadersVisible = False

.Columns (0) .Nombre = "ExcelValue"

Terminar con

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

Dim gRow2 As String () = { "2"}

con Me.DataGridView1.Rows

.Add (Crecer)

.Add (GRow2)

Terminar con

5 Haga 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 Microsoft Office:

Las importaciones Microsoft.Office.Interop

6 Escriba el siguiente código de abajo "Button1_Click" para crear las variables que se utilizan para abrir Excel:

Dim ExcelApp Como Nueva Excel.Application

Dim xCntr As Integer = 1

ExcelApp.Visible = True

ExcelWks dévil como Excel.Workbooks = ExcelApp.Workbooks

Dim ExcelWk Como Excel.Workbook = ExcelWks.Add

ExcelShts dévil como Excel.Sheets = ExcelWk.Worksheets

Dim ExcelSht Como 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:

For Each row As DataGridViewRow In DataGridView1.Rows

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

xCntr + = 1

Siguiente

8 Guarde el libro añadiendo el siguiente código:

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.