生成文件后前后多了双引号，请问如何解决？

lwxandy

Sub 自动生成TPT8()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    ar = Sheet9.Range("f4:f" & Sheet9.[f65536].End(3).Row)
    wm = Split(Sheet9.Range("B4"), ".")(0)
    Workbooks.Add
    With ActiveWorkbook
        .Sheets(1).[a1].Resize(UBound(ar)) = ar
        .SaveAs Filename:=ThisWorkbook.Path & "\" & wm & ".TPT", FileFormat:=xlText, _
            CreateBackup:=False
        .Close
    End With
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

End Sub

lwxandy

请高手帮忙看一下！

lwxandy

高手在哪里

过客fppt

楼主早，没发现你说的双引号

lwxandy

生成文件以后前后有双引号

lwxandy

生成文件以后前后有双引号

过客fppt

你看看这样是解决了不？



Sub 自动生成TPT8_2()
'    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    ar = Sheet9.Range("f4:f" & Sheet9.[f65536].End(3).Row)
    wm = Split(Sheet9.Range("B4"), ".")(0)
    Call 数组生成文件(wm, ar)
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

End Sub

Function 数组生成文件(wm, arr)
    On Error Resume Next
   
    '删除文件
    Dim fso As Object
    Set fso = VBA.CreateObject("Scripting.FileSystemObject")
    fso.DeleteFile (ThisWorkbook.Path & "\" & wm & ".TPT")
   
    '复制数据
    Dim i As Integer
    Dim data As String
    For Each ar In arr
        data = data & ar & vbCrLf
    Next
   
    '创建并保存txt文件
    Dim fileName As String
    fileName = ThisWorkbook.Path & "\" & wm & ".TPT"
    Dim fileNum As Integer
    fileNum = FreeFile()
    Open fileName For Output As fileNum
    Print #fileNum, data
    Close fileNum
End Function

lwxandy

非常感谢，但是后面有很多空格，在生成文件的时候不要这些空格，请问怎么删除？

lwxandy

非常感谢，但是后面有很多空格，在生成文件的时候不要这些空格，请问怎么删除？

过客fppt

lwxandy 发表于 2024-1-7 19:32
非常感谢，但是后面有很多空格，在生成文件的时候不要这些空格，请问怎么删除？

不客气，初步解决了双引号问题，请送2朵花花

后面的空格是数值的第二维为""造成的，很容易改正