Pregunta Cómo escribir datos después de cambiar el orden de las columnas de Excel a un archivo de texto en VBA


Me gustaría escribir en un archivo de texto desde Excel, pero el orden de los datos es diferente del orden de las columnas en Excel. Por ejemplo:

Columna de Excel: Col1, Col2, Col3, Col4, Col5    
Archivo de texto: Col1, Col2, Col5, Col4, Col3

Por favor ayúdame a resolver este problema.


0


origen




Respuestas:


Simple: haga una copia de la hoja actual y cambie el orden de las columnas dentro de la copia antes de guardar. Cuando ya no necesite la copia, elimínela.


2



Comentario de @ adsy2010: You could even make a macro to resort the second sheet # (adsy2010, ahora tiene suficiente representante para comentar, vuelva a enviarlo como uno y eliminaré este marcador de posición). - Synetech


Gracias por su respuesta.
Desarrollé la siguiente forma de hacerlo:

Código:

For i = 1 To LastRow

    For j = 2 To 10
            Select Case j
            Case 3
                 strCellValue = Trim(shSheetName.Cells(i, j + 2).Value)
            Case 5
                 strCellValue = Trim(shSheetName.Cells(i, j - 2).Value)
            Case Else
                 strCellValue = Trim(shSheetName.Cells(i, j).Value)
            End Select
    Next j
        'Process of Write [strCellValue] to text file
Next i

0