vba - 仅将 Excel 工作表文本保存到文本文件 VBA

Question

我正在尝试将工作表中一列的值复制到文本文件中。我当前的代码会导致运行时错误 434。

Sheets("Output to fcf.1").Columns("A").SaveToText "P:\4_Calcs\02. Flag Mapping\test_.txt"

如果我尝试保存整张纸

Sheets("Output to fcf.2").SaveToText "P:\Clear Project Drive\CLE10276 AWS SMP Model Assessmnts\4_Calcs\02. Flag Mapping\test2_.txt"

我将整个工作表转换为文本，而不仅仅是工作表中的文本。有没有简单的方法可以做到这一点？

提前致谢!

Answer 1

不确定您使用的是哪个 Excel 版本，但我没有看到 SaveToText 的方法。

但是这个过程应该有效，或者至少可以让你开始......

Sub SaveColumn(sheetName As String, columnName As String, fileName As String)
  Dim cell
  Dim fso
  Dim file

  Set fso = CreateObject("Scripting.FileSystemObject")
  Set file = fso.CreateTextFile(fileName, True)
  For Each cell In Sheets(sheetName).Columns(columnName).Cells
    If cell.Value <> "" Then
      file.WriteLine cell.Value
    End If
  Next
  file.Close

  Set file = Nothing
  Set fso = Nothing
End Sub

调用它...

SaveColumn“输出到fcf.1”，“A”，“P:\4_Calcs\02。标志映射\test_.txt”