将Xlsx文件保存到ASCTXT中，每一列的长度相同

问题描述

原始文件数据和长度（使用相同的输出/布局从excel保存）：

将原始数据文件导入excel以进行修改/更新/创建：

如何用与导入的原始文件相同的长度保存Excel文件？通过将excel文件保存为.TXT，长度是不同的！！！

有人可以提供信息或VBA代码帮助来导出/创建每行数据长度正确的.txt文件吗？

将excel保存为.txt（格式不正确！）：

我使用以下代码：我在sheet1上的excel中的一些公式之后使用此代码，然后将sheet2（folha2）导出到.txt，并且数据不等于我想要的。

有人可以帮忙吗？

Sub ExportToTxt()
Dim fileStream As Object
Set fileStream = CreateObject("ADODB.Stream")
fileStream.Charset = "utf-8"
fileStream.Open

Dim rangetoExport As Range
Set rangetoExport = Worksheets("GERAR ENC").Range("A1").CurrentRegion

Dim firstCol,lastCol,firstRow,lastRow As Integer
firstCol = rangetoExport.Columns(1).Column
lastCol = firstCol + rangetoExport.Columns.Count - 1
firstRow = rangetoExport.Rows(1).Row
lastRow = firstRow + rangetoExport.Rows.Count - 1

Dim r,c As Integer
Dim str As String
Dim delimiter As String
For r = firstRow To lastRow
    str = ""
    For c = firstCol To lastCol
        If c = 1 Then
            delimiter = ""
        'Else
         '   delimiter = vbTab ' tab
        End If
        str = str & delimiter & rangetoExport.Cells(r,c).Value
    Next c
    fileStream.WriteText str & vbCrLf ' vbCrLf: linebreak
Next r

Dim filePath As String
filePath = Application.ThisWorkbook.Path & "\SIVA_ENC_VBA.txt"
fileStream.SavetoFile filePath,2 ' 2: Create Or Update
fileStream.Close

End Sub

但是生成的输出文件缺少左零/长度！

请帮助。...谢谢。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

layout txt txt xlsx