小编nir*_*020的帖子

我已经在 VBA 中声明并分配了一个字符串变量的值。

该变量包含许多换行符，您能否建议如何删除这些换行符，已使用以下代码从 xml 文档中为该变量分配了一个值：-

s = Application.GetOpenFilename() 

myFolder = ActiveWorkbook.Path
s = Dir(myFolder & "\*.xml")

Do While s <> ""

If s <> "False" Then

    Set FSO = CreateObject("Scripting.FileSystemObject")
        If FSO.FileExists(s) Then

        t = myFolder & "\" & Replace(FSO.GetTempName(), ".tmp", ".xml")

       Name s As t
        Set ts(0) = FSO.OpenTextFile(t, 1, False, -2) 

        FileContents = ts(0).READALL                

   ts(0).Close
       Set ts(0) = Nothing

   End If
End If

  s = Dir$ 

loop

任何人都可以建议解决方案吗？

谢谢尼克

我希望我希望有人可以帮助我

我试图使用以下代码在Excel 2013中保存文件,但我收到以下错误消息: -

方法'SaveAs'对象'__ Workbook'失败

任何人都可以建议吗？

Sub SaveFile()

Dim Destwb As Workbook
Dim FolderName As String
Dim Sourcewb As Workbook
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Name As String

Set Sourcewb = ThisWorkbook
Set Destwb = ActiveWorkbook
Name = Cells(2, 2).Value

FolderName = Sourcewb.Path & "\Files_with_graphs"
FileExtStr = ".xls": FileFormatNum = 56

With Destwb
        .SaveAs FolderName _
        & "\" & Name & FileExtStr, FileFormat:=FileFormatNum
        .Close False

End With

End Sub