仅将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 "Output to fcf.1", "A", "P:\4_Calcs\02. Flag Mapping\test_.txt"