在跳过空白行的同时将数据写入文本文件

Question

我正在使用下面的宏将选定范围（在 Excel 中）写入 .txt 文件。

Sub ExportTXT()

Dim myFile As String
Dim rng As Range
Dim cellValue As Variant
Dim i As Integer
Dim j As Integer

myFile = Application.DefaultFilePath & "\sales.txt"
Set rng = Range(Cells(1, 1), Cells(10, 4))

Open myFile For Output As #1

    For i = 1 To rng.Rows.Count
        For j = 1 To rng.Columns.Count
            cellValue = rng.Cells(i, j).Value

            If j = rng.Columns.Count Then
                Write #1, cellValue
            Else
                Write #1, cellValue,
            End If
        Next j
    Next i

Close #1

End Sub

我正在尝试跳过第 3 行和第 9 行。

当前输出 - 红色圈出的行是不应写入 txt 文件的行。

如何跳过空白行？

我尝试过使用 Isempty(cellValue) = True ** 和空字符串 **"" 条件语句。

我的 txt 文件输出应该是这样的

关于如何检查 cellValue 内容以查看它是否为空并仅写入包含数据的行的任何想法。

Answer 1

我稍微修改了你的代码

Sub ExportTXT()

Const DELIMITER = ","

Dim myFile As String
Dim rng As Range
Dim cellValue As Variant
Dim i As Integer
Dim j As Integer
Dim sngRow As Range
Dim vDat As Variant    

    myFile = Application.DefaultFilePath & "\sales.txt"
    With ActiveSheet
        Set rng = .Range(.Cells(1, 1), .Cells(10, 4))
    End With

    Dim noCol As Long
    noCol = rng.Columns.Count    

    Open myFile For Output As #1

    For Each sngRow In rng.Rows

        vDat = WorksheetFunction.Transpose(WorksheetFunction.Transpose(sngRow))
        vDat = Join(vDat, DELIMITER)
        If Len(vDat) >= noCol Then
            Write #1, vDat
        End If

    Next

    Close #1

End Sub

更新基于其中一个 cmets 使用以下语句以避免“文本限定”

Print #1, vDat

而不是

Write #1, vDat