1

我有一个包含 4 列的 .csv 文件。我想将我的 excel 数据放入 txt 文件中，但是，我希望它们在 txt 文件中的列之间有不同的间距选项。

示例 - 如果有四列的第 1 行是 [column a = 2 column b = 3, column c = 4, and column d = 5]，则文本文件中的输出将是：

2       3    4              5

在 2 和 3 之间有一个制表符，在 3 和 4 之间有四个空格，在 4 和 5 之间有 14 个空格。这是非常随机的，但格式化是由于之前创建的文件造成的。

我根据教程编写了以下代码，但不确定如何操作它以获得每行的不同间距。

Sub excelToTxt()

Dim FilePath As String
Dim CellData As String
Dim LastCol As Long
Dim LastRow As Long

LastCol = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
LastRow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

CellData = vbTab

FilePath = Application.DefaultFilePath & "\test.txt"

Open FilePath For Output As #2
For i = 1 To LastRow

For j = 1 To LastCol

    If j = LastCol Then
        CellData = CellData + Trim(ActiveCell(i, j).Value)
    Else
        CellData = Trim(ActiveCell(i, j).Value) + CellData
    End If

Next j

Write #2, CellData
CellData = vbTab

Next i

Close #2


End

有人能帮助解决这个问题吗？

4

2 回答 2

1

您将不得不修改要写出值的部分。检查您正在写出的列并在列之间添加您需要的值。

像这样的东西。

    For j = 1 To LastCol

        If j = LastCol Then
            CellData = CellData + Trim(ActiveCell(i, j).Value)
        Elseif j = 1 Then
            CellData = Trim(ActiveCell(i, j).Value) + CellData
        Elseif j = 2 Then
            CellData = Trim(ActiveCell(i, j).Value) + vbTab
        Elseif j = 3 Then
            CellData = Trim(ActiveCell(i, j).Value) + "    "
        Elseif j = 4 Then
            CellData = Trim(ActiveCell(i, j).Value) + "         "
        Elseif j = 5 Then
            CellData = Trim(ActiveCell(i, j).Value) + "  "
        End If

    Next j

    Write #2, CellData
    CellData = vbTab
于 2015-10-16T14:23:56.680 回答
1

你可以使用类似的东西：

Dim spacing As Variant

Select Case Cells(i, j).Column
    Case 1: spacing = vbTab
    Case 2: spacing = Space(4) - Len(Cells(i, j).Value)
    Case 3: spacing = Space(14) - Len(Cells(i, j).Value)
End Select

Write #2, Cells(i, j).Value & spacing
于 2015-10-16T14:56:24.160 回答