Como gravar dados após alterar a ordem das colunas do Excel para um arquivo de texto no VBA

Question

Eu gostaria de escrever em um arquivo de texto do Excel, mas a ordem dos dados é diferente da ordem das colunas no Excel. Por exemplo:

Excel Column : Col1,   Col2,   Col3,   Col4,   Col5    
Text file    : Col1,   Col2,   Col5,   Col4,   Col3

Por favor, ajude-me a resolver este problema.

    

Answer 1

Simples: faça uma cópia da planilha atual e altere a ordem das colunas dentro da cópia antes de salvar. Quando você não precisar mais da cópia, exclua-a.

    

Answer 2

Obrigado pela resposta.
Eu desenvolvi a seguinte maneira de fazer isso:

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