Я хотел бы записать в текстовый файл из Excel, но порядок данных отличается от порядка столбцов в Excel. Например:

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

Пожалуйста, помогите мне решить эту проблему.

2 ответа2

2

Просто: сделайте копию текущего листа и измените порядок столбцов в копии перед сохранением. Если вам больше не нужна копия, удалите ее.

0

Спасибо за ответ.
Я разработал следующий способ сделать это:

Код:

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

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .