EXPORTAR DATOS DE UN DATAGRIDVIEW A WORD

'CÓDIGO DENTRO DEL BUTTON:

Dim DELIMITADOR As String = “-”

' RUTA DEL FICHERO DE TEXTO

Dim ARCHIVO_CSV As String = “D:\REPORTE.DOC”

Try

'NUEVO OBJETO STREAMWRITER, PARA ACCEDER AL FICHERO Y PODER GUARDAR LAS LÍNEAS

Using ARCHIVO As STREAMWRITER = New STREAMWRITER(ARCHIVO_CSV)

' VARIABLE PARA ALMACENAR LA LÍNEA ACTUAL DEL DATAVIEW

Dim LINEA As String = String.Empty

With GRID

' RECORRER LAS FILAS DEL DATAGRIDVIEW

For FILA As Integer = 0 To .ROWCOUNT - 1

' VACIAR LA LÍNEA

LINEA = String.EMPTY

' RECORRER LA CANTIDAD DE COLUMNAS QUE CONTIENE EL DATAGRIDVIEW

For COL As Integer = 0 To .COLUMNS.COUNT - 1

' ALMACENAR EL VALOR DE TODA LA FILA , Y CADA CAMPO SEPARADO POR EL DELIMITADOR

LINEA = LINEA & .ITEM(COL, FILA).VALUE.TOSTRING & DELIMITADOR

Next

' ESCRIBIR UNA LÍNEA CON EL MÉTODO WRITELINE

With ARCHIVO

' ELIMINAR EL ÚLTIMO CARACTER ";" DE LA CADENA

LINEA = LINEA.REMOVE(LINEA.LENGTH - 1).TOSTRING

' ESCRIBIR LA FILA

.WRITELINE(LINEA.TOSTRING)

End With

Next

End With

End Using

' ABRIR CON PROCESS.START EL ARCHIVO DE TEXTO

PROCESS.START(ARCHIVO_CSV)

'ERROR

Catch EX As Exception

MSGBOX(EX.MESSAGE.TOSTRING, MSGBOXSTYLE.CRITICAL)

End Try