Excel复制选择并粘贴到我桌面上的txt文件中

Question

我无法弄清楚为什么当我运行下面的脚本时，它会正确复制选择，格式化 fName正确，然后成功粘贴到新工作簿，然后创建一个没有任何内容的 txt 文件。

我想要做的是将我复制的选择粘贴到一个新的文本文件中，使用“fName”作为文件的文件名。谢谢

 Sub SaveAsXML_txt()
'
' set the length of XML
Dim xmlLength As Integer
Dim fName As String
xmlLength = Range("I9")
fName = Range("I3") & " " & Range("I10") & " XML"
'
' set the filename of textfile
'
Dim wbSource As Workbook
Dim wsSource As Worksheet
Dim wbDest As Workbook
'
' References
Set wbSource = ActiveWorkbook
Set wsSource = ActiveSheet
Set wbDest = Workbooks.Add
'
' select the whole XML to copy
wsSource.Range("K2:K" & xmlLength).Copy
'
'Save in new workbook
wbDest.Worksheets(1).Cells(1, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

Workbooks.Add.SaveAs fName, xlTextWindows

End Sub

Answer 1

您的 Workbooks.Add.SaveAs fName, xlTextWindows声明是添加一个新工作簿，然后立即保存它。自然而然，它将是空的。

你需要做一个wbDest.SaveAs fName, xlTextWindows反而。

保存后可以做wbDest.Close False关闭它而不保存。 (没有必要再保存一次。)