將Excel文件導出到txt時添加制表符

Question

我編寫了一個VBA代碼，該代碼從Excel工作表中獲取某些行，並將其寫入TXT文件中。 該代碼很好用，但是我有兩個問題-

1. 我在復制的每個2個單元格之間添加了“ vbTab”字符，在TXT文件中看起來很不錯-但是當我嘗試再次在Excel中打開它時，每一行都出現在一個單元格中（僅在A列中顯示文本） ，沒有任何空格，並且不會像應該那樣進入列...

2. 在TXT文件中，每行的開頭和結尾都有引號（“）-這對我在TXT文件中的使用不利。

這是代碼：

For i = 1 To LastRow
    For j = 1 To LastCol
        If (j = 1) And (Cells(i, 1).Value = "~") Then
            Exit For
        End If
        If Not IsInArray(j, IgnoreCol) Then
            If j = LastCol Then
                DataLine = DataLine + Trim(Cells(i, j).Value)
            Else
                DataLine = DataLine + Trim(Cells(i, j).Value) + vbTab
            End If
        End If
    Next j
    If (DataLine <> "") Then
        Write #FileNum, DataLine
        DataLine = ""
    End If
Next i

謝謝！

Answer 1

您應該替換：

寫入＃FileNum，DataLine

有：

打印＃FileNum，DataLine

因為Write #FileNum, DataLine在DataLine周圍加上雙引號，因此Excel將整行視為一個單元格。 打印不包括雙引號，因此Excel可以將行拆分為每個TAB字符處的單元格。