为什么我的代码在涉及到方程时不能正确复制文本？ （Excelmacros/ Visual Basic）
在Excel中，我改变了一些代码，当单击命令button时，自动将预选范围的文本复制到.txt文件中。 出于某种原因，只要这段代码试图从其中包含= IF（AND（__，__），__，__）语句的单元格中复制，它就不会使用文本，但是它对于文本没有forms的方程式进入细胞。 此外，列中的前几个单元格是没有任何方程式的纯文本，所以在代码本身中具有方程式将是不可取的。 我能做些什么我的代码，所以它不会改变从Excel单元格复制的信息包含引用其他单元格的公式？ 代码完全如下所示。 另外，我正在Excel 2007中工作。谢谢！
Private Sub CommandButton1_Click() Dim wb As Workbook Dim saveFile As String Dim WorkRng As Range On Error Resume Next Set WorkRng = ActiveSheet.Range("A1:B25").Copy Application.ScreenUpdating = False Application.DisplayAlerts = False Set wb = Application.Workbooks.Add wb.Worksheets(1).Paste saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt") wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False wb.Close End Sub Private Sub CommandButton1_Click() Dim wb As Workbook Dim saveFile As String Dim WorkRng As Range Set WorkRng = ActiveSheet.Range("A1:B25") '<<no .Copy Application.ScreenUpdating = False Application.DisplayAlerts = False Set wb = Application.Workbooks.Add 'WorkRng.Copy wb.Worksheets(1).Range("A1") 'copy values only WorkRng.Copy wb.Worksheets(1).Range("A1").PasteSpecial Paste:=xlPasteValues saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt") wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False wb.Close End Sub