excel vba 将选定单元格中的数据导出为txt格式

Question

`Sub ExportRangetoFile()
'Update 20130913
Dim wb As Workbook
Dim saveFile As String
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wb = Application.Workbooks.Add
WorkRng.Copy
wb.Worksheets(1).Paste
saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
wb.Close
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
`

你好

我在Excel中使用以下代码

工作完美

但是在导出时，我在一个单元格中有一个数据，由于这个原因，该单元格的方程链接到另一个单元格 导出后找不到值

所以它在 saed 文本文件中写入 # Ref

我该如何解决这个问题

它还写着“,”（逗号用分号）

如何避免这种情况

正在运行的VBA脚本代码

Answer 1

不要使用复制/粘贴，而是使用选择性粘贴、值或仅将目标范围的值分配给源范围的值。这样您就不会将公式粘贴到新的工作簿中，也不会获得#Ref