删除空白

Question

我需要帮助从名为“工作表”的 Excel 电子表格中的每一行创建单独的文本文件。我希望文本文件以A列+“结果”+H列的内容命名（应该隐藏在.txt文件中，以B-G列为内容，我已经完成了编码。请找到以下内容。但是我在 .txt 输出文件中收到了空格。请找到屏幕截图。我无法修剪这个空格。

我将如何进一步解决问题？

提前致谢。

VBA 代码：

Sub WriteTotxt()

Const forReading = 1, forAppending = 3, fsoForWriting = 2
Dim fs, objTextStream, sText As String
Dim lLastRow As Long, lRowLoop As Long, lLastCol As Long, lColLoop As Long

lLastRow = Cells(Rows.Count, 1).End(xlUp).Row

For lRowLoop = 1 To lLastRow

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set objTextStream = fs.opentextfile("D:\EXCEL_TXT_TEST\New folder\" & Cells(lRowLoop, 8) & "-" & "RESULT" & "-" & Cells(lRowLoop, 1) & ".txt", fsoForWriting, True)

    sText = ""
    sText1 = ""

    For lColLoop = 1 To 7
    If lColLoop <> 7 Then

        sText = sText & "<" & Cells(lColLoop) & ">" & "," & Chr(0)
        sText1 = sText1 & Cells(lRowLoop, lColLoop) & "," & Chr(0)

     Else

      sText = sText & "<" & Cells(lColLoop) & ">" & Chr(0)
      sText1 = sText1 & Cells(lRowLoop, lColLoop) & Chr(0)

      End If


    Next lColLoop

    objTextStream.writeline (Left(sText, Len(Trim(sText)) - 1))
    objTextStream.writeline (Left(sText1, Len(Trim(sText1)) - 1))


    objTextStream.Close
    Set objTextStream = Nothing
    Set fs = Nothing

Next lRowLoop

End Sub

Answer 1

您可以像这样从字符串中删除所有空行 mystr = replace(mystr, vblf & vbcr, "") 这将删除空行，而不是包含空格或其他您看不到的字符的行..

Answer 2

我也可以帮助您编写代码，但是您是否先尝试过一种简单的方法？

您为什么不直接文件-->另存为.csv，然后替换您的标题？您的数据输出将非常相似，除了您列出的条目之前的" " 空间。懒惰但容易。

根据你的模块调整它，你可以像你拥有的所有东西一样擦除......

ActiveWorkbook.SaveAs Filename:= _
"c:\MyFile.csv", FileFormat:=xlCSV _
, CreateBackup:=False

然后，只要把你的数据读回来，字符串操作就很容易了。